1337 Text Translator

[AlmarM]

Was bored and made this:

expandcollapse popup

#include <GUIConstants.au3>

$GUI = GUICreate("1337 Text Translator", 200, 90, -1, -1)
$Input = GUICtrlCreateInput("", 10, 60, 180, 20)
$Button = GUICtrlCreateButton("1337 My Text", 10, 30, 180, 25)
$Label = GUICtrlCreateLabel("", 10, 10, 180, 20)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
        Exit
    Case $nMsg = $Button
        $string = GUICtrlRead($Input)
        $string = StringReplace($string, "s", "$")
        $string = StringReplace($string, "a", "4")
        $string = StringReplace($string, "o", "0")
        $string = StringReplace($string, "i", "!")
        $string = StringReplace($string, "e", "3")
        $string = StringReplace($string, "l", "|_")
        $string = StringReplace($string, "p", "|>")
        $string = StringReplace($string, "t", "7")
        $string = StringReplace($string, ".", ",")
        $string = StringReplace($string, "b", "/3")
        $string = StringReplace($string, "c", "(")
        $string = StringReplace($string, "d", "[)")
        $string = StringReplace($string, "h", "]-[")
        $string = StringReplace($string, "k", "|<")
        $string = StringReplace($string, "m", "|v|")
        $string = StringReplace($string, "n", "/\/")
        $string = StringReplace($string, "q", "()_")
        $string = StringReplace($string, "r", "/2")
        $string = StringReplace($string, "v", "\/")
        $string = StringReplace($string, "w", "\/\/")
        $string = StringReplace($string, "x", "><")
        $string = StringReplace($string, "y", "`/")
        $string = StringReplace($string, "z", "7_")
        MsgBox(0, "1337 Text", $string)
    EndSelect
WEnd

Edited February 2, 2008 by AlmarM

[JustinReno]

You could also retranslate it:

#include <GUIConstants.au3>

$GUI = GUICreate("1337 Text Translator", 200, 90, -1, -1)
$Input = GUICtrlCreateInput("", 10, 60, 180, 20)
$Button = GUICtrlCreateButton("Redo Text", 10, 30, 180, 25)
$Label = GUICtrlCreateLabel("", 10, 10, 180, 20)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
        Exit
    Case $nMsg = $Button
        $string = GUICtrlRead($Input)
        $string = StringReplace($string, "$", "s")
        $string = StringReplace($string, "4", "a")
        $string = StringReplace($string, "0", "o")
        $string = StringReplace($string, "!", "i")
        $string = StringReplace($string, "3", "e")
        $string = StringReplace($string, "|_", "l")
        $string = StringReplace($string, "[]D", "p")
        $string = StringReplace($string, "7", "t")
        $string = StringReplace($string, ",", ".")
        $string = StringReplace($string, "$", "S")
        $string = StringReplace($string, "4", "A")
        $string = StringReplace($string, "0", "O")
        $string = StringReplace($string, "!", "i")
        $string = StringReplace($string, "3", "e")
        $string = StringReplace($string, "|_", "l")
        $string = StringReplace($string, "[]D", "p")
        $string = StringReplace($string, "7", "t")
        GUICtrlSetData($Label, $string)
    EndSelect
WEnd

[Kaneluv]

Ha, nice work.

I found this amusing.

[GEOSoft]

You could also retranslate it:

#include <GUIConstants.au3>

$GUI = GUICreate("1337 Text Translator", 200, 90, -1, -1)
$Input = GUICtrlCreateInput("", 10, 60, 180, 20)
$Button = GUICtrlCreateButton("Redo Text", 10, 30, 180, 25)
$Label = GUICtrlCreateLabel("", 10, 10, 180, 20)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
        Exit
    Case $nMsg = $Button
        $string = GUICtrlRead($Input)
        $string = StringReplace($string, "$", "s")
        $string = StringReplace($string, "4", "a")
        $string = StringReplace($string, "0", "o")
        $string = StringReplace($string, "!", "i")
        $string = StringReplace($string, "3", "e")
        $string = StringReplace($string, "|_", "l")
        $string = StringReplace($string, "[]D", "p")
        $string = StringReplace($string, "7", "t")
        $string = StringReplace($string, ",", ".")
        $string = StringReplace($string, "$", "S")
        $string = StringReplace($string, "4", "A")
        $string = StringReplace($string, "0", "O")
        $string = StringReplace($string, "!", "i")
        $string = StringReplace($string, "3", "e")
        $string = StringReplace($string, "|_", "l")
        $string = StringReplace($string, "[]D", "p")
        $string = StringReplace($string, "7", "t")
        GUICtrlSetData($Label, $string)
    EndSelect
WEnd

Put all of the text and 1337 characters into 2D array then 1 script would do it all.

Edit: You could also cut it down by removing the duplicate replacement strings.

Edited November 21, 2007 by GEOSoft

[JustinReno]

I'm not good with arrays.

[Tomb]

i made this a long time ago.

it was my first gui based program.

http://www.blizzsector.net/hacks-dupes/425...-1337-text.html

i am now searching for my source code on my pc

Edited November 22, 2007 by Tomb616

[kev51773]

You could also retranslate it:

Actually, you couldn't.

It works in one direction because your only turning letters into symbols/numbers. If there were already any symbols/numbers in the string, they're left unchanged.

In the reverse you'd end up with a mess.

[JustinReno]

Actually, you couldn't.

It works in one direction because your only turning letters into symbols/numbers. If there were already any symbols/numbers in the string, they're left unchanged.

In the reverse you'd end up with a mess.

Did you look at my code?

It changes the symbals/#s back into letters.

[McGod]

It would create a mess, look @ it this way

Original:

The total is $4.50

L33T:

7h3 7074|_ !$ $4,50

Convert back would be:

the total is sa.50

[Terrified]

really nice man im trying to do something simmilar to your script too ;P

[jvanegmond]

I often use this to annoy people:

$Hotkey = "i,o,a,s,e" ; l3tt3r$ d13 0mg3z3t m033t3n word3n
$l33t   = "1,0,4,$,3" ; d3 n44r om t3 z3tt3n l3tt3r$

Global Const $aHotkey = StringSplit($Hotkey,",")
Global Const $al33t = StringSplit($l33t,",")

For $x = 1 to $aHotkey[0]
    HotKeySet($aHotkey[$x],"l33tfunc")
Next

While 1
    Sleep(1000)
WEnd

Func l33tfunc()
    For $x = 1 to $aHotkey[0]
        If $aHotkey[$x] = @HotKeyPressed Then Send($al33t[$x])
    Next
EndFunc

Comments are dutch.

[AlmarM]

I updated my script afther a long time ago

expandcollapse popup

#include <GUIConstants.au3>

$GUI = GUICreate("1337 Text Translator", 200, 90, -1, -1)
$Input = GUICtrlCreateInput("", 10, 60, 180, 20)
$Button = GUICtrlCreateButton("1337 My Text", 10, 30, 180, 25)
$Label = GUICtrlCreateLabel("", 10, 10, 180, 20)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
        Exit
    Case $nMsg = $Button
        $string = GUICtrlRead($Input)
        $string = StringReplace($string, "s", "$")
        $string = StringReplace($string, "a", "4")
        $string = StringReplace($string, "o", "0")
        $string = StringReplace($string, "i", "!")
        $string = StringReplace($string, "e", "3")
        $string = StringReplace($string, "l", "|_")
        $string = StringReplace($string, "p", "|>")
        $string = StringReplace($string, "t", "7")
        $string = StringReplace($string, ".", ",")
        $string = StringReplace($string, "b", "/3")
        $string = StringReplace($string, "c", "(")
        $string = StringReplace($string, "d", "[)")
        $string = StringReplace($string, "h", "]-[")
        $string = StringReplace($string, "k", "|<")
        $string = StringReplace($string, "m", "|v|")
        $string = StringReplace($string, "n", "/\/")
        $string = StringReplace($string, "q", "()_")
        $string = StringReplace($string, "r", "/2")
        $string = StringReplace($string, "v", "\/")
        $string = StringReplace($string, "w", "\/\/")
        $string = StringReplace($string, "x", "><")
        $string = StringReplace($string, "y", "`/")
        $string = StringReplace($string, "z", "7_")
        MsgBox(0, "1337 Text", $string)
    EndSelect
WEnd

[lsakizada]

What is usefull for?

[NELyon]

What is usefull for?

It's useful for... just about nothing

It's fun to mess with though, and have people try to read the original text

[James]

Manadar, 1 4m 3v3n m0r3 l337!

$Hotkey = "i,o,a,s,e,b,t,I,O,S,E,B,T"; l3tt3r$ d13 0mg3z3t m033t3n word3n
$l33t   = "1,0,4,$,3,8,7,1,0,$,3,8,7"; d3 n44r om t3 z3tt3n l3tt3r$

Global Const $aHotkey = StringSplit($Hotkey,",")
Global Const $al33t = StringSplit($l33t,",")

For $x = 1 to $aHotkey[0]
    HotKeySet($aHotkey[$x],"l33tfunc")
Next

While 1
    Sleep(1000)
WEnd

Func l33tfunc()
    For $x = 1 to $aHotkey[0]
        If $aHotkey[$x] = @HotKeyPressed Then Send($al33t[$x])
    Next
EndFunc

Edited February 3, 2008 by JamesB

[Mattraks]

I made it better, not having it in a popup.

expandcollapse popup

#include <GUIConstants.au3>

$GUI = GUICreate("1337 Text Translator", 200, 90, -1, -1)
$Input = GUICtrlCreateInput("", 10, 60, 180, 20)
$Button = GUICtrlCreateButton("1337 My Text", 10, 30, 180, 25)
$Label = GUICtrlCreateLabel("", 10, 10, 180, 20)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
        Exit
    Case $nMsg = $Button
        $string = GUICtrlRead($Input)
        $string = StringReplace($string, "s", "$")
        $string = StringReplace($string, "a", "4")
        $string = StringReplace($string, "o", "0")
        $string = StringReplace($string, "i", "!")
        $string = StringReplace($string, "e", "3")
        $string = StringReplace($string, "l", "|_")
        $string = StringReplace($string, "p", "|>")
        $string = StringReplace($string, "t", "7")
        $string = StringReplace($string, ".", ",")
        $string = StringReplace($string, "b", "/3")
        $string = StringReplace($string, "c", "(")
        $string = StringReplace($string, "d", "[)")
        $string = StringReplace($string, "h", "]-[")
        $string = StringReplace($string, "k", "|<")
        $string = StringReplace($string, "m", "|v|")
        $string = StringReplace($string, "n", "/\/")
        $string = StringReplace($string, "q", "()_")
        $string = StringReplace($string, "r", "/2")
        $string = StringReplace($string, "v", "\/")
        $string = StringReplace($string, "w", "\/\/")
        $string = StringReplace($string, "x", "><")
        $string = StringReplace($string, "y", "`/")
        $string = StringReplace($string, "z", "7_")
        GUICtrlSetData($Input, $string)
    EndSelect
WEnd

[jvanegmond]

Manadar, 1 4m 3v3n m0r3 l337!

$Hotkey = "i,o,a,s,e,b,t,I,O,S,E,B,T"; l3tt3r$ d13 0mg3z3t m033t3n word3n
$l33t   = "1,0,4,$,3,8,7,1,0,$,3,8,7"; d3 n44r om t3 z3tt3n l3tt3r$

Global Const $aHotkey = StringSplit($Hotkey,",")
Global Const $al33t = StringSplit($l33t,",")

For $x = 1 to $aHotkey[0]
    HotKeySet($aHotkey[$x],"l33tfunc")
Next

While 1
    Sleep(1000)
WEnd

Func l33tfunc()
    For $x = 1 to $aHotkey[0]
        If $aHotkey[$x] = @HotKeyPressed Then Send($al33t[$x])
    Next
EndFunc

Yeah, I made it so you can add your own stuff easily.

[Richard Robertson]

But what happens if you need to type something like Dim and it gets turned into D1m? Maybe a pause hot key too.

[AlmarM]

Why would u turn on this script, if ur scripting urself ?

[FreeFry]

Mine's the leetestestest

expandcollapse popup

Dim $Hotkeys[13][2] = [["i", "1"],["o", "0"],["a", "4"],["s", "$"],["e", "3"],["b", "8"],["t", "7"],["I", "1"],["O", "0"],["S", "$"],["E", "3"],["B", "8"],["T", "7"]], $Paused = False

HotKeySet("{pause}", "_Pause")

_Bind(1)

While 1
    Sleep(1000)
WEnd

Func l33tfunc()
    For $x = 0 to UBound($Hotkeys)-1
        If $Hotkeys[$x][0] == @HotKeyPressed Then Send($Hotkeys[$x][1])
    Next
EndFunc

Func _Bind($i_State)
    If $i_State Then
        For $x = 0 to UBound($Hotkeys)-1
            HotKeySet($Hotkeys[$x][0],"l33tfunc")
        Next
    Else
        For $x = 0 to UBound($Hotkeys)-1
            HotKeySet($Hotkeys[$x][0])
        Next
    EndIf
EndFunc

Func _Pause()
    $Paused = $Paused
    If $Paused Then
        _Bind(1)
        ToolTip("Leet speak enabled!")
    Else
        _Bind(0)
        ToolTip("Leet speak disabled!")
    EndIf
EndFunc

Also fixed the bug where it would send twice the char(because of binding large and small letters, caused by not having the "leetfunc" not being case sensetive)

Might not be as easy to add keys, but hey who cares anyway lol