_StringEncrypt() and unicode

[alaa777]

_StringEncrypt() has any thing to do with the setting of "language for non-Unicode programs" in the region and language?

because it's working for me my setting "Arabic (Egypt)" and not working with my friend his setting "Chinese (simplified, PRC)"

Edited April 28, 2010 by alaa777

[PsaltyDS]

It's a suspected issue that _StringEncrypt() can be thrown off by code page/language selections. Use a true binary encryption instead. My first recommendation would be the new Crypt.au3 UDF that is now included.

There is a previous discussion of the issue mentioned here: __StringEncrypt()

Edit: Added links

Edited April 28, 2010 by PsaltyDS

[jchd]

Yep, _StringEncrypt will only work "reliably" with ANSI data (that is: not at all if the encode and decode processes don't run with the same user codepage, or if the codepage uses double byte encoding, like most Asian do). So in practice, its use it limited to ASCII, which is pretty backwards nowadays.

[wolf9228]

AscW

Returns the unicode code of a character.

AscW ( "char" )

ChrW

Returns a character corresponding to a unicode code.

ChrW ( UNICODEcode )

expandcollapse popup

;AscW
;Returns the unicode code of a character.
;AscW ( "char" )

;ChrW
;Returns a character corresponding to a unicode code.
;ChrW ( UNICODEcode )





$Txt = _StringEncryptW("abcdefg", "1234")
MsgBox(0,"_StringEncryptW",$Txt)
$Txt = _StringDecryptW($Txt, "1234")
MsgBox(0,"_StringDecryptW",$Txt)

Func _StringEncryptW($Text ,$Password)
Local $X = StringLen($Password) , $Y = 0 ,$OutTxt = ""
For $i = 1 To StringLen($Text)
$Y += 1
$ChrW1 = StringRight(StringLeft($Text,$i),1)
$ChrW2 = StringRight(StringLeft($Password,$Y),1)
if $Y = $X Then $Y = 0
$Modified = BitXOR(AscW($ChrW1),AscW($ChrW2), 255)
$Rt = Hex($Modified,2)
$OutTxt &= $Rt
Next
return $OutTxt
EndFunc

Func _StringDecryptW($HexCode ,$Password)
Local $X = StringLen($Password) , $Y = 0 ,$OutTxt = ""
For $i = 2 To StringLen($HexCode) Step 2
$Y += 1
$Rt = StringRight(StringLeft($HexCode,$i),2)
$ChrW2 = StringRight(StringLeft($Password,$Y),1)
if $Y = $X Then $Y = 0
$Modified = Dec($Rt)
$CodeW = BitXOR($Modified,AscW($ChrW2),255)
$ChrW1 = ChrW($CodeW)
$OutTxt &= $ChrW1
Next
return $OutTxt
EndFunc