[solved] defined Encryptor/Decrytor

[majidemo]

I was done with the Encryptor/Decryptor program, thanks to all specially mr.Malkey,

Edited August 18, 2010 by majidemo

[AlmarM]

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)

[majidemo]

@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

[bogQ]

$String = StringReplace($String, "6", '"')

[AndyG]

$String = StringReplace($String, '4', ' ')
$String = StringReplace($String, '5', '!')
$String = StringReplace($String, '6', '"')
$String = StringReplace($String, '7', '#')

replace the " with '   

[majidemo]

@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

[majidemo]

i'd like to show an example of what i want to decrypt / replace.

Input

expandcollapse popup

74G`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.

[ShawnW]

just fyi, these types of encryptions are extremely easy to break.

[Malkey]

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

[majidemo]

@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

[majidemo]

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

[Malkey]

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

[majidemo]

@Malkey sir, OMG! your my hero.. this works just perfect.. i will surely see everything you've done to learn..thanks sir & more power..

[majidemo]

I have updated this post, and changed the topic... thanks for all previews help..

[JohnOne]

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.