Sign in to follow this  
Followers 0
jvanegmond

l33t-sp34k g3n3r4t0r

31 posts in this topic

#1 ·  Posted (edited)

For some reason, a lot of people are attracted to leet speak generators. I found a list of how to translate normal speak into leet speak, and decided to build a script for it. I'm currently looking for someone to write a decrypter!

!|= §¤//.3¤//& '//¤v||) 8& \/\/¦#1|//& 7() |)&[Y|^]~[3[z -|-{=}&z& //.£$§@9&5 (_)z|//9 4// @v-|-()!+ z¢2||^+, 1#&// |^1£@§3 |>3 //.Y 9(_)3$-|- @//|) 4[)|) +{=}& z()#|_|-|-!¤// 8^¢}< -|-0 7[-]¦z 1¤|"!<. ! //&<3P\ (n)/\//13o| -|-0 +/-\|<3 7]~[15 -|-|-|47 |#@2 6£(@(_)53 ! ]~[/-\\/£ //.02& !//.|>()P\14//1 z7(_)|#|# -|-¤ o|() +}{@// '//P\¦13 -|-|-|!z [)|_|//.8 |3&-|- &&//3241¤2.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

Dim $translate[26][8] = [ _
["4","/\","@","/-\","^"],  _ 
["8","6","|3","|>"],  _ 
["[","¢","<","("],  _ 
["|)","o|","[)"],  _ 
["3","&","£"],  _ 
["|=","ph","|#"],  _ 
["9","6","&;","(_+"],  _ 
["#","[-]","{=}","<~>","|-|","]~[","}{"],  _ 
["1","!","|","¦"],  _ 
[",|","_|",";"],  _ 
["|<","|{","]{","}<"],  _ 
["1","|","|_","#"],  _ 
["//.","^^","|v|","[V]","{V}","|\/|","/\/\","(u)"],  _ 
["//","^/ ","|\|","/\/","[\]","]\[","<\>","{\}"],  _ 
["0","()","¤"],  _ 
["|^","|*","|o","|>","|""","|?"],  _ 
["9","(,)","<|","¶","0."],  _ 
["|2","2","P\","lz","[z"],  _ 
["5","$","z","§"],  _ 
["7","+","-|-","1"],  _ 
["(_)","|_|","v"],  _ 
["\/","<"],  _ 
["\/\/","'//","\^/","(n)","\V/"],  _ 
["><"],  _ 
["Y","'/","`/","V/","\-/","j","_v also ¥","%"],  _ 
["2","z","~\_","~/_"] ]

$Form1 = GUICreate("l33t-sp34k g3n3r4t0r", 333, 328, 193, 115)
$Label1 = GUICtrlCreateLabel("Normal Text:", 5, 10, 64, 17)
$Edit1 = GUICtrlCreateEdit("", 5, 30, 320, 89, $ES_WANTRETURN)
$Button1 = GUICtrlCreateButton("Tr4n$L4+E", 5, 130, 75, 25, 0)
$Label2 = GUICtrlCreateLabel("L33t Sp34k:", 5, 165, 62, 17)
$Edit2 = GUICtrlCreateEdit("", 5, 185, 320, 89, $ES_WANTRETURN)
$Button3 = GUICtrlCreateButton("Copy Text to Clipboard", 5, 290, 130, 25, 0)
$Button4 = GUICtrlCreateButton("About", 185, 290, 70, 25, 0)
$Button5 = GUICtrlCreateButton("Exit", 255, 290, 70, 25, 0)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1 ; "Translate to 1337"
            $normal = GUICtrlRead($Edit1)
            $char = StringSplit($normal,"")
            $1337 = ""
            For $i = 1 to UBound($char)-1
                $n = Asc(StringUpper($char[$i])) - 65
                If ( $n >= 0 And $n <= 25 ) Then
                    $1337 &= _GetChar($n)
                Else
                    If ( $char[$i] == " " ) Then $char[$i] = "   "
                    $1337 &= $char[$i]
                EndIf
            Next
            GUICtrlSetData($Edit2,$1337)
        Case $Button3
            ClipPut(GUICtrlRead($Edit2))
        Case $Button4
            $v = MsgBox(0x44,"l33t-sp34k g3n3r4t0r", "Made by Manadar.com" & @CRLF & "Click Yes to visit manadar.com now.")
            If ( $v == 6 ) Then
                ShellExecute("http://www.manadar.com")
            EndIf
        Case $Button5
            Exit
    EndSwitch
WEnd

Func _GetChar($n)
    $bound = 0
    For $i = 0 to UBound($translate,2)-1
        If ( $translate[$n][$i] == "" ) Then
            $bound = $i
            ExitLoop
        EndIf
    Next
    
    return $translate[$n][Random(0,$bound-1,1)]
EndFunc
Edited by Manadar

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

\/£[zY //!<& (n)()P\}< //./\//@[)^|2.

|1`$ <£lzY phv////Y.

3o||-|-: //./-\}<3 +0 <4// +2@//5#^7& ph|2¤//. l33t-sp34k -|-() //¤lz//./\# +3><7.

Edited by Andreik

When the words fail... music speaks

Share this post


Link to post
Share on other sites

!|= §¤//.3¤//& '//¤v||) 8& \/\/¦#1|//& 7() |)&[Y|^]~[3[z -|-{=}&z& //.£$§@9&5 (_)z|//9 4// @v-|-()!+ z¢2||^+, 1#&// |^1£@§3 |>3 //.Y 9(_)3$-|- @//|) 4[)|) +{=}& z()#|_|-|-!¤// 8^¢}< -|-0 7[-]¦z 1¤|"!<. ! //&<3P\ (n)/\//13o| -|-0 +/-\|<3 7]~[15 -|-|-|47 |#@2 6£(@(_)53 ! ]~[/-\\/£ //.02& !//.|>()P\14//1 z7(_)|#|# -|-¤ o|() +}{@// '//P\¦13 -|-|-|!z [)|_|//.8 |3&-|- &&//3241¤2.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

Dim $translate[26][8] = [ _
["4","/\","@","/-\","^"],  _ 
["8","6","|3","|>"],  _ 
["[","¢","<","("],  _ 
["|)","o|","[)"],  _ 
["3","&","£"],  _ 
["|=","ph","|#"],  _ 
["9","6","&;","(_+"],  _ 
["#","[-]","{=}","<~>","|-|","]~[","}{"],  _ 
["1","!","|","¦"],  _ 
[",|","_|",";"],  _ 
["|<","|{","]{","}<"],  _ 
["1","|","|_","#"],  _ 
["//.","^^","|v|","[V]","{V}","|\/|","/\/\","(u)"],  _ 
["//","^/ ","|\|","/\/","[\]","]\[","<\>","{\}"],  _ 
["0","()","¤"],  _ 
["|^","|*","|o","|>","|""","|?"],  _ 
["9","(,)","<|","¶","0."],  _ 
["|2","2","P\","lz","[z"],  _ 
["5","$","z","§"],  _ 
["7","+","-|-","1"],  _ 
["(_)","|_|","v"],  _ 
["\/","<"],  _ 
["\/\/","'//","\^/","(n)","\V/"],  _ 
["><"],  _ 
["Y","'/","`/","V/","\-/","j","_v also ¥","%"],  _ 
["2","z","~\_","~/_"] ]

$Form1 = GUICreate("l33t-sp34k g3n3r4t0r", 333, 328, 193, 115)
$Label1 = GUICtrlCreateLabel("Normal Text:", 5, 10, 64, 17)
$Edit1 = GUICtrlCreateEdit("", 5, 30, 320, 89, $ES_WANTRETURN)
$Button1 = GUICtrlCreateButton("Tr4n$L4+E", 5, 130, 75, 25, 0)
$Label2 = GUICtrlCreateLabel("L33t Sp34k:", 5, 165, 62, 17)
$Edit2 = GUICtrlCreateEdit("", 5, 185, 320, 89, $ES_WANTRETURN)
$Button3 = GUICtrlCreateButton("Copy Text to Clipboard", 5, 290, 130, 25, 0)
$Button4 = GUICtrlCreateButton("About", 185, 290, 70, 25, 0)
$Button5 = GUICtrlCreateButton("Exit", 255, 290, 70, 25, 0)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1 ; "Translate to 1337"
            $normal = GUICtrlRead($Edit1)
            $char = StringSplit($normal,"")
            $1337 = ""
            For $i = 1 to UBound($char)-1
                $n = Asc(StringUpper($char[$i])) - 65
                If ( $n >= 0 And $n <= 25 ) Then
                    $1337 &= _GetChar($n)
                Else
                    If ( $char[$i] == " " ) Then $char[$i] = "   "
                    $1337 &= $char[$i]
                EndIf
            Next
            GUICtrlSetData($Edit2,$1337)
        Case $Button3
            ClipPut(GUICtrlRead($Edit2))
        Case $Button4
            $v = MsgBox(0x44,"l33t-sp34k g3n3r4t0r", "Made by Manadar.com" & @CRLF & "Click Yes to visit manadar.com now.")
            If ( $v == 6 ) Then
                ShellExecute("http://www.manadar.com")
            EndIf
        Case $Button5
            Exit
    EndSwitch
WEnd

Func _GetChar($n)
    $bound = 0
    For $i = 0 to UBound($translate,2)-1
        If ( $translate[$n][$i] == "" ) Then
            $bound = $i
            ExitLoop
        EndIf
    Next
    
    return $translate[$n][Random(0,$bound-1,1)]
EndFunc
What do you mean by "dumb asses"???

Btw, Y()(_) o|0//-|- //£3o| #¦//(#vo|£ <\V/!//|)()\^/$¢()//$1@//+$./\|_|3> |#¤2 1}{/\1


♡♡♡

.

eMyvnE

Share this post


Link to post
Share on other sites

Someone make a decoder, so I can read what you guys are posting..

$<~>()\/\/ |_|z 7¤ </-\// |)£(0|)& \/\/|-|@-|- Y()v \/\/|2¦7& &><4<1#Y |// |#|2z+ |"¤§7 :))

When the words fail... music speaks

Share this post


Link to post
Share on other sites

Hi!

Accents, diacritics, special characters are not translated...

Try: éèëêç...

Share this post


Link to post
Share on other sites

Someone make a decoder, so I can read what you guys are posting..

Ok, I got it. But I'm not posting it :)

Anyway, my decoder is saying that Andreik swears a lot (juicy stuff, don't get fulled by smilies). I think he hates you.


♡♡♡

.

eMyvnE

Share this post


Link to post
Share on other sites

|\\|1(3 \\/\\/0®|{ ßµ7,

1 4£®34Ð¥ |\\/|4Ð3 7|-|1$ \\/\\/|-|1£3 490 4|\\|Ð 1|\\/||*£3|\\|73Ð 17 1|\\| |\\/|¥ |\\|073|*4Ð \\/\\/17|-| $0|\\/|3 3)(7®4 µ|\\|(710|\\|$ :)

1 700|{ 7|-|3 7|-|3 1Ð34 ®0|\\/| 4|\\/|0µ$ £337 7®4|\\|$£4710|\\| $173 7®4|\\|$£473Ð 1|\\|70 4µ7017


1 £0\\/3 |-|3® $0 |\\/|µ(|-|

Share this post


Link to post
Share on other sites

#10 ·  Posted (edited)

|\\|1(3 \\/\\/0®|{ ßµ7,

1 4£®34Ð¥ |\\/|4Ð3 7|-|1$ \\/\\/|-|1£3 490 4|\\|Ð 1|\\/||*£3|\\|73Ð 17 1|\\| |\\/|¥ |\\|073|*4Ð \\/\\/17|-| $0|\\/|3 3)(7®4 µ|\\|(710|\\|$ :)

1 700|{ 7|-|3 7|-|3 1Ð34 ®0|\\/| 4|\\/|0µ$ £337 7®4|\\|$£4710|\\| $173 7®4|\\|$£473Ð 1|\\|70 4µ7017

Yeah, right

He's just typing randomly. It has nothing to do with Manadars code which is not that good btw.

You have issues with for example C© and V(v) , not to mention I(i) L(l) and T(t).

And Andreik's english really sucks even encoded.

Edited by trancexx

♡♡♡

.

eMyvnE

Share this post


Link to post
Share on other sites

#11 ·  Posted (edited)

You suck. This is the official guide on 1337-speak that everyone agrees on taken from Encyclopedia Dramatica. If you disagree with this, then you might just as well cancel your internet.

Edited by Manadar

Share this post


Link to post
Share on other sites

You suck. This is the official guide on 1337-speak that everyone agrees on taken from Encyclopedia Dramatica. If you disagree with this, then you might just as well cancel your internet.

You mean suxxorz, 31337

♡♡♡

.

eMyvnE

Share this post


Link to post
Share on other sites

#14 ·  Posted (edited)

Manadar, down boy!!! Trance has never been to the other side :)

And nobody hates you. :)

Edited by Andreik

When the words fail... music speaks

Share this post


Link to post
Share on other sites

Yeah, right

He's just typing randomly. It has nothing to do with Manadars code which is not that good btw.

You have issues with for example C© and V(v) , not to mention I(i) L(l) and T(t).

And Andreik's english really sucks even encoded.

µ(|{ ¥0µ trancexx

Ð0|\\|'7 74£|{ 70 |\\/|3 £1|{3 7|-|47 4|\\|Ð 1 4|\\/| |\\|07 7¥|*1|\\|9 ®4|\\|Ð0|\\/|£¥

$3(0|\\|У¥ 1 |{|\\|0\\/\\/ 7|-|47 \\/\\/|-|47 1 \\/\\/®073 |-|4$ |\\|07|-|1|\\|9 70 Ð0 \\/\\/17|-| |\\/|4|\\|4Ð4®$ (0Ð3


1 £0\\/3 |-|3® $0 |\\/|µ(|-|

Share this post


Link to post
Share on other sites

F... you trancexx

Don't talk to me that and I am not typing randomly

Secondly I know that what I wrote has nothing to do with Manadar's code

ok, sorry


♡♡♡

.

eMyvnE

Share this post


Link to post
Share on other sites

/want

Can has translator?

I would like (why is this bolded?) to share but I was lying.

♡♡♡

.

eMyvnE

Share this post


Link to post
Share on other sites

I would like (why is this bolded?) to share but I was lying.

Alright, I thought so since it was rather fast. Decoding it back won't be entirely straight forward, because symbols are used multiple times. It's a real challenge.

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  
Followers 0