Jump to content
Sign in to follow this  
James

1337 Converter

Recommended Posts

James

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

Share this post


Link to post
Share on other sites
November

ASCII Art :)

Nice :D

Cheers


Old Scriptology

Visual Ping 1.8 - Mass Ping Program with export to txt delimited.

Desktop 2 RGB and YMCK - Pick a color in the desktop and get the RGB and YMCK code.

Desktop 2 RGB - Pick a color in the desktop and get the RGB code.

ShootIT 1.0 - Screen Capture full and partial screen

[font="'Arial Black';"]Remember Remember The Fifth of November.[/font]

Share this post


Link to post
Share on other sites
jokke

Minor bug.. L = 1


UDF:Crypter a file encrypt / decrypt tool with no need to remember a password again. Based on Caesar cipher using entire ASCII Table.Script's: PixelSearch Helper, quick and simple way to create a PixelSeach.Chatserver - simplified, not so complicated multi-socket server.AutoIT - Firewall, simple example on howto create a firewall with AutoIt.

Share this post


Link to post
Share on other sites
Richard Robertson

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

Share this post


Link to post
Share on other sites
James

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

Edited by Secure_ICT

Share this post


Link to post
Share on other sites
jvanegmond

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. :)

Share this post


Link to post
Share on other sites
Zedna

Nice fun.

$n = StringReplace($m, "n", "\/\", 0, 0)oÝ÷ ÚÈhºW[y·­µêÚºÚ"µÍÌÍÛHÝ[ÔXÙJ ÌÍÛK ][ÝÛ][ÝË    ][ÝËÉÌLËÉ][ÝË

EDIT: Also little bug: you must clear right panel on Convert

Edited by Zedna

Share this post


Link to post
Share on other sites
tAKTelapis

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|` ?

Share this post


Link to post
Share on other sites
theguy0000

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

Share this post


Link to post
Share on other sites
Siddhartha

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 :)

Share this post


Link to post
Share on other sites
sandman

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]

Share this post


Link to post
Share on other sites
James

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

Share this post


Link to post
Share on other sites
Richard Robertson

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

Share this post


Link to post
Share on other sites
Gif

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

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

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  

×