Archived

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

Sausie

VB question

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