Angeregt von Fast2 habe ich jetzt mal einen Leetspeak-generator geschaffen, zwar sehr simpel, aber lustig.
Man kann zwischen zwei Modi, nur Zahlen und Buchstaben, oder auch noch normale Sonderzeichen wählen.
Aus:
Dieses Programm macht zwar schon Fun, wird aber noch besser.
Macht er:
13535 |)|209|2433 34(|-|7 2\/\/4|2 5(|-|0/\/ Ph()/\/, \/\/1|2|) 4|30r /\/0(|-| |33550r.
Bzw.:
013535 98098433 34647 2448 56405 Ph05, 4180 430r 5064 33550r.
Spoiler anzeigen
$zahlen=False
$leet = InputBox("13370r", "7\/|)3 \/4 |)474:" & @CRLF & "# 04408 = 208 248135)")
If StringLeft($leet, 1) = "#" Then $zahlen = True
$leet = StringTrimLeft($leet, 1)
$leet = StringReplace($leet, "a", "4")
$leet = StringReplace($leet, "er", "0r", 0, 1)
If $zahlen Then
$leet = StringReplace($leet, "b", "3")
Else
$leet = StringReplace($leet, "b", "|3")
EndIf
If $zahlen Then
$leet = StringReplace($leet, "c", "6")
Else
$leet = StringReplace($leet, "c", "(")
EndIf
If $zahlen Then
$leet = StringReplace($leet, "d", "0")
Else
$leet = StringReplace($leet, "d", "|)")
EndIf
$leet = StringReplace($leet, "e", "3")
$leet = StringReplace($leet, "f", "##/=\##", 0, 1)
$leet = StringReplace($leet, "F", "##/}\##", 0, 1)
$leet = StringReplace($leet, "g", "9")
If $zahlen Then
$leet = StringReplace($leet, "h", "4")
Else
$leet = StringReplace($leet, "h", "|-|")
EndIf
$leet = StringReplace($leet, "i", "1")
$leet = StringReplace($leet, "j", "9")
$leet = StringReplace($leet, "k", "4")
$leet = StringReplace($leet, "l", "1")
$leet = StringReplace($leet, "m", "3")
If $zahlen Then
$leet = StringReplace($leet, "n", "5")
Else
$leet = StringReplace($leet, "n", "/\/")
EndIf
$leet = StringReplace($leet, "o", "0")
If $zahlen Then
$leet = StringReplace($leet, "p", "9")
Else
$leet = StringReplace($leet, "p", "|)")
EndIf
If $zahlen Then
$leet = StringReplace($leet, "q", "9")
Else
$leet = StringReplace($leet, "q", "()_")
EndIf
$leet = StringReplace($leet, "0r", "##/\##")
If $zahlen Then
$leet = StringReplace($leet, "r", "8")
Else
$leet = StringReplace($leet, "r", "|2")
EndIf
$leet = StringReplace($leet, "##/\##", "0r")
$leet = StringReplace($leet, "s", "5")
$leet = StringReplace($leet, "t", "7")
If $zahlen Then
$leet = StringReplace($leet, "u", "0")
Else
$leet = StringReplace($leet, "u", "()")
EndIf
If $zahlen Then
$leet = StringReplace($leet, "v", "4")
Else
$leet = StringReplace($leet, "v", "\/")
EndIf
If $zahlen Then
$leet = StringReplace($leet, "w", "4")
Else
$leet = StringReplace($leet, "w", "\/\/")
EndIf
$leet = StringReplace($leet, "x", "8")
$leet = StringReplace($leet, "y", "4")
$leet = StringReplace($leet, "z", "2")
$leet = StringReplace($leet, "##/=\##", "ph", 0, 1)
$leet = StringReplace($leet, "##/}\##", "Ph", 0, 1)
ClipPut($leet)
MsgBox(64, "13370r", "1337 157 13 (1!|)|304|2|)!" & @CRLF & @CRLF & $leet)