Archived

This topic is now archived and is closed to further replies.

VB question

This topic is 5828 days old which is more than the 365 day threshold we allow for new replies. Please post a new topic.

If you intended to correct an error in the post then please contact us.

Recommended Posts

I got a vb code from an exe with pw and username. Can anyone tell me what the username is? '' 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

Share this post


Link to post
Share on other sites
My guese would be:

username: Try2Hack
password: OutOfInspiratio

And output will be: http://www.try2hack.f2s.com/l-e-v-e-l-6.html

easy hack

Edited by - ToxicSoul on December 31, 2001 1:21:16 PM

Edited by - ToxicSoul on December 31, 2001 1:28:09 PM

Share this post


Link to post
Share on other sites