leet/deleet

var að búa til forrit sem þýðir/afþýðir leet.

<a href="http://izelord.svavarl.com/leet.zip">http://izelord.svavarl.com/leet.zip</a>

Þetta rokkar mestast og hefur verið testað, t.d. virkar translate!<br><br>- - - - - - - - - - - - - -
<a href="http://kasmir.hugi.is/izelord">Votre mère
</a

Það besta sem guð hefur skapað er nýr dagur.

izelord fyrir 22 árum, 3 mánuðum

þetta er í VB:

Private Sub Command1_Click()
'extreme leet
Text2.Text = Replace(Text1.Text, “a”, “4”)
Text2.Text = Replace(Text2.Text, “b”, “8”)
Text2.Text = Replace(Text2.Text, “c”, “<”)
Text2.Text = Replace(Text2.Text, “d”, “|)”)
Text2.Text = Replace(Text2.Text, “e”, “3”)
Text2.Text = Replace(Text2.Text, “f”, “|=”)
Text2.Text = Replace(Text2.Text, “g”, “9”)
Text2.Text = Replace(Text2.Text, “h”, “|-|”)
Text2.Text = Replace(Text2.Text, “i”, “1”)
Text2.Text = Replace(Text2.Text, “j”, “]”)
Text2.Text = Replace(Text2.Text, “k”, “|{”)
Text2.Text = Replace(Text2.Text, “l”, “|_”)
Text2.Text = Replace(Text2.Text, “m”, “/\/”)
Text2.Text = Replace(Text2.Text, “n”, “|\|”)
Text2.Text = Replace(Text2.Text, “o”, “0”)
Text2.Text = Replace(Text2.Text, “p”, “|>”)
Text2.Text = Replace(Text2.Text, “q”, “q”)
Text2.Text = Replace(Text2.Text, “r”, “|2”)
Text2.Text = Replace(Text2.Text, “s”, “5”)
Text2.Text = Replace(Text2.Text, “t”, “7”)
Text2.Text = Replace(Text2.Text, “u”, “|_|”)
Text2.Text = Replace(Text2.Text, “v”, “\/”)
Text2.Text = Replace(Text2.Text, “x”, “x”)
Text2.Text = Replace(Text2.Text, “y”, “y”)
Text2.Text = Replace(Text2.Text, “z”, “z”)
Text2.Text = Replace(Text2.Text, “ö”, “0”)
'capital extreme
Text2.Text = Replace(Text2.Text, “A”, “4”)
Text2.Text = Replace(Text2.Text, “B”, “8”)
Text2.Text = Replace(Text2.Text, “C”, “<”)
Text2.Text = Replace(Text2.Text, “D”, “|)”)
Text2.Text = Replace(Text2.Text, “E”, “3”)
Text2.Text = Replace(Text2.Text, “F”, “|=”)
Text2.Text = Replace(Text2.Text, “G”, “9”)
Text2.Text = Replace(Text2.Text, “H”, “|-|”)
Text2.Text = Replace(Text2.Text, “I”, “1”)
Text2.Text = Replace(Text2.Text, “J”, “]”)
Text2.Text = Replace(Text2.Text, “K”, “|{”)
Text2.Text = Replace(Text2.Text, “L”, “|_”)
Text2.Text = Replace(Text2.Text, “M”, “/\/”)
Text2.Text = Replace(Text2.Text, “N”, “|\|”)
Text2.Text = Replace(Text2.Text, “O”, “0”)
Text2.Text = Replace(Text2.Text, “P”, “|>”)
Text2.Text = Replace(Text2.Text, “Q”, “q”)
Text2.Text = Replace(Text2.Text, “R”, “|2”)
Text2.Text = Replace(Text2.Text, “S”, “5”)
Text2.Text = Replace(Text2.Text, “T”, “7”)
Text2.Text = Replace(Text2.Text, “U”, “|_|”)
Text2.Text = Replace(Text2.Text, “V”, “\/”)
Text2.Text = Replace(Text2.Text, “X”, “x”)
Text2.Text = Replace(Text2.Text, “Y”, “y”)
Text2.Text = Replace(Text2.Text, “Z”, “z”)
Text2.Text = Replace(Text2.Text, “Ö”, “0”)

End Sub

Private Sub Command2_Click()
'simple leet
Text2.Text = Replace(Text1.Text, “a”, “4”)
Text2.Text = Replace(Text2.Text, “b”, “8”)
Text2.Text = Replace(Text2.Text, “c”, “c”)
Text2.Text = Replace(Text2.Text, “d”, “d”)
Text2.Text = Replace(Text2.Text, “e”, “3”)
Text2.Text = Replace(Text2.Text, “f”, “f”)
Text2.Text = Replace(Text2.Text, “g”, “9”)
Text2.Text = Replace(Text2.Text, “h”, “h”)
Text2.Text = Replace(Text2.Text, “i”, “1”)
Text2.Text = Replace(Text2.Text, “j”, “]”)
Text2.Text = Replace(Text2.Text, “k”, “k”)
Text2.Text = Replace(Text2.Text, “l”, “l”)
Text2.Text = Replace(Text2.Text, “m”, “m”)
Text2.Text = Replace(Text2.Text, “n”, “n”)
Text2.Text = Replace(Text2.Text, “o”, “0”)
Text2.Text = Replace(Text2.Text, “p”, “p”)
Text2.Text = Replace(Text2.Text, “q”, “q”)
Text2.Text = Replace(Text2.Text, “r”, “r”)
Text2.Text = Replace(Text2.Text, “s”, “5”)
Text2.Text = Replace(Text2.Text, “t”, “7”)
Text2.Text = Replace(Text2.Text, “u”, “u”)
Text2.Text = Replace(Text2.Text, “v”, “v”)
Text2.Text = Replace(Text2.Text, “x”, “x”)
Text2.Text = Replace(Text2.Text, “y”, “y”)
Text2.Text = Replace(Text2.Text, “z”, “z”)
Text2.Text = Replace(Text2.Text, “ö”, “0”)
'capital simple leet
Text2.Text = Replace(Text2.Text, “A”, “4”)
Text2.Text = Replace(Text2.Text, “B”, “8”)
Text2.Text = Replace(Text2.Text, “C”, “c”)
Text2.Text = Replace(Text2.Text, “D”, “d”)
Text2.Text = Replace(Text2.Text, “E”, “3”)
Text2.Text = Replace(Text2.Text, “F”, “f”)
Text2.Text = Replace(Text2.Text, “G”, “9”)
Text2.Text = Replace(Text2.Text, “H”, “h”)
Text2.Text = Replace(Text2.Text, “I”, “1”)
Text2.Text = Replace(Text2.Text, “J”, “]”)
Text2.Text = Replace(Text2.Text, “K”, “k”)
Text2.Text = Replace(Text2.Text, “L”, “l”)
Text2.Text = Replace(Text2.Text, “M”, “m”)
Text2.Text = Replace(Text2.Text, “N”, “n”)
Text2.Text = Replace(Text2.Text, “O”, “0”)
Text2.Text = Replace(Text2.Text, “P”, “p”)
Text2.Text = Replace(Text2.Text, “Q”, “q”)
Text2.Text = Replace(Text2.Text, “R”, “r”)
Text2.Text = Replace(Text2.Text, “S”, “5”)
Text2.Text = Replace(Text2.Text, “T”, “7”)
Text2.Text = Replace(Text2.Text, “U”, “u”)
Text2.Text = Replace(Text2.Text, “V”, “v”)
Text2.Text = Replace(Text2.Text, “X”, “x”)
Text2.Text = Replace(Text2.Text, “Y”, “y”)
Text2.Text = Replace(Text2.Text, “Z”, “z”)
Text2.Text = Replace(Text2.Text, “Ö”, “0”)
End Sub

Private Sub Command3_Click()
'deleet
Text1.Text = Replace(Text2.Text, “4”, “a”)
Text1.Text = Replace(Text1.Text, “8”, “b”)
Text1.Text = Replace(Text1.Text, “<”, “c”)
Text1.Text = Replace(Text1.Text, “|)”, “d”)
Text1.Text = Replace(Text1.Text, “3”, “e”)
Text1.Text = Replace(Text1.Text, “|=”, “f”)
Text1.Text = Replace(Text1.Text, “9”, “g”)
Text1.Text = Replace(Text1.Text, “|-|”, “h”)
Text1.Text = Replace(Text1.Text, “1”, “i”)
Text1.Text = Replace(Text1.Text, “]”, “j”)
Text1.Text = Replace(Text1.Text, “|{”, “k”)
Text1.Text = Replace(Text1.Text, “|_”, “l”)
Text1.Text = Replace(Text1.Text, “/\/”, “m”)
Text1.Text = Replace(Text1.Text, “|\|”, “n”)
Text1.Text = Replace(Text1.Text, “0”, “o”)
Text1.Text = Replace(Text1.Text, “|>”, “p”)
Text1.Text = Replace(Text1.Text, “q”, “q”)
Text1.Text = Replace(Text1.Text, “|2”, “r”)
Text1.Text = Replace(Text1.Text, “5”, “s”)
Text1.Text = Replace(Text1.Text, “7”, “t”)
Text1.Text = Replace(Text1.Text, “|_|”, “u”)
Text1.Text = Replace(Text1.Text, “\/”, “v”)
Text1.Text = Replace(Text1.Text, “x”, “x”)
Text1.Text = Replace(Text1.Text, “y”, “y”)
Text1.Text = Replace(Text1.Text, “z”, “z”)
Text1.Text = Replace(Text1.Text, “0”, “o”)
Text1.Text = Replace(Text1.Text, “l|”, “u”)
End Sub<br><br>- - - - - - - - - - - - - -
<a href="http://kasmir.hugi.is/izelord">Votre mère
</a

Það besta sem guð hefur skapað er nýr dagur.

Fyrra álit

Forritun

Forritun

Ofurhugar

Stjórnendur

Hverjir eru inni

Korkar - Almennt um forritun

leet/deleet

Dýr

Dægurmál

Fræði

Leikir

Lífið

Lífsstíll

Margmiðlun

Menning

Skjár

Sport

Tónlist

Tækni

Vélar

Hugi