This is a "Leet" text creator.
It has 5 modes.
Mode one will convert certain letters to certain numbers.
Mode two will do what mode one does except randomily.
Mode three will do what mode one and two do and capitilize all the letters.
Mode four will do what modes one, two, and three do except randomly capitilize the letters.
Mode five will do what modes one, two, three, and four do and add LOL, STFU, LMAO, OMG, and WTF randomly after spaces.
`1337 Ta1k by: I1ya
restart:
if times=5 then times=0 : cls
randomize timer()
input "What do you want to 1337ize? ",leet$
leet2$=upper$(leet$)
`Mode1
for s=1 to len(leet$) step 1
if mid$(leet2$,s)="L"
out$=out$+"1"
else
if mid$(leet2$,s)="E"
out$=out$+"3"
else
if mid$(leet2$,s)="T"
out$=out$+"7"
else
if mid$(leet2$,s)="O"
out$=out$+"0"
else
out$=out$+mid$(leet$,s)
endif
endif
endif
endif
`l - 1
`e - 3
`t - 7
`o - 0
next
print "Mode1: "+out$
one$="Mode1: "+out$
wait key
out$=""
`Mode2
for s=1 to len(leet$) step 1
if mid$(leet2$,s)="L"
if rnd(1)=1 then out$=out$+"1" else out$=out$+mid$(leet$,s)
else
if mid$(leet2$,s)="E"
if rnd(1)=1 then out$=out$+"3" else out$=out$+mid$(leet$,s)
else
if mid$(leet2$,s)="T"
if rnd(1)=1 then out$=out$+"7" else out$=out$+mid$(leet$,s)
else
if mid$(leet2$,s)="O"
if rnd(1)=1 then out$=out$+"0" else out$=out$+mid$(leet$,s)
else
out$=out$+mid$(leet$,s)
endif
endif
endif
endif
`l - 1
`e - 3
`t - 7
`o - 0
next
print "Mode2: "+out$
two$="Mode2: "+out$
wait key
out$=""
`Mode3
for s=1 to len(leet$) step 1
if mid$(leet2$,s)="L"
if rnd(1)=1 then out$=out$+"1" else out$=out$+mid$(leet$,s)
else
if mid$(leet2$,s)="E"
if rnd(1)=1 then out$=out$+"3" else out$=out$+mid$(leet$,s)
else
if mid$(leet2$,s)="T"
if rnd(1)=1 then out$=out$+"7" else out$=out$+mid$(leet$,s)
else
if mid$(leet2$,s)="O"
if rnd(1)=1 then out$=out$+"0" else out$=out$+mid$(leet$,s)
else
out$=out$+mid$(leet$,s)
endif
endif
endif
endif
`l - 1
`e - 3
`t - 7
`o - 0
next
out$=UPPER$(out$)
print "Mode3: "+out$
three$="Mode3: "+out$
wait key
out$=""
`Mode4
for s=1 to len(leet$) step 1
if mid$(leet2$,s)="L"
if rnd(1)=1 then out$=out$+"1" else out$=out$+mid$(leet$,s)
else
if mid$(leet2$,s)="E"
if rnd(1)=1 then out$=out$+"3" else out$=out$+mid$(leet$,s)
else
if mid$(leet2$,s)="T"
if rnd(1)=1 then out$=out$+"7" else out$=out$+mid$(leet$,s)
else
if mid$(leet2$,s)="O"
if rnd(1)=1 then out$=out$+"0" else out$=out$+mid$(leet$,s)
else
out$=out$+mid$(leet$,s)
endif
endif
endif
endif
if rnd(1)=1 then out$=LEFT$(out$,len(out$)-1)+mid$(leet2$,s)
`l - 1
`e - 3
`t - 7
`o - 0
next
print "Mode4: "+out$
four$="Mode4: "+out$
wait key
out$=""
`Mode5
for s=1 to len(leet$) step 1
if mid$(leet2$,s)="L"
if rnd(1)=1 then out$=out$+"1" else out$=out$+mid$(leet$,s)
else
if mid$(leet2$,s)="E"
if rnd(1)=1 then out$=out$+"3" else out$=out$+mid$(leet$,s)
else
if mid$(leet2$,s)="T"
if rnd(1)=1 then out$=out$+"7" else out$=out$+mid$(leet$,s)
else
if mid$(leet2$,s)="O"
if rnd(1)=1 then out$=out$+"0" else out$=out$+mid$(leet$,s)
else
out$=out$+mid$(leet$,s)
endif
endif
endif
endif
if rnd(1)=1 then out$=LEFT$(out$,len(out$)-1)+mid$(leet2$,s)
if mid$(leet2$,s)=" "
if rnd(35)=1 then out$=out$+"LOL "
if rnd(35)=2 then out$=out$+"STFU "
if rnd(35)=3 then out$=out$+"LMAO "
if rnd(35)=4 then out$=out$+"OMG "
if rnd(35)=5 then out$=out$+"WTF "
endif
`l - 1
`e - 3
`t - 7
`o - 0
next
print "Mode5: "+out$
five$="Mode5: "+out$
wait key
out$=""
times=times+1
if prompt=0
open to write 1,"C:\leet.txt"
write string 1," LEET RESAULTS"
write string 1," WILL BE DELETED AFTER USE"
write string 1,"SAVE AS SOMETHING ELSE IF YOU WANT TO KEEP"
write string 1,""
write string 1,one$
write string 1,two$
write string 1,three$
write string 1,four$
write string 1,five$
close file 1
execute file "C:\Windows\Notepad.exe","C:\leet.txt","",1
delete file "C:\leet.txt"
endif
if tooktest=0
input "Do you want to see notepad resaults every 1337ize(Y/N)?",yesno$
if UPPER$(yesno$)="N" then prompt=1
tooktest=1
endif
goto restart
[EDIT]Updated to optionaly show resaults in notepad and to clear screen if it gets too full.[/EDIT]
