'encrypt'에 해당되는 글 1건
- 2008.11.17 vb 암호화
' -------------------------------------------- Randomize
' 암호화
' --------------------------------------------
function Encrypt(theText)
Dim output, Temp(), Temp2()
TextSize = Len(theText)
if TextSize < 1 then
Encrypt = ""
exit function
end if
ReDim Temp(TextSize-1)
ReDim Temp2(TextSize-1)
for i = 0 to TextSize-1
rndVal = Int((255 * Rnd) + 128)
' mid 는 자동으로 2바이트 문자를 1글자로 인식한다.
Temp(i) = AscW(Mid(theText, i+1, 1)) + rndVal
Temp2(i) = rndVal
next
for i = 0 to TextSize-1
output = output & ChrW(Temp(i)) & ChrW(Temp2(i))
next
'Encrypt = Escape(output)
Encrypt = output
end function