| 
   
   |  |  |  |  |  |  |  |  | 
| MilleniumEli1 aus Duisburg
 offline
 
 
   
   OC God
 24 Jahre dabei !
 AMD Duron750 MHz @ 1017 MHz
 51°C mit 2.2 Volt
 |                 echt? das wusst ich aber auch noch net
   ich poste einfach mal den code, dann brauchste net suchen!
 
 
 | Code  ' LEVEL5.FRM
 Option Explicit
 
 Sub cmdLogin_Click ()
 If  edtUsername = Mid(gc0006, 56, 1) & Mid(gc0006, 28, 1) & Mid(gc0006, 35, 1) & Mid(gc0006, 3, 1) & Mid(gc0006, 44, 1) & Mid(gc0006, 11, 1) & Mid(gc0006, 13, 1) & Mid(gc0006, 21, 1) Then
 If  edtPassword = Mid(gc0006, 45, 1) & Mid(gc0006, 48, 1) & Mid(gc0006, 25, 1) & Mid(gc0006, 32, 1) & Mid(gc0006, 15, 1) & Mid(gc0006, 40, 1) & Mid(gc0006, 25, 1) & Mid(gc0006, 14, 1) & Mid(gc0006, 19, 1) Then
 MsgBox "Level 6 can be found at: " & Left$(gc000A, 37) & Mid(gc0006, 21, 1) & Mid(gc0006, 14, 1) & Mid(gc0006, 29, 1) & Mid(gc0006, 32, 1) & Mid(gc0006, 12, 1) & Mid(gc0006, 14, 1) & Mid(gc000A, 44, 6), 0, "Horray!"
 End
 End If
 End If
 MsgBox "Invalid username and/or password!", 0, "ERROR!"
 End Sub
 
 Sub Form_Load ()
 Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
 End Sub
 
 | 
 
 
 | Code ' main.txt - global definitions Global Const gc0006 = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ.,:;-*+=~|&!_$#@()[]{}<\/>"
 Global Const gc000A = "http://www.try2hack.nl/levels/level6-ksghvb.xhtml"
 
 | 
 
 
 | Code  ' Module1
 Option Explicit
 Const c000A = " txtUsername=AlmostAHacker "
 Const c000E = " txtPassword=ZqrE01A2d "
 
 | 
 
 
 All Hail the Crimson King!
 |  | Beiträge gesamt: 6351 | Durchschnitt: 1 Postings pro Tag
 Registrierung: Mai 2001 | Dabei seit: 8935 Tagen | Erstellt: 18:29 am 25. Feb. 2004
 |  |  |  |  |  |  |  |  |  |  |  |  |  |  
  |  |  |