[오토핫키] 간단한 암호화 복호화

/*

소스를 열어봤을 때 혼선을 주기 위해서 직관적인 변수명을 주지 않았음.

*/

size:="한글" ; string 값

width:="dnfiodnoi" ;key 값

result := unit(size,width)

result:= "" . result . ""

msgbox, % "Code  : `n " result ;암호화

msgbox, %  "Decode : `n" ununit(result,width) ;복호화

unit(String, Seed)

{

Random,, Seed

Loop, Parse, String

{

Random x, 1, 1000000

Random y, 1, 1000000

newString .= (Asc(A_loopfield)+x) y

}

return newString

}

ununit(String, Seed)

{

Random,, Seed

while StrLen(String)>0

{

Random x, 1, 1000000

Random y, 1, 1000000

Pos := InStr(String, y)

oldString .= Chr(SubStr(String, 1, Pos-1)-x)

String := SubStr(String, Pos+StrLen(y))

}

return oldString

}