Please Help: CryptAES Not working (1.1.33.10-H001) Topic is solved

[joreli]

Hi,

CryptAES func object says it is a IsBuiltIn function.

My Test Script:

Code: Select all

var := "This is Test Line"
Size := CryptAES(&var, VarSetCapacity(var), "password", true)
MsgBox, % Size "`n" var

Size returns blank and and var shows it`s original content

Do I need to include UDF for this function to work???
Thanks

[HotKeyIt]

I have uploaded a fixed version, a parameter was wrong.
Also note, you will need additionaly 16 bytes:

Code: Select all

str:="This is Test Line"
VarSetCapacity(var, (sz:=StrPut(str)*2)+16)
StrPut(str,&var)
Size := CryptAES(var, sz, "kjadskfjalögkhakglsdfkaj", true)
MsgBox % Size "`n" StrGet(&var)

[joreli]

Thank you.. that fixed the problem.

*** Note: even in decryption 16 bytes extra is required...

[joreli]

There is another problem now...

This one works for me

Code: Select all

MyStr:="This is Test Line"
MyPass := "kjadskfjalögkhakglsdfkaj"

;//Encryption
VarSetCapacity(var, (sz := StrPut(MyStr) * 2) + 16)
StrPut(MyStr, &var)
Size := CryptAES(var, sz, MyPass, true)
MyStr2 := StrGet(&var)
MsgBox, % MyStr2 "`n`n" Size " : " StrLen(MyStr2)

;//Decryption
Size := CryptAES(MyStr2, Size, MyPass, false)
MyStr3 := StrGet(&MyStr2)
MsgBox, % MyStr3 "`n`n" Size " : " StrLen(MyStr3)
ExitApp

This one not

Code: Select all

MyStr:="This is Test Line"
MyPass := "kjadskfjalögkhakglsdfkaj"

MsgBox, % CryptAES_Helper1(MyStr, MyPass) "`n" MyStr
MsgBox, % CryptAES_Helper1(MyStr, MyPass, 0) "`n" MyStr

CryptAES_Helper1(ByRef Str, Pass, Flag=1){
	if Flag {
		VarSetCapacity(var, (sz := StrPut(Str) * 2) + 16)
		StrPut(Str, &var)
		Size := CryptAES(var, sz, Pass, true)
		Str := StrGet(&var)
		return Size
	}
	;//Size := CryptAES(Str, StrLen(Str), Pass, false)
	;//Size := CryptAES(Str, StrLen(Str)*2, Pass, false)
	;//Size := CryptAES(Str, StrLen(Str)*2+2, Pass, false)
	;//Size := CryptAES(Str, StrLen(Str)*2+16, Pass, false)
	Size := CryptAES(Str, StrLen(Str)*2+2+16, Pass, false)
	Str := StrGet(&Str)
	return Size
}

and this one too not working

Code: Select all

MyStr:="This is Test Line"
MyPass := "kjadskfjalögkhakglsdfkaj"

MsgBox, % CryptAES_Helper2(MyStr, MyPass) "`n" MyStr
MsgBox, % CryptAES_Helper2(MyStr, MyPass, 0) "`n" MyStr

CryptAES_Helper2(ByRef Str, Pass, Flag=1){
	VarSetCapacity(var, (sz := StrPut(Str) * 2) + 16)
	StrPut(Str, &var)
	Size := CryptAES(var, sz, Pass, Flag? true : false)
	Str := StrGet(&var)
	return Size
}

Please help...

[HotKeyIt]

Code: Select all

MyStr:="This is Test Line"
MyPass := "kjadskfjalögkhakglsdfkaj"

MsgBox, % CryptAES_Helper2(MyStr, MyPass) "`n" MyStr
MsgBox, % CryptAES_Helper2(MyStr, MyPass, 0) "`n" MyStr

CryptAES_Helper2(ByRef Str, Pass, Flag=1){
	VarSetCapacity(var, (sz := StrPut(Str) * (A_IsUnicode+1)) + 16)
	StrPut(Str, &var)
	Size := CryptAES(var, sz - (Flag ? 0 : A_IsUnicode*2), Pass, Flag? true : false)
	Str := StrGet(&var)
	return Size
}

[joreli]

Thank you