Jump to content
Sign in to follow this  
AlmarM

1337 Text Translator

Recommended Posts

AlmarM

Was bored and made this:

#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 by AlmarM

Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
Kaneluv

Ha, nice work.

I found this amusing.

Share this post


Link to post
Share on other sites
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 by GEOSoft

George

Question about decompiling code? Read the decompiling FAQ and don't bother posting the question in the forums.

Be sure to read and follow the forum rules. -AKA the AutoIt Reading and Comprehension Skills test.***

The PCRE (Regular Expression) ToolKit for AutoIT - (Updated Oct 20, 2011 ver:3.0.1.13) - Please update your current version before filing any bug reports. The installer now includes both 32 and 64 bit versions. No change in version number.

Visit my Blog .. currently not active but it will soon be resplendent with news and views. Also please remove any links you may have to my website. it is soon to be closed and replaced with something else.

"Old age and treachery will always overcome youth and skill!"

Share this post


Link to post
Share on other sites
JustinReno

I'm not good with arrays.

Share this post


Link to post
Share on other sites
kev51773

You could also retranslate it:

Actually, you couldn't. :P

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.

Share this post


Link to post
Share on other sites
JustinReno

Actually, you couldn't. :P

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.

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
Terrified

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

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites
AlmarM

I updated my script afther a long time ago :)

#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

Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post


Link to post
Share on other sites
lsakizada

What is usefull for?


Be Green Now or Never (BGNN)!

Share this post


Link to post
Share on other sites
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 :)

Share this post


Link to post
Share on other sites
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 by JamesB

Share this post


Link to post
Share on other sites
Mattraks

I made it better, not having it in a 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

Share this post


Link to post
Share on other sites
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. :)

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites
AlmarM

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


Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Share this post


Link to post
Share on other sites
FreeFry

Mine's the leetestestest

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×