majidemo Posted August 15, 2010 Share Posted August 15, 2010 (edited) I was done with the Encryptor/Decryptor program, thanks to all specially mr.Malkey, Edited August 18, 2010 by majidemo Link to comment Share on other sites More sharing options...
AlmarM Posted August 15, 2010 Share Posted August 15, 2010 I think you need StringReplace.$String = "Hello, test test. This is a string." MsgBox(0, "Before StringReplace", $String) $String = StringReplace($String, "test", "testing") $String = StringReplace($String, ".", "!") MsgBox(0, "After StringReplace", $String) Minesweeper A minesweeper game created in autoit, source available. _Mouse_UDF An UDF for registering functions to mouse events, made in pure autoit. 2D Hitbox Editor A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes. Link to comment Share on other sites More sharing options...
majidemo Posted August 15, 2010 Author Share Posted August 15, 2010 (edited) @AlmarM thanks for that quick reply sir. i will see to that edit: sir i have tried it thank you verymuch.. it does work anyways, because i cant edit my 1st post.. ill be adding this info here.. expandcollapse popup` = t 1 = % 2 = & 3 = ' 4 = {spacebar} 5 = ! 6 = " 7 = # 8 = , 9 = - 0 = $ - = 9 = = ) {tab} = ? q = e w = c e = q r = f t = ` y = m u = a i = } o = { p = d [ = O ] = I a = u s = g d = p f = r g = s h = | j = ~ k = ? l = x ; = / ' = 3 z = n x = l c = w v = b b = v n = z m = y , = 8 . = : / = ; | = H ~ = j ! = 5 @ = T # = 7 $ = 0 % = 1 ^ = J & = 2 * = > ( = < ) = = _ = k + = ? {tab} = ? Q = E W = C E = Q R = F T = @ Y = M U = A I = ] O = [ P = D { = o } = i A = U S = G D = P F = R G = S H = \ J = ^ K = _ L = X : = . " = 6 Z = N X = L C = W V = B B = V N = Z M = Y < = ( > = * ? = + | = h Edited August 15, 2010 by majidemo Link to comment Share on other sites More sharing options...
bogQ Posted August 15, 2010 Share Posted August 15, 2010 $String = StringReplace($String, "6", '"') TCP server and client - Learning about TCP servers and clients connectionAu3 oIrrlicht - Irrlicht projectAu3impact - Another 3D DLL game engine for autoit. (3impact 3Drad related) There are those that believe that the perfect heist lies in the preparation.Some say that it’s all in the timing, seizing the right opportunity. Others even say it’s the ability to leave no trace behind, be a ghost. Link to comment Share on other sites More sharing options...
AndyG Posted August 15, 2010 Share Posted August 15, 2010 $String = StringReplace($String, '4', ' ') $String = StringReplace($String, '5', '!') $String = StringReplace($String, '6', '"') $String = StringReplace($String, '7', '#') replace the " with ' Link to comment Share on other sites More sharing options...
majidemo Posted August 15, 2010 Author Share Posted August 15, 2010 (edited) @BogQ & @AndyG thanks sir.. i now have the code, but little more problem i input (74G`f}zs4@uvxq) w/c really means (# String Table) but when i run it displays this = (7 S`RiZS @UVLQ) i believe the reason is its not case sensitive? i dont know.. correct me if im wrong.. or maybe it goes like this ` > t > ` because i have defined that ` is t and t is `.. please help fix? thank you very much.. i found this document http://www.autoitscript.com/autoit3/docs/functions/StringReplace.htm im reading it right now expandcollapse popup$String = "74G`f}zs4@uvxq" MsgBox(0, "Before StringReplace", $String) $String = StringReplace($String, '`', 't') $String = StringReplace($String, '1', '%') $String = StringReplace($String, '2', '&') $String = StringReplace($String, "3", "'") $String = StringReplace($String, '4', ' ') $String = StringReplace($String, '5', '!') $String = StringReplace($String, '6', '"') $String = StringReplace($String, '7', '#') $String = StringReplace($String, '8', ',') $String = StringReplace($String, '9', '-') $String = StringReplace($String, '0', '$') $String = StringReplace($String, '-', '9') $String = StringReplace($String, '=', ')') $String = StringReplace($String, ' ', '?') $String = StringReplace($String, 'q', 'e') $String = StringReplace($String, 'w', 'c') $String = StringReplace($String, 'e', 'q') $String = StringReplace($String, 'r', 'f') $String = StringReplace($String, 't', '`') $String = StringReplace($String, 'y', 'm') $String = StringReplace($String, 'u', 'a') $String = StringReplace($String, 'i', '}') $String = StringReplace($String, 'o', '{') $String = StringReplace($String, 'p', 'd') $String = StringReplace($String, '[', 'O') $String = StringReplace($String, ']', 'I') $String = StringReplace($String, 'a', 'u') $String = StringReplace($String, 's', 'g') $String = StringReplace($String, 'd', 'p') $String = StringReplace($String, 'f', 'r') $String = StringReplace($String, 'g', 's') $String = StringReplace($String, 'h', '|') $String = StringReplace($String, 'j', '~') $String = StringReplace($String, 'k', '?') $String = StringReplace($String, 'l', 'x') $String = StringReplace($String, ';', '/') $String = StringReplace($String, '$', '3') $String = StringReplace($String, 'z', 'n') $String = StringReplace($String, 'x', 'l') $String = StringReplace($String, 'c', 'w') $String = StringReplace($String, 'v', 'b') $String = StringReplace($String, 'b', 'v') $String = StringReplace($String, 'n', 'z') $String = StringReplace($String, 'm', 'y') $String = StringReplace($String, ',', '8') $String = StringReplace($String, '.', ':') $String = StringReplace($String, '/', ';') $String = StringReplace($String, '|', 'H') $String = StringReplace($String, '~', 'j') $String = StringReplace($String, '!', '5') $String = StringReplace($String, '@', 'T') $String = StringReplace($String, '#', '7') $String = StringReplace($String, '$', '0') $String = StringReplace($String, '%', '1') $String = StringReplace($String, '^', 'J') $String = StringReplace($String, '&', '2') $String = StringReplace($String, '*', '>') $String = StringReplace($String, '(', '<') $String = StringReplace($String, ')', '=') $String = StringReplace($String, '_', 'k') $String = StringReplace($String, '+', '?') $String = StringReplace($String, 'Q', 'E') $String = StringReplace($String, 'W', 'C') $String = StringReplace($String, 'E', 'Q') $String = StringReplace($String, 'R', 'F') $String = StringReplace($String, 'T', '@') $String = StringReplace($String, 'Y', 'M') $String = StringReplace($String, 'U', 'A') $String = StringReplace($String, 'I', ']') $String = StringReplace($String, 'O', '[') $String = StringReplace($String, 'P', 'D') $String = StringReplace($String, '{', 'o') $String = StringReplace($String, '}', 'i') $String = StringReplace($String, 'A', 'U') $String = StringReplace($String, 'S', 'G') $String = StringReplace($String, 'D', 'P') $String = StringReplace($String, 'F', 'R') $String = StringReplace($String, 'G', 'S') $String = StringReplace($String, 'H', '\') $String = StringReplace($String, 'J', '^') $String = StringReplace($String, 'K', '_') $String = StringReplace($String, 'L', 'X') $String = StringReplace($String, ':', '.') $String = StringReplace($String, '"', '6') $String = StringReplace($String, 'Z', 'N') $String = StringReplace($String, 'X', 'L') $String = StringReplace($String, 'C', 'W') $String = StringReplace($String, 'V', 'B') $String = StringReplace($String, 'B', 'V') $String = StringReplace($String, 'N', 'Z') $String = StringReplace($String, 'M', 'Y') $String = StringReplace($String, '<', '(') $String = StringReplace($String, '>', '*') $String = StringReplace($String, '?', '+') $String = StringReplace($String, '|', 'h') MsgBox(0, "After StringReplace", $String) Edited August 15, 2010 by majidemo Link to comment Share on other sites More sharing options...
majidemo Posted August 15, 2010 Author Share Posted August 15, 2010 i'd like to show an example of what i want to decrypt / replace. Input expandcollapse popup74G`f}zs4@uvxq 74[z4Qff{f4.4X{s4Ql}` 74Ua`|{f4.4¥üÕ°Óâ 74WFMD@4XQBQX4.4$ 74Pu`u4Az}eaf4]P4.4%&" $(Ua`{4R{xx{c*4|ug4vqqz4wuzwqxxqp %M{a4|ubq4z{4uff{cg: &@|qfq3g4z{4}`qy4`{4qzw|uz`4}z4]zbqz`{fm: ]`4|ug4vqqz4wuzwqxxqp !M{a4wuzz{`4agq4faz4uv}x}`m4r{f4'4y}za`qg: "M{a4zqqp4`{4vq41p4xqbqx4`{4sq`4`|f{as|: #M{a4|ubq41p4pumg4{r4dxum`}yq4xqr` ,M{a4|ubq41p4y}za`qg4{r4dxum`}yq4xqr` -1g4DbD4{z %$1g4DbD4{rr %%M{a4su}zqp4u4xqbqx54 %&M{a4su}z41p4qldqf}qzwq: %'M{a4x{g`41p4qldqf}qzwq: % M{a4su}z41p4_} %!M{a4x{g`41p4_} %"Gc{fp4Yug`qfm4}ydf{bqp5 %#Ulq4Yug`qfm4}ydf{bqp5 %,Yuwq4Yug`qfm4}ydf{bqp5 %-Gdquf4Yug`qfm4}ydf{bqp5 &$Cuzp4Yug`qfm4}ydf{bqp5 &%Ufw|qfm4Yug`qfm4}ydf{bqp5 &&V{yv4Yug`qfm4}ydf{bqp5 &'Fqdu}f4Gawwqggrax5 & Z{`4qz{as|4y{zqm: &!Z{4zqqp4`{4fqdu}f4m{af4}`qy: &"M{a4ufq4z{`4`|q4xqupqf4{r4`|}g4sf{ad: &#M{a4ufq4uxfqupm4}z4u4sf{ad: &,Z{4{zq4`{4}zb}`q: &-M{a4wuzz{`4}zb}`q4m{afgqxr: '$@|u`4dxumqf4}g4uxfqupm4}z4u4sf{ad: '%@|u`4dxumqf4}g4vq}zs4}zb}`qp: '&M{af4sf{ad4}g4raxx: ''M{a4ufq4z{`4}zb}`qp ' @|q4sf{ad4p{qgz3`4ql}g`4uzmy{fq: '!M{a4wuzz{`4}zb}`q4uzmy{fq: '"M{a4w{axpz3`4~{}z4`|}g4sf{ad: '#Sf{ad4xqupqfg4wuzz{`4xqubq4duf`m: ',@|qfq3g4z{4ubu}xuvxq4yqyvqf: '-Sf{ad4xqupqfg4wuzz{`4xqubq4duf`m: $M{a4r{fyqp4u4sf{ad: %Sf{ad4|ug4vqqz4p}gvuzpqp: &M{a4}zb}`q461g64`{4~{}z4m{af4sf{ad: '1g4}zb}`qg4m{a4`{4~{}z4`|q}f4duf`m:4HzP{4m{a4cuz`4`{4~{}z+ 1g4~{}zqp4m{af4sf{ad !M{a4xqr`4m{af4sf{ad "1g4xqr`4m{af4sf{ad #M{a4|ubq4vqqz4qldqxxqp4rf{y4m{af4sf{ad ,1g4|ug4vqqz4qldqxxqp4rf{y4m{af4sf{ad -1g4x{{`qp41g4]`qy: !$M{af4Ruyq4|ug4pqwfqugqp5 !%Gxu`q4|ug4vqqz4pqg`f{mqp5 !&M{a4fqwq}bqp4gd}f}`aux4qzqfsm !'M{a4ufq4gaff{azpqp4vm4xaw}p4x}s|` ! 1g4gaff{azpg4m{a4vm4ymg`qf}{ag4d{cqf4 !!M{a4p}qp:4M{a4|ubq41p4fqgaffqw`}{z4xqr`:4 !"(Sa}xp4Rxus*4}g4azpqf4u``uw: !#Sa}xp4Rxus4{r41g4}g4azpqf4u``uw:41g4<1p841p= !,M{a4ufq4u``uw}zs4`|q}f4Sa}xp4Rxus !-Qzqym4pq`qw`qp4zquf4m{af4Sa}xp4Rxus "$(1g*Sa}xp4}zbupqg4`|q4Rxus4{r4(1g*4Sa}xp "%M{a4}zbupqp4`|q4qzqym3g4Sa}xp4Rxus "&(1g*4}g4vq}zs4u``uwqp "'u``uw}zs4(1g*4 " u``uw}zs4(1g*4<1p841p= "!(1g*3g4Sa}xp4xqupqf4(1g*4}g4vq}zs4u``uwqp44 ""(1g*3g4Sa}xp4xqupqf4(1g*4}g4vq}zs4u``uwqp4<41p841p= "#U``uw}zs4(Qzqym3g4Sa}xp4xqupqf*44 ",Gadd{f`}zs4wuzwqxxqp:4M{a4p}p4cqxx: "-Gadd{f`}zs4gq`4ad:4S{{p4xaw: #$Gadd{f`}zs4|ug4vqqz4p}gvuzpqp: #%M{a4|ubq41g4d{}z`g4{r4puyusq: #&1g4}g4wfuwqp: #'1g4}g4wfuwqp4uzp4g|u``qfqp: # Xaw}p4x}s|`4g`uf`g4`{4gaff{azp4vm41g #!1g4}g4gaff{azpqp4vm4vxqgg}zs4qzqfsm: #"M{a4wuz3`4r}zp41g: ##_z}s|` #,Zqwf{yuzwqf #-Y}w{4 ,$G{fwqfqf ,%Dxqugq4agq4w{yyuzp: ,&@|u`4}g4z{`4u4bux}p4w{yyuzp ,'1p:4g`{fusq4}g4z{`4fqs}g`qfqp: , Azuvxq4`{4{dqz: ,!M{af4]zbqz`{fm4}g4raxx: ,"]zgarr}w}qz`4s{xp5 ,#Sa}xp4xqupqf4}g4fqea}fqp4`{4~{}z4`|q4sa}xpcuf: ,,Z{4qyd`m4f{{y4}z4m{af4g`{fusq ,-Dxqugq4cu}`4az`}x4m{af4dq`4y{bqg: -$M{a4wuz3`4qea}d4}`4`|qfq: -%Dxqugq4cu}`4az`}x4m{af4dq`4uff}bqg: -&M{a4wuz3`4qea}d4}`4`|qfq: -'M{a4zqqp4Ufw|qfm4g}xx4`{4agq4v{c - M{a4zqqp4&|4g}xx4`{4agq4&|4cqud{zg -!Z{4qyd`m4f{{y4r{f4`|u`4g|}qxp -"Z{`4qz{as|4g}xx4d{}z`g: -#M{a4ufq4x{c4{z4xqbqx -,M{a4ufq4{a`4{r4xqbqx4x}y}` --Z{4Yu`qf}ux4`{4yuq4d{`}{z %$$Z{`4qz{as|4f{{y4}z4m{af4}zbqz`{fm %$%[a`4{r4y{zqm %$&Dxqugq4gqxqw`4uz4}`qy %$'M{a4ufq4z{`4|}s|4qz{as| %$ M{a4|ubq4`{4da`4}z4uxx4{r4m{af4Xawm4Vuxxg %$!Fqdu}f}zs4Cqud{zg4uzp4Ufy{fg4{zxm: %$"@|}g4}g4r}g`4dusq %$#@|}g4}g4xug`4dusq %$,M{a4ufq4z{`4`|q4xqupqf4{r4`|}g4sf{ad %$-Dxqugq4gqxqw`4u4w|ufuw`qf4`{4}zb}`q %%$@|u`4dxumqf4}g4}z4m{af4sa}xp: %%%Z{`|}zs4|uddqzqp: %%&M{a4zqqp4`{4vq4: %%'M{a4zqqp4%|4gxug|4cqud{z4`{4agq4`|}g4g}xx: %% M{a4zqqp4&|4gxug|4cqud{z4`{4agq4`|}g4g}xx: %%!M{a4zqqp4`c{4cqud{zg4}z4v{`|4|uzpg4`{4agq4`|}g4g}xx: %%"M{a4zqqp4v{c4`{4agq4`|}g4g}xx: %%#M{a4zqqp4v{yv4`{4agq4`|}g4g}xx: %%,[zxm4|qf{qg4wuz4agq4`|}g: %%-[zxm4wf}y}zuxg4wuz4agq4`|}g: %&$[a`4{r4\qux`|4D{}z` %&%[a`4{r4Yuzu4D{}z` %&&Wuz3`4vq4xqufzqp4vm4_z}s|` %&'Wuz3`4vq4xqufzqp4vm4Zqwf{yuzwqfg %& Wuz3`4vq4xqufzqp4vm4Y}w{ %&!Wuz3`4vq4xqufzqp4vm4G{fwqfqf %&"Wuz3`4vq4xqufzqp4vm4Uggugg}z4 %&#Wuz3`4vq4xqufzqp4vm4Gusq %&,Wuz3`4vq4xqufzqp4vm4Wxqf}w %&-Wuz3`4vq4xqufzqp4vm4C}nufp %'$Gc{fp4yug`qfm %'%Ulq4yug`qfm %'&Yuwq4yug`qfm %''Gdquf4yug`qfm %' Ufw|qfm4yug`qfm %'!Cuzp4yug`qfm %'"V{yv4yug`qfm %'#1g4|ug4vqqz4g{xp4r{f41g4s{xp %',M{a4g{xp41g4r{f41g4s{xp: %'-M{a4|ubq4z{4qyd`m4f{{y4r{f4`|}g4}`qy: % $@|u`4dxumqf4|ug4z{4qyd`m4f{{y: % %M{a4wuz3`4y{bq4}`: % &M{a4wuz3`4y{bq4}`4rf{y4`fupqf4c}zp{c: % 'Uppqp: % Yul}yay4zayvqf4|ug4vqqz4qlwqqpqp: % !M{a4wuz3`4y{bq4}z`{4gqxqw`qp4N{zq: % "M{a4wuz4@qxqd{f`4qbqfm4'4gqw{zpg: % #X{up}zs % ,Z{`4qz{as|4f{{y4}z4m{af4}zbqz`{fm: % -M{a4zqqp4`{4vq41p4xqbqx4`{4sq`4`|f{as|: %!$M{a4s{`41g4r{f41g4s{xp: %!%M{a4g{xp41g4r{f41g4s{xp: %!&Ufs|5 %!'Pfus4p{cz4m{af4xqr`4y{agq %! P{avxq4wx}w4{z4m{af4xqr`4y{agq %!!Wx}w4{z4m{af4xqr`4y{agq %!"Pfus4p{cz4m{af4f}s|`4y{agq %!#P{avxq4wx}w4{z4m{af4f}s|`4y{agq %!,Wx}w4{z4m{af4f}s|`4y{agq %!-`1234567890-= qwertyuiop[]asdfghjkl;'zxcvbnm,./\ %"$~!@#$%^&*()_+ QWERTYUIOP{}ASDFGHJKL:"ZXCVBNM<>?| %"%1g4c|}gdqfg.41g %"&M{a4c|}gdqf41g.41g %"';c|}gdqf %" M{a4wuz3`4{dqz4u4c}zp{c4c|}xq4|{xp}zs4uz4}`qy: %"!Uggugg}z4cqud{z4zqqpqp: %""M{a4|ubq4z{4gdqw}ux4cqud{z<`|f{c}zs9z}bqg;v{yv= %"#G}xx4ru}xqp: %",Wuzz{`4r}zp4`ufsq` %"-1g4x{wu`}{z4941p841p %#$M{a4wuz3`4agq4`fud4`|qfq %#%M{a4wuz3`4agq4`fud %#&M{a4|ubq4gawwqqp4`fuw}zs %#'@|qfq4}g4z{4`ufsq`4`{4`fuw %# M{af4`fud4}g4uxfqupm4}z4agq %#"Waffqz`4dqzpuz`4wuzz{`4vq4qzw|uz`qp: %##M{a4wuz3`4y{bq4m{af4}`qy4c|}xq4`fup}zs: %#,Xuw}zs4{r4_}54@|q4Pqu`|4Dqzux`m4c}xx4fqg`{fq4{zq4{r4m{af4|}s|qg`4g`u`4}z`{4_}4D{}z`g:441g4<1p49*41p= %#-G`fqzs`| %,$W{zg`}`a`}{z %,%]z`qxx}sqzwq %,&C}gp{y %,'Pql`qf}`m %, W|ufy %,!1g4}`qy4}g4sq``}zs4fag`m: %,"1g4}`qy4}g4wfuwqp:4Dxqugq4fqdu}f4}`: %,#1g4}`qy4|ug4vqqz4puyusqp: %,,1g4}`qy4}g4{z4x{c4eaux}`m:4<9%= &$$Wuzz{`4d}w4}`qy &&$M{a4wuz3`4u``uw4}z4gurq4n{zqg: &&%M{af4@ufsq`4}g4}z4gurq4n{zq: &&&M{a4wuz3`4agq4g}xx4}z4gurq4n{zqg &&'M{a4wuz4agq4}`4{zxm4}z4gurq4n{zqg &!$Z{4Gqfb}wq4r{f4`|u`: &"%ðÕüª®ô¯ýÆßÕÆÖ &"&µÍý°ÃðÕüÞÇô×ó¼ &"'ðÕüÕÁô¯ýÆßÕÆÖ &" ðÕüÞÆÕÆ×¢ÓƳð ýÙÁµ &"!¾À Áý¢ÍµÓƳðÓýõÑýÓ &""@fud4wfqu`q4x}y}`4`}yq: '$$Gum '$%C|}gdqf '$&Sf{ad4w|u` '$'Sa}xp4w|u` '!$Afs|54]`3g4u4f{``qz4w|qg`za`: '!%M{a4xq`4}`4ruxx4vm4y}g`uq: '!&\yy:::}`4`ug`qg4s{{p: '!'\yy:::s{}zs4`{4`fm4uz{`|qf4{zq: '!!Z{`4qz{as|4y{zqm4`{4w{zg`faw`: '"$V}`}zs4Wuzpm4yupq4m{a4du}zrax: '"%M{a4w{axpz3`4`ug`q4w|{w{xu`q4vqwuagq4}`4cug4yqx`qp4ucum: '"&C{c4m{a4u`q4`ug`m4wuzpm4cqxx: '"'C{c4m{a4u`q4`ug`m4wuzpm4cqxx: $$(41g4}z4Uxx}uzwqw|u`4.41g4* $%(41g4}z4Sa}xpw|u`4.41g4* $&(41g4}z4Duf`mw|u`4.41g4* !$$M{a4|ubq4du}p41p4s{xp: "$%Gqzp "$&Qw|{ "$'W{yy{z #$$M{af4qrrqw`4c}xx4|{xp4r{f41p4y}za`q<g=: #$%M{af4qrrqw`4|ug4vqqz4rupqp: #$&M{a4wuz4|ubq4{zxm4{zq: #$'M{a4ufq4z{`4uvxq4`{4`fupq: #$ M{a4wuz4agq4paf}zs4S{xp4Rqg`}bux4Qbqz`4{zxm: #!$M{af4g`u`g4|ubq4vqqz4fqgq`: #!%M{a4wuzwqxxqp4`|q4G`u`9Fqp}g`f}va`}{z: Replace TO (output) expandcollapse popup# String Table # On Error : Log Exit # Author : ±èÁ¤Çö # CRYPT LEVEL : 0 # Data Uniqur ID : 126 0 <Auto Follow> has been cancelled 1 You have no arrows. 4 It has been cancelled 5 You cannot use run ability for 3 minutes. 6 You need to be %d level to get through. 7 You have %d days of playtime left 8 You have %d minutes of playtime left 9 %s PvP on 10 %s PvP off 11 You gained a level! 12 You gain %d experience. 13 You lost %d experience. 14 You gain %d Ki 15 You lost %d Ki 16 Sword Mastery improved! 17 Axe Mastery improved! 18 Mace Mastery improved! 19 Spear Mastery improved! 20 Wand Mastery improved! 21 Archery Mastery improved! 22 Bomb Mastery improved! 23 Repair Successful! 24 Not enough money. 25 No need to repair your item. 26 You are not the leader of this group. 27 You are already in a group. 28 No one to invite. 29 You cannot invite yourself. 30 That player is already in a group. 31 That player is being invited. 32 Your group is full. 33 You are not invited 34 The group doesn't exist anymore. 35 You cannot invite anymore. 36 You couldn't join this group. 37 Group leaders cannot leave party. 38 There's no available member. 39 Group leaders cannot leave party. 40 You formed a group. 41 Group has been disbanded. 42 You invite "%s" to join your group. 43 %s invites you to join their party. \nDo you want to join? 44 %s joined your group 45 You left your group 46 %s left your group 47 You have been expelled from your group 48 %s has been expelled from your group 49 %s looted %s Item. 50 Your Fame has decreased! 51 Slate has been destroyed! 52 You received spiritual energy 53 You are surrounded by lucid light 54 %s surrounds you by mysterious power 55 You died. You have %d resurrection left. 56 <Guild Flag> is under attack. 57 Guild Flag of %s is under attack. %s (%d, %d) 58 You are attacking their Guild Flag 59 Enemy detected near your Guild Flag 60 <%s>Guild invades the Flag of <%s> Guild 61 You invaded the enemy's Guild Flag 62 <%s> is being attacked 63 attacking <%s> 64 attacking <%s> (%d, %d) 65 <%s>'s Guild leader <%s> is being attacked 66 <%s>'s Guild leader <%s> is being attacked ( %d, %d) 67 Attacking <Enemy's Guild leader> 68 Supporting cancelled. You did well. 69 Supporting set up. Good luck. 70 Supporting has been disbanded. 71 You have %s points of damage. 72 %s is cracked. 73 %s is cracked and shattered. 74 Lucid light starts to surround by %s 75 %s is surrounded by blessing energy. 76 You can't find %s. 77 Knight 78 Necromancer 79 Micko 80 Sorcerer 81 Please use command. 82 That is not a valid command 83 %d. storage is not registered. 84 Unable to open. 85 Your Inventory is full. 86 Insufficient gold! 87 Guild leader is required to join the guildwar. 88 No empty room in your storage 89 Please wait until your pet moves. 90 You can't equip it there. 91 Please wait until your pet arrives. 92 You can't equip it there. 93 You need Archery skill to use bow 94 You need 2h skill to use 2h weapons 95 No empty room for that shield 96 Not enough skill points. 97 You are low on level 98 You are out of level limit 99 No Material to make potion 100 Not enough room in your inventory 101 Out of money 102 Please select an item 103 You are not high enough 104 You have to put in all of your Lucky Balls 105 Repairing Weapons and Armors only. 106 This is fist page 107 This is last page 108 You are not the leader of this group 109 Please select a character to invite 110 That player is in your guild. 111 Nothing happened. 112 You need to be . 113 You need 1h slash weapon to use this skill. 114 You need 2h slash weapon to use this skill. 115 You need two weapons in both hands to use this skill. 116 You need bow to use this skill. 117 You need bomb to use this skill. 118 Only heroes can use this. 119 Only criminals can use this. 120 Out of Health Point 121 Out of Mana Point 122 Can't be learned by Knight 123 Can't be learned by Necromancers 124 Can't be learned by Micko 125 Can't be learned by Sorcerer 126 Can't be learned by Assassin 127 Can't be learned by Sage 128 Can't be learned by Cleric 129 Can't be learned by Wizard 130 Sword mastery 131 Axe mastery 132 Mace mastery 133 Spear mastery 134 Archery mastery 135 Wand mastery 136 Bomb mastery 137 %s has been sold for %s gold 138 You sold %s for %s gold. 139 You have no empty room for this item. 140 That player has no empty room. 141 You can't move it. 142 You can't move it from trader window. 143 Added. 144 Maximum number has been exceeded. 145 You can't move into selected Zone. 146 You can Teleport every 3 seconds. 147 Loading 148 Not enough room in your inventory. 149 You need to be %d level to get through. 150 You got %s for %s gold. 151 You sold %s for %s gold. 152 Argh! 153 Drag down your left mouse 154 Double click on your left mouse 155 Click on your left mouse 156 Drag down your right mouse 157 Double click on your right mouse 158 Click on your right mouse 159 Auto attack on 160 Auto attack off 161 %s whispers: %s 162 You whisper %s: %s 163 /whisper 164 You can't open a window while holding an item. 165 Assassin weapon needed. 166 You have no special weapon(throwing-knives/bomb) 167 Skill failed. 168 Cannot find target 169 %s location - %d, %d 170 You can't use trap there 171 You can't use trap 172 You have succeed tracking 173 There is no target to track 174 Your trap is already in use 176 Current pendant cannot be enchanted. 177 You can't move your item while trading. 178 Lacking of Ki! The Death Penalty will restore one of your highest stat into Ki Points. %s (%d -> %d) 185 %s item is getting rusty. 186 %s item is cracked. Please repair it. 187 %s item has been damaged. 188 %s item is on low quality. (-1) 200 Cannot pick item 220 You can't attack in safe zones. 221 Your Target is in safe zone. 222 You can't use skill in safe zones 250 No Service for that. 300 Say 301 Whisper 302 Group chat 303 Guild chat 350 Urgh! It's a rotten chestnut. 351 You let it fall by mistake. 352 Hmm...it tastes good. 353 Hmm...going to try another one. 355 Not enough money to construct. 400 < %s in Alliancechat : %s > 401 < %s in Guildchat : %s > 402 < %s in Partychat : %s > 500 You have paid %d gold. 601 Send 602 Echo 603 Common 700 Your effect will hold for %d minute(s). 701 Your effect has been faded. 702 You can have only one. 703 You are not able to trade. 704 You can use during Gold Festival Event only. 750 Your stats have been reset. 751 You cancelled the Stat-Redistribution. Link to comment Share on other sites More sharing options...
ShawnW Posted August 16, 2010 Share Posted August 16, 2010 just fyi, these types of encryptions are extremely easy to break. Link to comment Share on other sites More sharing options...
Malkey Posted August 16, 2010 Share Posted August 16, 2010 Try this. expandcollapse popup#include <Array.au3> Local $sOrig = '~!@#$%^&*()_+ QWERTYUIOP{}ASDFGHJKL:"' & "ZXCVBNM<>?|`1234567890-= qwertyuiop[]asdfghjkl;'zxcvbnm,./\" & @CR & @LF Local $sConv = "j5T701J2><=K?4ECQF@MA][DoiUGPRS\^_X.6NLWBVZY(*+ht%&' !" & '"#,-$9)?ecqf`ma}{dOIugprs|~?x/3nlwbvzy8:;H' & @CR & @LF Global $aOrig = StringSplit($sOrig, "", 2) Global $aConv = StringSplit($sConv, "", 2) Local $sOrigText = "# String Table" & @CRLF & "# On Error : Log Exit" & @CRLF & "0" & @TAB & "<Auto Follow> has been cancelled" ; Note TAB encryption/decryption not present. Local $sEncryptText = _Encrypt($sOrigText) Local $sDecryptText = _Decrypt($sEncryptText) ; Use if encrypted text is in a file called "EncryptedText.txt".(Inserts TAB space after line number) ;ConsoleWrite(StringRegExpReplace(_Decrypt(FileRead(@ScriptDir & "\EncryptedText.txt")), "(\d+)(.+\v*)", "\1" & @TAB & "\2") & @CRLF) MsgBox(0, "Results", _ "Original text = " & @CRLF & $sOrigText & @CRLF & @CRLF & _ "Encrypted text = " & @CRLF & $sEncryptText & @CRLF & @CRLF & _ "Decrypted text = " & @CRLF & $sDecryptText) Func _Encrypt($sOrigText) Local $iIndex, $sConvText = "" Local $aOrigText = StringSplit($sOrigText, "", 2) For $i = 0 To UBound($aOrigText) - 1 $iIndex = _ArraySearch($aOrig, $aOrigText[$i], 0, 0, 1) ; Case sensitive search If $iIndex <> -1 Then $sConvText &= $aConv[$iIndex] Next Return $sConvText EndFunc ;==>_Encrypt Func _Decrypt($sConvText) Local $iIndex, $sOrigText = "" Local $aConvText = StringSplit($sConvText, "", 2) For $i = 0 To UBound($aConvText) - 1 $iIndex = _ArraySearch($aConv, $aConvText[$i], 0, 0, 1) ; Case sensitive search If $iIndex <> -1 Then $sOrigText &= $aOrig[$iIndex] Next Return $sOrigText EndFunc ;==>_Decrypt Link to comment Share on other sites More sharing options...
majidemo Posted August 16, 2010 Author Share Posted August 16, 2010 (edited) @Malkey w0w that is really amazing sir. thank you so much. ill try to edit the code a little & report my progress here.. expandcollapse popup#include <Array.au3> #include <GUIConstants.au3> Local $sOrig = '~!@#$%^&*()_+ QWERTYUIOP{}ASDFGHJKL:"' & "ZXCVBNM<>?|`1234567890-= qwertyuiop[]asdfghjkl;'zxcvbnm,./\" & @CR & @LF Local $sConv = "j5T701J2><=K?4ECQF@MA][DoiUGPRS\^_X.6NLWBVZY(*+ht%&' !" & '"#,-$9)?ecqf`ma}{dOIugprs|~?x/3nlwbvzy8:;H' & @CR & @LF Global $aOrig = StringSplit($sOrig, "", 2) Global $aConv = StringSplit($sConv, "", 2) $khan = "" $khan2 = "" $khan3 = "" ; Local $sOrigText = $khan & @CRLF & $khan2 & @CRLF & "0" & @TAB & $khan3 ; Note TAB encryption/decryption not present. Local $sOrigText = $khan & @CRLF & $khan2 & @CRLF & $khan3 Local $sEncryptText = _Encrypt($sOrigText) Local $sDecryptText = _Decrypt($sEncryptText) ; Use if encrypted text is in a file called "EncryptedText.txt".(Inserts TAB space after line number) ; ConsoleWrite(StringRegExpReplace(_Decrypt(FileRead(@ScriptDir & "\Msg\itemname.bin")), "(\d+)(.+\v*)", "\1" & @TAB & "\2") & @CRLF) ;MsgBox(0, "Results", _ ; "Original text = " & @CRLF & $sOrigText & @CRLF & @CRLF & _ ; "Encrypted text = " & @CRLF & $sKhan & @CRLF & @CRLF & _ ; "Decrypted text = " & @CRLF & $sDecryptText) $message = "Locate Khan .Bin File." $var = FileOpenDialog($message, @WindowsDir & "\", "Images (*.bin)", 1 + 4 ) Guicreate("Your info", 500, 500);250, is the width, and 500 in the height GuisetState(@sw_Show);Shows the gui If @error Then MsgBox(4096,"","No File(s) chosen") Else $sKhan = (StringRegExpReplace(_Decrypt(FileRead($var)), "(\d+)(.+\v*)", "\1" & @TAB & "\2") & @CRLF) $output = GUICtrlCreateInput($sKhan,1, 1, 498, 498) ;Makes a Input box, and writes to variable $firstName ;MsgBox(4096,"",$sKhan) GUISetState() $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $output ExitLoop EndSelect WEnd EndIf Func _Encrypt($sOrigText) Local $iIndex, $sConvText = "" Local $aOrigText = StringSplit($sOrigText, "", 2) For $i = 0 To UBound($aOrigText) - 1 $iIndex = _ArraySearch($aOrig, $aOrigText[$i], 0, 0, 1) ; Case sensitive search If $iIndex <> -1 Then $sConvText &= $aConv[$iIndex] Next Return $sConvText EndFunc ;==>_Encrypt Func _Decrypt($sConvText) Local $iIndex, $sOrigText = "" Local $aConvText = StringSplit($sConvText, "", 2) For $i = 0 To UBound($aConvText) - 1 $iIndex = _ArraySearch($aConv, $aConvText[$i], 0, 0, 1) ; Case sensitive search If $iIndex <> -1 Then $sOrigText &= $aOrig[$iIndex] Next Return $sOrigText EndFunc ;==>_Decrypt Edited August 16, 2010 by majidemo Link to comment Share on other sites More sharing options...
majidemo Posted August 16, 2010 Author Share Posted August 16, 2010 now im trying to do the GUI im having a hard time doing this.. please help i want it to look like there is 2 editbox, i input a text on the top box, then click encrypt then it will display output on bottom box w/ the encryted output. can help? ) my code is expandcollapse popup#include <Array.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <EditConstants.au3> #include <StaticConstants.au3> Local $sOrig = '~!@#$%^&*()_+ QWERTYUIOP{}ASDFGHJKL:"' & "ZXCVBNM<>?|`1234567890-=qwertyuiop[]asdfghjkl;'zxcvbnm,./\" & "þýüûúùø÷öõôóòñðïîíìëêéèçæåäãâáàßÞÝÜ" & @CR & @LF Local $sConv = "j5T701J2><=K?4ECQF@MA][DoiUGPRS\^_X.6NLWBVZY(*+ht%&' !" & '"#,-$9)ecqf`ma}{dOIugprs|~x/3nlwbvzy8:;H' & "êéèïîíìãâáàçæåäûúùøÿþýüóòñð÷öõôËÊÉÈ" & @CR & @LF Global $aOrig = StringSplit($sOrig, "", 2) Global $aConv = StringSplit($sConv, "", 2) ;$khan = "1231241241" ;$khan2 = "31243124" ;$khan3 = "12313141" ;$filedir = "" Local $sOrigText = "adfadfa" & @CRLF & "adfadfa" & @CRLF & "0" & @TAB & "adfadfa" ; Note TAB encryption/decryption not present. ;Local $sOrigText = $khan & @CRLF & $khan2 & @CRLF & $khan3 Opt('MustDeclareVars', 1) Local $sEncryptText = _Encrypt($sOrigText) Local $sDecryptText = _Decrypt($sEncryptText) Local $btn1, $msg, $btn2, $btn3, $xOrigText, $xEncryptText GUICreate("Majid's Khan BIN Enc,Dec", 500, 550, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018); WS_EX_ACCEPTFILES $xOrigText = GUICtrlCreateEdit("", 1, 1, 499, 250) $xEncryptText = GUICtrlCreateEdit("", 1, 300, 499, 250) $btn3 = GUICtrlCreateButton("Encrypt", 110, 260, 60, 30) $btn2 = GUICtrlCreateButton("Decrypt", 210, 260, 60, 30) $btn1 = GUICtrlCreateButton("Close", 310, 260, 60, 30) GUISetState() $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $btn1 ExitLoop Case $msg = $btn3 $xOrigText = $sOrigText Case $msg = $btn2 $xEncryptText = $sEncryptText EndSelect WEnd ;Use if encrypted text is in a file called "EncryptedText.txt".(Inserts TAB space after line number) ;$sKhan = (StringRegExpReplace(_Decrypt(FileRead($filedir)), "(\d+)(.+\v*)", "\1" & @TAB & "\2") & @CRLF) ;MsgBox(0, "Results", _ ; "Original text = " & @CRLF & $sOrigText & @CRLF & @CRLF & _ ; "Encrypted text = " & @CRLF & $sEncryptText & @CRLF & @CRLF & _ ; "Decrypted text = " & @CRLF & $sDecryptText) Func _Encrypt($sOrigText) Local $iIndex, $sConvText = "" Local $aOrigText = StringSplit($sOrigText, "", 2) For $i = 0 To UBound($aOrigText) - 1 $iIndex = _ArraySearch($aOrig, $aOrigText[$i], 0, 0, 1) ; Case sensitive search If $iIndex <> -1 Then $sConvText &= $aConv[$iIndex] Next Return $sConvText EndFunc ;==>_Encrypt Func _Decrypt($sConvText) Local $iIndex, $sOrigText = "" Local $aConvText = StringSplit($sConvText, "", 2) For $i = 0 To UBound($aConvText) - 1 $iIndex = _ArraySearch($aConv, $aConvText[$i], 0, 0, 1) ; Case sensitive search If $iIndex <> -1 Then $sOrigText &= $aOrig[$iIndex] Next Return $sOrigText EndFunc ;==>_Decrypt Link to comment Share on other sites More sharing options...
Malkey Posted August 16, 2010 Share Posted August 16, 2010 Try this. expandcollapse popup#include <Array.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <EditConstants.au3> #include <StaticConstants.au3> Opt('MustDeclareVars', 1) Local $btn1, $msg, $btn2, $btn3, $btn4, $btn5, $var, $xOrigText, $xEncryptText Local $sOrig = '~!@#$%^&*()_+ QWERTYUIOP{}ASDFGHJKL:"' & "ZXCVBNM<>?|`1234567890-=qwertyuiop[]asdfghjkl;'zxcvbnm,./\" & "þýüûúùø÷öõôóòñðïîíìëêéèçæåäãâáàßÞÝÜ" & @CR & @LF Local $sConv = "j5T701J2><=K?4ECQF@MA][DoiUGPRS\^_X.6NLWBVZY(*+ht%&' !" & '"#,-$9)ecqf`ma}{dOIugprs|~x/3nlwbvzy8:;H' & "êéèïîíìãâáàçæåäûúùøÿþýüóòñð÷öõôËÊÉÈ" & @CR & @LF Global $aOrig = StringSplit($sOrig, "", 2) Global $aConv = StringSplit($sConv, "", 2) Local $sOrigText = "adfadfa" & @CRLF & "adfadfa" & @CRLF & "0" & @TAB & "adfadfa" GUICreate("Majid's Khan BIN Enc,Dec", 500, 550, -1, -1, -1, 0x00000018); WS_EX_ACCEPTFILES $xOrigText = GUICtrlCreateEdit($sOrigText, 1, 1, 499, 250) $xEncryptText = GUICtrlCreateEdit("", 1, 300, 499, 250) $btn4 = GUICtrlCreateButton("Encrypt", 80, 260, 60, 30) $btn3 = GUICtrlCreateButton("Decrypt with TAB", 140, 260, 100, 30) $btn2 = GUICtrlCreateButton("Decrypt", 240, 260, 60, 30) $btn1 = GUICtrlCreateButton("Load Encrypted File", 300, 260, 110, 30) $btn5 = GUICtrlCreateButton("Close", 410, 260, 60, 30) GUISetState() $msg = 0 While 1 $msg = GUIGetMsg() Switch $msg Case $btn5, $GUI_EVENT_CLOSE ExitLoop Case $btn4 If GUICtrlRead($xOrigText) <> "" Then _ GUICtrlSetData($xEncryptText, _Encrypt(GUICtrlRead($xOrigText))) Case $btn3 If GUICtrlRead($xEncryptText) <> "" Then _ GUICtrlSetData($xOrigText, StringRegExpReplace(_Decrypt(GUICtrlRead($xEncryptText)), _ "(\d+)(.+\v*)", "\1" & @TAB & "\2")) Case $btn2 If GUICtrlRead($xEncryptText) <> "" Then _ GUICtrlSetData($xOrigText, _Decrypt(GUICtrlRead($xEncryptText))) Case $btn1 $var = FileOpenDialog("Locate Khan .Bin File.", @ScriptDir & "\", _ "Bin files (*.bin)|Text files (*.txt)|All (*.*)", 1 + 4) If Not @error Then GUICtrlSetData($xEncryptText, FileRead($var)) EndIf EndSwitch WEnd Func _Encrypt($sOrigText) Local $iIndex, $sConvText = "" Local $aOrigText = StringSplit($sOrigText, "", 2) For $i = 0 To UBound($aOrigText) - 1 $iIndex = _ArraySearch($aOrig, $aOrigText[$i], 0, 0, 1) ; Case sensitive search If $iIndex <> -1 Then $sConvText &= $aConv[$iIndex] Next Return $sConvText EndFunc ;==>_Encrypt Func _Decrypt($sConvText) Local $iIndex, $sOrigText = "" Local $aConvText = StringSplit($sConvText, "", 2) For $i = 0 To UBound($aConvText) - 1 $iIndex = _ArraySearch($aConv, $aConvText[$i], 0, 0, 1) ; Case sensitive search If $iIndex <> -1 Then $sOrigText &= $aOrig[$iIndex] Next Return $sOrigText EndFunc ;==>_Decrypt Link to comment Share on other sites More sharing options...
majidemo Posted August 16, 2010 Author Share Posted August 16, 2010 @Malkey sir, OMG! your my hero.. this works just perfect.. i will surely see everything you've done to learn..thanks sir & more power.. Link to comment Share on other sites More sharing options...
majidemo Posted August 16, 2010 Author Share Posted August 16, 2010 I have updated this post, and changed the topic... thanks for all previews help.. Link to comment Share on other sites More sharing options...
JohnOne Posted August 16, 2010 Share Posted August 16, 2010 You should change it back, label it solved and start a new thread for something else. Doing what you have, is confusing and quite ridiculous. AutoIt Absolute Beginners Require a serial Pause Script Video Tutorials by Morthawt ipify Monkey's are, like, natures humans. Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now