Jump to content

1337 Converter

James

By James
in AutoIt Example Scripts

 Share

Recommended Posts

James Universalist

James

Posted
Posted

Howdy,

My 1337 converter. Are you 1337 enough?

#include <GUIConstants.au3>

Opt("ExpandEnvStrings", 1)
Opt("ExpandVarStrings", 1)

$sGui = GUICreate("1337 Converter :: Secure_ICT", 518, 447, -1, -1)
$Leet = GUICtrlCreateEdit("", 264, 8, 241, 361, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetData(-1, "")
$Normal = GUICtrlCreateEdit("", 8, 8, 241, 361, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetData(-1, "a")
$Convert = GUICtrlCreateButton("Convert", 392, 400, 105, 33, 0)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Convert
                 $translated = LeetSpeak(GUICtrlRead($Normal))
                GuiCtrlSetData($Leet, $translated, 1)
    EndSwitch
WEnd

Func LeetSpeak($text)
 $a = StringReplace($text, "a", "4", 0, 0)
 $b = StringReplace($a, "b", "8", 0, 0)
 $c = StringReplace($b, "c", "(", 0, 0)
 $d = StringReplace($c, "d", "|)", 0, 0)
 $e = StringReplace($d, "e", "3", 0, 0)
 $f = StringReplace($e, "f", "F", 0, 0)
 $g = StringReplace($f, "g", "G", 0, 0)
 $h = StringReplace($g, "h", "|-|", 0, 0)
 $i = StringReplace($h, "i", "1", 0, 0)
 $j = StringReplace($i, "j", "J", 0, 0)
 $k = StringReplace($j, "k", "|<", 0, 0)
 $l = StringReplace($k, "l", "|", 0, 0)
 $m = StringReplace($l, "m", "/\/\", 0, 0)
 $n = StringReplace($m, "n", "\/\", 0, 0)
 $o = StringReplace($n, "o", "0", 0, 0)
 $p = StringReplace($o, "p", "P", 0, 0)
 $q = StringReplace($p, "q", "Q", 0, 0)
 $r = StringReplace($q, "r", "|2", 0, 0)
 $s = StringReplace($r, "s", "5", 0, 0)
 $t = StringReplace($s, "t", "7", 0, 0)
 $u = StringReplace($t, "u", "(_)", 0, 0)
 $v = StringReplace($u, "v", "\/", 0, 0)
 $w = StringReplace($v, "w", "\/\/", 0, 0)
 $x = StringReplace($w, "x", "><", 0, 0)
 $y = StringReplace($x, "y", "Y", 0, 0)
 $z = StringReplace($y, "z", "Z", 0, 0)
  Return $z
EndFunc

See ya,

James

Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ
Richard Robertson Universalist

Richard Robertson

Posted
Posted (edited)

You should see the forum lexer I "was allowed to" add to my friend's forum.

http://www.cybersensibility.net/SMF/index.php?topic=167 for a demonstration.

I have quite a table of possible replacement characters instead of a single character replacement. Also, it followed a rule that it wouldn't always replace the character. It is rather advanced for a forum BBC tag.

Edited by Mr Icekirby
jvanegmond Universalist

jvanegmond

Posted
Posted

Tomorrow, if I choose not too go to school and do R.E revision here at home, I will start adding a random function to it, to make the letters change all the time.

Minor Mistake

Maybe, you could make a slider that goes from a light leet, to a heavy leet. :)

github.com/jvanegmond

tAKTelapis Universalist

tAKTelapis

Posted
Posted

nah,

F = |= (from memory)

G = 6

H = #

i = !

J = _|

M = |\/| not slashes, bars |

N = |\|, again, |

P = |>

r = |` whereas R = |2

Y = `/

7#3|`3 4|`3 07#2|`5 7#47 4|`3 |\|07 |`!6#7 8`/ |\/|3 8(_)7 !7 #45 833|\| 4 \/\/#!13

|\/|34|\|\/\/#!13 \/\/#0 |\|33|)5 4 +|`4|\|514+0|` ?

theguy0000 Universalist

theguy0000

Posted
Posted

Also inverse conversion would be good for leet noobs like me :)

think about that. It's pretty near impossible to get it converted right. For one thing, there are many different variations. Also, how to tell the difference between, say, W (\/\/) and VV (\/\/). see the problem? not to mention 1 can be either L or I. it's just too complicated.

The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN

Siddhartha Prodigy

Siddhartha

Posted
Posted

he has a point, there are many many different versions, unless you could make it convert each letter to the normal text, analyze it all with a word bank, and then replace the misspelled text with the "normal" text, it wont make sense....have fun making it do all that simultaneously :)

sandman Universalist

sandman

Posted
Posted

7#3|`3 4|`3 07#2|`5 7#47 4|`3 |\|07 |`!6#7 8`/ |\/|3 8(_)7 !7 #45 833|\| 4 \/\/#!13

|\/|34|\|\/\/#!13 \/\/#0 |\|33|)5 4 +|`4|\|514+0|` ?

"There are others that are not right by me but it has been a while

meanwhile who needs a translation?"

Bwahaha I translated it

Very nice, although all the others are right, there are way too many variations to have it always work.

btw, I had to self translate the above, couldn't find a translator that understood it, which proves my point. This is what one translator got:

thei`e ai`e othzi`s that ai`e not i`ight by me bc_)t it has been a whlle

meanwhlle who needs a ti`anslatd` ?

:)

[center]"Yes, [our app] runs on Windows as well as Linux, but if you had a Picasso painting, would you put it in the bathroom?" -BitchX.com (IRC client)"I would change the world, but they won't give me the source code." -Unknownsite . blog . portfolio . claimidcode.is.poetry();[/center]

James Universalist

James

Posted
  • Author
Posted

So far, I have changed some lettering and added an inverse translation function. I will work on Random later.

#include <GUIConstants.au3>

Opt("ExpandEnvStrings", 1)
Opt("ExpandVarStrings", 1)

$sGui = GUICreate("1337 Converter :: Secure_ICT", 518, 447, -1, -1)
$Leet = GUICtrlCreateEdit("", 264, 8, 241, 361, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetData(-1, "")
$Normal = GUICtrlCreateEdit("", 8, 8, 241, 361, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetData(-1, "")
$Convertleet = GUICtrlCreateButton("&Convert 1337", 392, 400, 105, 33, 0)
$Convertnorm = GuiCtrlCreateButton("&Convert English", 280, 400, 105, 33, 0)
$Information = GuiCtrlCreateButton("&Help me", 167, 400, 105, 33, 0)
GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Convertleet
            $translated = LeetSpeak(GUICtrlRead($Normal))
            GuiCtrlSetData($Leet, $translated, 1)
            GuiCtrlSetData($Normal, "")
        Case $Convertnorm
            $translated = NormSpeak(GuiCtrlRead($Leet))
            GuiCtrlSetData($Normal, $translated, 1)
            GuiCtrlSetData($Leet, "")
        Case $Information
            _IGui()
    EndSwitch
WEnd

Func NormSpeak($text)
    $a = StringReplace($text, "4", "a", 0, 0)
    $b = StringReplace($a, "8", "b", 0, 0)
    $c = StringReplace($b, "(", "c", 0, 0)
    $d = StringReplace($c, "|)", "d", 0, 0)
    $e = StringReplace($d, "3", "e", 0, 0)
    $f = StringReplace($e, "|=", "f", 0, 0)
    $g = StringReplace($f, "6", "g", 0, 0)
    $h = StringReplace($g, "#", "h", 0, 0)
    $i = StringReplace($h, "!", "i", 0, 0)
    $j = StringReplace($i, "_|", "j", 0, 0)
    $k = StringReplace($j, "|<", "k", 0, 0)
    $l = StringReplace($k, "1", "l", 0, 0)
    $m = StringReplace($l, "|v|", "m", 0, 0)
    $n = StringReplace($m, "|\|", "n", 0, 0)
    $o = StringReplace($n, "0", "o", 0, 0)
    $p = StringReplace($o, "|>", "p", 0, 0)
    $q = StringReplace($p, "Q", "q", 0, 0)
    $r = StringReplace($q, "|`", "r", 0, 0)
    $s = StringReplace($r, "5", "s", 0, 0)
    $t = StringReplace($s, "+", "t", 0, 0)
    $u = StringReplace($t, "(_)", "u", 0, 0)
    $v = StringReplace($u, "\/", "v", 0, 0)
    $w = StringReplace($v, "\/\/", "w", 0, 0)
    $x = StringReplace($w, "><", "x", 0, 0)
    $y = StringReplace($x, "`/", "y", 0, 0)
    $z = StringReplace($y, "Z", "z", 0, 0)
    Return $z
EndFunc

Func LeetSpeak($text)
    $a = StringReplace($text, "a", "4", 0, 0)
    $b = StringReplace($a, "b", "8", 0, 0)
    $c = StringReplace($b, "c", "(", 0, 0)
    $d = StringReplace($c, "d", "|)", 0, 0)
    $e = StringReplace($d, "e", "3", 0, 0)
    $f = StringReplace($e, "f", "F", 0, 0)
    $g = StringReplace($f, "g", "6", 0, 0)
    $h = StringReplace($g, "h", "#", 0, 0)
    $i = StringReplace($h, "i", "!", 0, 0)
    $j = StringReplace($i, "j", "_|", 0, 0)
    $k = StringReplace($j, "k", "|<", 0, 0)
    $l = StringReplace($k, "l", "1", 0, 0)
    $m = StringReplace($l, "m", "|v|", 0, 0)
    $n = StringReplace($m, "n", "|\|", 0, 0)
    $o = StringReplace($n, "o", "0", 0, 0)
    $p = StringReplace($o, "p", "|>", 0, 0)
    $q = StringReplace($p, "q", "Q", 0, 0)
    $r = StringReplace($q, "r", "|'", 0, 0)
    $s = StringReplace($r, "s", "5", 0, 0)
    $t = StringReplace($s, "t", "+", 0, 0)
    $u = StringReplace($t, "u", "(_)", 0, 0)
    $v = StringReplace($u, "v", "\/", 0, 0)
    $w = StringReplace($v, "w", "\/\/", 0, 0)
    $x = StringReplace($w, "x", "><", 0, 0)
    $y = StringReplace($x, "y", "`/", 0, 0)
    $z = StringReplace($y, "z", "Z", 0, 0)
    Return $z
EndFunc

Func _IGui()
    $iGui = GUICreate("1337 Translator Information :: Secure_ICT", 362, 274, -1, -1)
    $iEdit = GUICtrlCreateEdit("", 0, 0, 361, 273, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
    GUICtrlSetData(-1, StringFormat("Secure_ICT 1337 Translator\r\n\r\nThis translator will translate from 1337 to English and Vice-Versa.\r\n\r\nIt will also randomly translate the letters so you will have a different \r\noutcome everytime :P"))
    GUISetState(@SW_SHOW)
    
    While WinActive($iGui)
        $iMsg = GuiGetMsg()
        Switch $iMsg
            Case $GUI_EVENT_CLOSE
                GuiDelete($iGui)
        EndSwitch
    WEnd
EndFunc
Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ
Richard Robertson Universalist

Richard Robertson

Posted
Posted (edited)

In case it helps you, here is my table straight from the 1337 tag source.

'A'=>'/-\,4,@,â²,Î,α,ª',

'B'=>'8,|3,|o,6,ß',

'C'=>'(,<,[,©,ζ',

'D'=>'|),[),o|,δ,Ð',

'E'=>'3,[-,ε,έ,Э',

'F'=>'#,|=',

'G'=>'9,6,ξ',

'H'=>'|-|,]-[,Ħ,ħ',

'I'=>'!,1,|,][,×',

'J'=>'_|,_]',

'K'=>'|<',

'L'=>'1,|_,7',

'M'=>'|\/|',

'N'=>'|\|,^',

'O'=>'(),0,[],<>',

'P'=>'|*,|>,¶,þ',

'Q'=>'&,0-,Ï,Ï',

'R'=>'|2,®,Я',

'S'=>'$,5,<',

'T'=>'7,+,?',

'U'=>'|_|',

'V'=>'\/',

'W'=>'|/\|,\/\/',

'X'=>'><,*,Ò²,Ò,Ï',

'Y'=>'â/,%,Ò°,Ò¸,Ï',

'Z'=>'2,>'

It's a little weird, but it works. Some of the characters won't show up correctly because they are extended characters.

Edited by Mr Icekirby
Gif Universalist

Gif

Posted
Posted

Right. Well I can use a different font for extended characters.

pretty much like my hacker language converter, (found hacer language at a site)....

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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...