try2hack.nl VB

Jeg har ENDELIG fået decompilet min fil.. og nu sidder jeg fast igen, jeg ved det er noget med at den laver en string.

Man er MERE end velkommen til også at hjælpe mig med de andre try2hack.nl. Dette vil blive RIGELIGT belønnet !

******************

ÿÌ, 
  m    Form1
"& ÿ --==( Try2Hack - Level 5 )==--€€€ á  ä  ]  Å
  
B #ÿÿÿÿ$Form15á  6ä  7]  8Å
  ÿ
S 

chkHidePwdÿ  Hide password ?€€€ ÿÿÿ Ðøÿ 
MS Sans Serif  A  
 ÿ8  cmdLoginÿ Login8@Gw

MS Sans Serif  A  ÿ:  txtPasswordÿА;
Courier New  A 
"
*%  ÿ7  txtUsernameÿÐÐ;
Courier New  A   %  ÿF  €
lbl
ÿ
Password :
ÿÿÿ à
(Þð 
MS Sans Serif  A  ÿ ÿF  €  lbl
ÿ
Username :  ÿÿÿ à
h
ð 
MS Sans Serif  A  ÿ ÿ’  ü  _
_
   

€Q€QZ                                                                                    Z          ÿÿÿÿÿÿÿÿ   
ý*+=~|&!_$#@()[]{}<\/>"
Const c001E = "http://www.try2hack.f2s.com/login-level6.html"
Const c0022 = " txtUsername=AlmostAHacker "
Const c0026 = " 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(c001A, 56, 1) & Mid(c001A, 28, 1) & Mid(c001A, 35, 1) & Mid(c001A, 3, 1) & Mid(c001A, 44, 1) & Mid(c001A, 11, 1) & Mid(c001A, 13, 1) & Mid(c001A, 21, 1) Then
    MsgBox "Username not accepted."
    Exit Sub
End If
If  txtPassword <> Mid(c001A, 51, 1) & Mid(c001A, 31, 1) & Mid(c001A, 30, 1) & Mid(c001A, 51, 1) & Mid(c001A, 16, 1) & Mid(c001A, 45, 1) & Mid(c001A, 24, 1) & Mid(c001A, 29, 1) & Mid(c001A, 26, 1) & Mid(c001A, 19, 1) & Mid(c001A, 28, 1) & Mid(c001A, 11, 1) & Mid(c001A, 30, 1) & Mid(c001A, 19, 1) & Mid(c001A, 25, 1) & Mid(c001A, 24, 1) Then
    MsgBox "Username/Password don't match."
Else
    MsgBox "User logged in !"
    l003C$ = Left$(c001E, 28) & Mid(c001A, 22, 1) & Mid(c001A, 67, 1) & Mid(c001A, 15, 1) & Mid(c001A, 67, 1) & Mid(c001A, 32, 1) & Mid(c001A, 67, 1) & Mid(c001A, 15, 1) & Mid(c001A, 67, 1) & Mid(c001A, 22, 1) & Mid(c001A, 67, 1) & Mid(c001A, 7, 1) & Mid(c001A, 63, 1) & Mid(c001A, 18, 1) & Mid(c001A, 30, 1) & Mid(c001A, 23, 1) & Mid(c001A, 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

*****************'

Glæder mig til at høre fra jer.