[try2hack] Lvl 5

[DoDo]

Bij try2hack lvl 5 zxit ik een beetje vast.Ik heb de vb3 file uit de exe

LEVEL5.FRM Option Explicit Const mc001A = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ.,:;-*+=~|&!_$#@()[]{}<\/>" Const mc001E = "http://www.try2hack.f2s.com/login-level6.html" Const mc0022 = " txtUsername=AlmostAHacker " Const mc0026 = " txtPassword=ZqrE01A2d " Sub chkHidePwd_Click () If chkHidePwd.Value = 0 Then txtPassword.PasswordChar = "" Else txtPassword.PasswordChar = "*" End If End Sub Sub cmdLogin_Click () Dim l003C As String Dim l003E As Variant If txtUsername <> Mid(mc001A, 56, 1) & Mid(mc001A, 28, 1) & Mid(mc001A, 35, 1) & Mid(mc001A, 3, 1) & Mid(mc001A, 44, 1) & Mid(mc001A, 11, 1) & Mid(mc001A, 13, 1) & Mid(mc001A, 21, 1) Then MsgBox "Username not accepted." Exit Sub End If If txtPassword <> Mid(mc001A, 51, 1) & Mid(mc001A, 31, 1) & Mid(mc001A, 30, 1) & Mid(mc001A, 51, 1) & Mid(mc001A, 16, 1) & Mid(mc001A, 45, 1) & Mid(mc001A, 24, 1) & Mid(mc001A, 29, 1) & Mid(mc001A, 26, 1) & Mid(mc001A, 19, 1) & Mid(mc001A, 28, 1) & Mid(mc001A, 11, 1) & Mid(mc001A, 30, 1) & Mid(mc001A, 19, 1) & Mid(mc001A, 25, 1) & Mid(mc001A, 24, 1) Then MsgBox "Username/Password don't match." Else MsgBox "User logged in !" l003C$ = Left$(mc001E, 28) & Mid(mc001A, 22, 1) & Mid(mc001A, 67, 1) & Mid(mc001A, 15, 1) & Mid(mc001A, 67, 1) & Mid(mc001A, 32, 1) & Mid(mc001A, 67, 1) & Mid(mc001A, 15, 1) & Mid(mc001A, 67, 1) & Mid(mc001A, 22, 1) & Mid(mc001A, 67, 1) & Mid(mc001A, 7, 1) & Mid(mc001A, 63, 1) & Mid(mc001A, 18, 1) & Mid(mc001A, 30, 1) & Mid(mc001A, 23, 1) & Mid(mc001A, 22, 1) MsgBox "For Windows NT / Windows 2000 users :" & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10) & l003C$ l003E = Shell("start " & l003C$) End If End Sub Sub Form_Load () Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2 End Sub

Dat pw wat erinstaat is dus fout maar er moet ngo een pw inzitten alleen dat meot je ontcijferen maar ddat snap ik niet weet iemand hoe? Ik dag dat het over:Mid(mc001A, 67, 1) Zulke dingen ging
Thnxz

[The Will]

http://gathering.tweakers.net/forum/list_messages/443918

Voortaan eerst even zelf zoeken