by DeanoSplamony (2 Submissions)
Category: Encryption
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Mon 17th November 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Finds out 4 number code you put into text boxes
VBcoders
============
REQUIRED OBJECTS:
TXT1.TEXT
TXT2.TEXT
TXT3.TEXT
TXT4.TEXT
================================================================================================
Private Sub Form_Load()
call engine()
End Sub
================================================================================================
Private sub Quit()
Msgbox ("Sorry but an error accured at check ") + quitreason
End sub
================================================================================================
Private sub Rand()
dim rando as int
dim rand as int
Randomize:
rand = 9
rando = (rand - 1 +1 (*rnd))
End Sub
================================================================================================
Private sub Engine()
dim char1 as int
dim char2 as int
dim char3 as int
dim char4 as int
txt1.text = call rand()
txt2.text = call rand()
txt3.text = call rand()
txt4.text = call rand()
char1 = txt1.text
char2 = txt2.text
char3 = txt3.text
char4 = txt4.text
if char1 = 0 then
lbl1.caption = char1
goto charpoint2:
else
if char1 = 1 then
lbl1.caption = char1
goto charpoint2:
else
if char1 = 2 then
lbl1.caption = char1
goto charpoint2:
else
if char1 = 3 then
lbl1.caption = char1
goto charpoint2:
else
if char1 = 4 then
lbl1.caption = char1
goto charpoint2:
else
if char1 = 5 then
lbl1.caption = char1
goto charpoint2:
else
if char1 = 6 then
lbl1.caption = char1
goto charpoint2:
else
if char1 = 7 then
lbl1.caption = char1
goto charpoint2:
else
if char1 = 8 then
lbl1.caption = char1
goto charpoint2:
else
if char1 = 9 then
lbl1.caption = char1
goto charpoint2:
else
quitreason = "[char1]"
call Quit()
end if
end if
end if
end if
end if
end if
end if
end if
end if
charpoint2:
if char2 = 0 then
lbl2.caption = char2
goto charpoint3:
else
if char2 = 1 then
lbl2.caption = char2
goto charpoint3:
else
if char2 = 2 then
lbl2.caption = char2
goto charpoint3:
else
if char2 = 3 then
lbl2.caption = char2
goto charpoint3:
else
if char2 = 4 then
lbl2.caption = char2
goto charpoint3:
else
if char2 = 5 then
lbl2.caption = char2
goto charpoint3:
else
if char2 = 6 then
lbl1.caption = char1
goto charpoint2:
else
if char2 = 7 then
lbl2.caption = char2
goto charpoint3:
else
if char2 = 8 then
lbl2.caption = char2
goto charpoint3:
else
if char2 = 9 then
lbl2.caption = char2
goto charpoint3:
else
quitreason = "[char3]"
call Quit()
end if
end if
end if
end if
end if
end if
end if
end if
end if
charpoint3:
if char3 = 0 then
lbl3.caption = char3
goto charpoint4:
else
if char3 = 1 then
lbl3.caption = char3
goto charpoint4:
else
if char3 = 2 then
lbl3.caption = char3
goto charpoint4:
else
if char3 = 3 then
lbl3.caption = char3
goto charpoint4:
else
if char3 = 4 then
lbl3.caption = char3
goto charpoint4:
else
if char3 = 5 then
lbl3.caption = char3
goto charpoint4:
else
if char3 = 6 then
lbl3.caption = char3
goto charpoint4:
else
if char3 = 7 then
lbl3.caption = char3
goto charpoint4:
else
if char3 = 8 then
lbl3.caption = char3
goto charpoint4:
else
if char3 = 9 then
lbl3.caption = char3
goto charpoint4:
else
quitreason = "[char2]"
call Quit()
end if
end if
end if
end if
end if
end if
end if
end if
end if
charpoint4:
if char4 = 0 then
lbl4.caption = char4
goto Cracked:
else
if char4 = 1 then
lbl4.caption = char4
goto Cracked:
else
if char4 = 2 then
lbl4.caption = char4
goto Cracked:
else
if char4 = 3 then
lbl4.caption = char4
goto Cracked:
else
if char4 = 4 then
lbl4.caption = char4
goto Cracked:
else
if char4 = 5 then
lbl4.caption = char4
goto Cracked:
else
if char4 = 6 then
lbl4.caption = char4
goto Cracked:
else
if char4 = 7 then
lbl4.caption = char4
goto Cracked:
else
if char4 = 8 then
lbl4.caption = char4
goto Cracked:
else
if char4 = 9 then
lbl4.caption = char4
goto Cracked:
else
quitreason = "[char4]"
call Quit()
end if
end if
end if
end if
end if
end if
end if
end if
end if
Cracked:
Msgbox ("Well, aint this good??? Your code is " + "[" + char1 + char2 + char3 + char4 + "]")
end sub