jaja hvis du gerne vil have HELE filen så her:
men det jeg skrev før var det eneste du skal bruge.... sig hvis du ik lig ka finde ud af det...
Filen:
_______________________________________________
\' LEVEL5.FRM
Option Explicit
Const c001A =
\"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ.,:;-*+=~|&!_$#@()[]{}<\\/>\"
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
_____________________________________________