Jump to content

1337 Converter


James
 Share

Recommended Posts

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

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

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

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

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

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

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
Link to comment
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
 Share

  • Recently Browsing   0 members

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