• Home
 · 
• Encryption
 · 
• Finds out 4 number code you put into text boxes

Finds out 4 number code you put into text boxes

Finds out 4 number code you put into text boxes

Rate Finds out 4 number code you put into text boxes

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

============
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