13370r xD

L3viathan

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

[autoit]

$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

[/autoit] [autoit][/autoit] [autoit]

$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

[/autoit] [autoit][/autoit] [autoit]

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)

[/autoit]

L3viathan

Dein Code darf eigtl. nicht funzen, wegen dem Funktionsnamen...
Hier meine Version...

UDF

[autoit]

Func leet($leet,$zahlen=False,$Clip=False)
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

[/autoit] [autoit][/autoit] [autoit]

$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

[/autoit] [autoit][/autoit] [autoit]

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)
If $clip Then ClipPut($leet)
return $leet
EndFunc

[/autoit]

L3viathan

1.) In welcher Sprache gehen denn bitte Zahlen als Funktionsnamen?
2) TjaSchicksal konnte drüber lachen , außerdem ist es doch zum wegschmeißen

K1773R

lustig wärs jetzt noch umgekehrt sonnst machts eig kein sinn

**BugFix**

[OT]
Aber... Deutsch könnt ihr auch?
[/OT]

K1773R

sry für mein deutsch einfach ma gucken woher ich komme oO

**BugFix**

Zitat von K1773R

sry für mein deutsch einfach ma gucken woher ich komme oO

Der Gag zielte eigentlich nicht auf dein deutsch sondern auf das Ge"1337"e

Padmak

Schreib mal ne funktion die das wieder zurückverwandelt
kann ja keine Sau lesen

Padmak

L3viathan

Doch
Mach mal was und poste es... entschlüsselfunk. geht nicht so einfach, weil es immer mehrere Möglichkeiten gibt.

K1773R

BugFix
ok dann ist ja alles gut

@Padmak
benutz ma des für 1 woche danach kannst es fliessend lesen

FarAway

Wenn ich etwas bemerken darf, ein paar Buchstaben können nicht dargestellt werden.
z.B. K

MfG
FarAway

**peethebee**

|< ?

p33t

L3viathan

Du kannst alle Buchstaben damit darstellen, wenn du genug Vorstellungskraft hast .

FarAway

Wenn du meinst
Aber guter Script

MfG
FarAway

L3viathan

Zitat von FarAway

Aber guter Script

[irony]Ist programmiertechnisch auch extrem anspruchsvoll, hab fast zwei Wochen dran gesessen[/irony]

FarAway

Hehe:D
Wie gesagt, ist dir gut gelungen
Was mir aber aufgefallen ist, ist dass der erste Buchstabe nicht in deine "Sprache" übersetzt wird sondern einfach weggelassen wird..

MfG
FarAway

Padmak

Sein "Sprache" ist keine Sprache von ihm, sondern eine "Leet"-Sprache
Siehe Daa

Spoiler anzeigen

Padmak

oder was hast du hier erwartet?

L3viathan

It's not a bug, it's a feature:
1.Zeichen "#"--> HardcoreLeetspeak
1.Zeichen " " (oder irgendwas anderes) -->Standart Leetspeak

Padmak

Hahaha^^
Das würd ich auch sagen^^
Ich habs Far schon erklärt...
Er ist grad noch neben mir gestanden

Padmak

FarAway

Ja..