Trying to get a geek new characters set

[BasicOs]

Trying to get a geek new characters set:

I made a couple of changes to get the ñ for spanish language using 7, for use for other languages,

I also found a bug: what happen if you have already an @ or some other signs, you lost it, you should keep in another asc which is not used to get it back, @b14ck

I should think of changing @ into 69 or something alike

I post here to keep an standard of 1337 speak, please more ideas ,

as it is as a language .... I prefer not to create another version of leet, and I know when you get used to it you can read fluenty... ,

also I dont know if there is a way to unify it and solve some problems:

*I would recommend to get rid of M /\/\ or "U", "|_|" or V \% or similar characters which are difficult or slow to press on the keyboard

I propouse by example:

M 11 U 12 V 19, if you did like that you should change the numbers into alfanumeric by example 2 into U, 1 into L or something alike so that you can get the right number back,

help is appreciated

Thanks

Func Advanced($text)

   $lowera = StringReplace($text, "a", "@", 0, 1);Replaces lowercase letters

   $lowerb = StringReplace($lowera, "b", "b", 0, 1)

   $lowerc = StringReplace($lowerb, "c", "¢", 0, 1)

   $lowerd = StringReplace($lowerc, "d", "d", 0, 1)

   $lowere = StringReplace($lowerd, "e", "e", 0, 1)

   $lowerf = StringReplace($lowere, "f", "f", 0, 1)

   $lowerg = StringReplace($lowerf, "g", "g", 0, 1)

   $lowerh = StringReplace($lowerg, "h", "h", 0, 1)

   $loweri = StringReplace($lowerh, "i", "i", 0, 1)

   $lowerj = StringReplace($loweri, "j", "j", 0, 1)

   $lowerk = StringReplace($lowerj, "k", "k", 0, 1)

   $lowerl = StringReplace($lowerk, "l", "|", 0, 1)

   $lowerm = StringReplace($lowerl, "m", "m", 0, 1)

   $lowern = StringReplace($lowerm, "n", "n", 0, 1)

   $lowero = StringReplace($lowern, "o", "0", 0, 1)

   $lowerp = StringReplace($lowero, "p", "p", 0, 1)

   $lowerq = StringReplace($lowerp, "q", "q", 0, 1)

   $lowerr = StringReplace($lowerq, "r", "r", 0, 1)

   $lowers = StringReplace($lowerr, "s", "s", 0, 1)

   $lowert = StringReplace($lowers, "t", "", 0, 1)

   $loweru = StringReplace($lowert, "u", "u", 0, 1)

   $lowerv = StringReplace($loweru, "v", "v", 0, 1)

   $lowerw = StringReplace($lowerv, "w", "w", 0, 1)

   $lowerx = StringReplace($lowerw, "x", "x", 0, 1)

   $lowery = StringReplace($lowerx, "y", "ÿ", 0, 1)

   $lowerz1 = StringReplace($lowery, "z", "z", 0, 1)

   $lowerz = StringReplace($lowerZ1, "ñ", "7", 0, 1)

;End of LowerCase

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;Capital Letters

   $higha = StringReplace($lowerz, "A", "4", 0, 1);Replaces capital letters

   $highb = StringReplace($higha, "B", "ß", 0, 1)

   $highc = StringReplace($highb, "C", "Ç", 0, 1)

   $highd = StringReplace($highc, "D", "|)", 0, 1)

   $highe = StringReplace($highd, "E", "3", 0, 1)

   $highf = StringReplace($highe, "F", "F", 0, 1)

   $highg = StringReplace($highf, "G", "G", 0, 1)

   $highh = StringReplace($highg, "H", "|-|", 0, 1)

   $highi = StringReplace($highh, "I", "1", 0, 1)

   $highj = StringReplace($highi, "J", "J", 0, 1)

   $highk = StringReplace($highj, "K", "|<", 0, 1)

   $highl = StringReplace($highk, "L", "L", 0, 1)

   $highm = StringReplace($highl, "M", "/\/\", 0, 1)

   $highn = StringReplace($highm, "N", "/\/", 0, 1)

   $higho = StringReplace($highn, "O", "()", 0, 1)

   $highp = StringReplace($higho, "P", "P", 0, 1)

   $highq = StringReplace($highp, "Q", "Q", 0, 1)

   $highr = StringReplace($highq, "R", "R", 0, 1)

   $highs = StringReplace($highr, "S", "$", 0, 1)

   $hight = StringReplace($highs, "T", "T", 0, 1)

   $highu = StringReplace($hight, "U", "|_|", 0, 1)

   $highv = StringReplace($highu, "V", "\%", 0, 1)

   $highw = StringReplace($highv, "W", "VV", 0, 1)

   $highx = StringReplace($highw, "X", "><", 0, 1)

   $highy = StringReplace($highx, "Y", "¥", 0, 1)

   $highz = StringReplace($highy, "Z", "Z", 0, 1)

   $highz1 = StringReplace($highz, "Ñ", "7ª", 0, 1)  

   Return $highz1

EndFunc

Func DetranslateFunc($text)

   $replaceb = StringReplace($text, "ß", "B", 0, 1);replaces strings

   $replaceo = StringReplace($replaceb, "()", "O", 0, 1)

   $replacea = StringReplace($replaceo, "4", "A", 0, 1)

   $replaced = StringReplace($replacea, "|)", "D", 0, 1)

   $replaceh = StringReplace($replaced, "|-|", "H", 0, 1)

   $replacei = StringReplace($replaceh, "1", "I", 0, 1)

   $replacek = StringReplace($replacei, "|<", "K", 0, 1)

   $replacev = StringReplace($replacek, "\%", "V", 0, 1)

   $replacem = StringReplace($replacev, "/\/\", "M", 0, 1)

   $replacen = StringReplace($replacem, "/\/", "N", 0, 1)

   $replacew = StringReplace($replacen, "VV", "W", 0, 1)

   $replacec = StringReplace($replacew, "Ç", "C", 0, 1)

   $replaces = StringReplace($replacec, "$", "S", 0, 1)

   $replacet = StringReplace($replaces, "7ª", "Ñ", 0, 1)

   $replacex = StringReplace($replacet, "><", "X", 0, 1)

   $replaceu = StringReplace($replacex, "|_|", "U", 0, 1)

   $replacey = StringReplace($replaceu, "¥", "Y", 0, 1)

   $replace1 = StringReplace($replacey, "3", "E", 0, 1)

$replacee = StringReplace($replace1, "7", "ñ", 0, 1)

;End Capital Letters

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;Begin Lowercase

   $rplca = StringReplace($replacee, "@", "a", 0, 1)

   $rplcc = StringReplace($rplca, "¢", "c", 0, 1)

   $rplcl = StringReplace($rplcc, "|", "l", 0, 1)

   $rplcy = StringReplace($rplcl, "ÿ", "y", 0, 1)

   $rplct = StringReplace($rplcy, "", "t", 0, 1)

   $rplco = StringReplace($rplct, "0", "o", 0, 1)

   Return $rplco

EndFunc

Mine is definitely the best... I have the best GUI, the best functions. Translate, De-Translate, copy, and a mess of other things... Enjoy: http://www.autoitscript.com/forum/index.php?showtopic=6198

<{POST_SNAPBACK}>

Edited March 28, 2005 by BasicOs