как зашифровать ей строку в обычную строку
Так я же объяснял уже.
]]>У меня так работает на версии 1.1.33.10:
string:="This is a message from AutoHotkey." sz := ZipRawMemory(string, StrLen(string) * 2 + 2, var, "password") ; подразумевается UTF-16 UnZipRawMemory(&var, sz, text, "password") MsgBox % text string := "Hello, World" size := StrPutBuff(string, buf) size := CryptAES(&buf, size, "sdfKIop", true, 128) MsgBox, % StrGet(&buf, size, "UTF-8") size := CryptAES(&buf, size, "sdfKIop", false, 128) MsgBox, % StrGet(&buf, size, "UTF-8") StrPutBuff(str, ByRef buff, encoding := "UTF-8") { VarSetCapacity(buff, len := (StrPut(str, encoding) - 1) << (encoding ~= "i)^(UTF-16|cp1200)$")) StrPut(str, &buff, encoding) Return len }В первом примере + 2 не обязательно, но желательно.
То ли я всегда пробовал этот код целиком, но CryptAES заработал, ошибка была в ZipRawMemory.
Чё то всё равно не доходит, как зашифровать ей строку в обычную строку, и после эту строку дешифровать.
#SingleInstance Force
#NoEnv
SetBatchLines, -1
decstring := "Hello, World"
size := StrPutBuff(decstring, decbuf)
size := CryptAES(&decbuf, size, "sdfKIop", true, 128)
encstring := StrGet(&decbuf, size, "UTF-8")
MsgBox, % encstring
size := StrPutBuff(encstring, encbuf)
size := CryptAES(&encbuf, size, "sdfKIop", false, 128)
MsgBox, % StrGet(&encbuf, size, "UTF-8")
StrPutBuff(str, ByRef buff, encoding := "UTF-8") {
VarSetCapacity(buff, len := (StrPut(str, encoding) - 1) << (encoding ~= "i)^(UTF-16|cp1200)$"))
StrPut(str, &buff, encoding)
Return len
}насколько тут по-взрослому.
Ну видимо на сколько-то. От школьника есть защита, уже хорошо. Насколько я слышал, питон и ява тоже не защищены достойно, хотя на счёт ява может и ошибаюсь.
можно скинуться и на кворке заказать взлом и проверить насколько крепка защита
А вот это не надо, так и появляются в итоге публичные методы взлома.
]]>AHK_L, школьник взломает, а тут вроде всё по взрослому.
Вопрос конечно интересный, насколько тут по-взрослому.
Я с хакерами не знаком, виртуально знаю только одного - очень серьезного, но он точно заниматься подобными глупостями не будет.
Если есть интерес, то можно скинуться и на кворке заказать взлом и проверить насколько крепка защита.
если в переменной бинарные данные, её нельзя возвращать через return
Это да, косяк. Надо указатель передавать когда это требуется.
]]>Но так тоже как строку возвращает, пример:
А к чему этот пример, что то не понял.
]]>с ней же заработало
А, не очень внимательно посмотрел. Там было
If crypt
Return outDataНо так тоже как строку возвращает, пример:
data := CryptString()
MsgBox, % data
MsgBox, % Format("{:#x}", NumGet(data, "Int64"))
CryptString() {
VarSetCapacity(outData, 8, 0)
NumPut(0x6100000061, outData, "Int64")
VarSetCapacity(outData, -1)
MsgBox, % outData
MsgBox, % Format("{:#x}", NumGet(outData, "Int64"))
Return outData
}А смысл возиться и плясать с бубном с AHK_H?
Ну он с шифрованием кода, с антиотладчиком, в памяти вроде части кода затирает чтобы в дампе памяти не видно было. AHK_L, школьник взломает, а тут вроде всё по взрослому.
И многопоточность без танцев с бубнами.
Ну да, это строка и это неправильно
Вроде верно, так, с ней же заработало.
CryptString(string, password, iv := "", crypt := true, algorithm := "AES", textEncoding := "UTF-8") {
; crypt: true — encrypt, false — decrypt
If crypt
lenInData := StrPutBuff(string, inData, textEncoding)
Else
lenInData := StringBase64ToData(string, inData)
hLib := DllCall("LoadLibrary", "Str", "Bcrypt.dll", "Ptr")
lenPasswordData := StrPutBuff(password, passwordData, textEncoding)
lenHashPassword := CreateHash(&passwordData, lenPasswordData, hashPassword)
pHashIv := lenIv := 0
if (iv != "") {
lenIvData := StrPutBuff(iv, ivData, textEncoding)
lenHashIv := CreateHash(&ivData, lenIvData, hashIv)
VarSetCapacity(iv16, 16, 0)
DllCall("RtlMoveMemory", "Ptr", pHashIv := &iv16, "Ptr", &hashIv + lenHashIv - 16, "Ptr", lenIv := 16)
}
crypt := (crypt ? "En" : "De") . "crypt"
lenOutData := Bcrypt(&inData, lenInData, outData, &hashPassword, lenHashPassword, pHashIv, lenIv, algorithm, crypt)
DllCall("FreeLibrary", "Ptr", hLib)
If (crypt = "Encrypt")
Return CryptBinaryToStringBASE64(&outData, lenOutData, 1)
Return StrGet(&outData, lenOutData, textEncoding)
}
Попробовал на виртуалке, работает. Что за ерунда может мешать работе этих функций...
А смысл возиться и плясать с бубном с AHK_H?
]]>Return StrGet(&outData, lenOutData, textEncoding)Ну да, это строка и это неправильно. Функция должна вернуть буфер и его длину.
]]>А у тебя CryptString() пытается вернуть строку.
CryptString(string, password, iv := "", crypt := true, algorithm := "AES", textEncoding := "UTF-8") {
; crypt: true — encrypt, false — decrypt
If crypt
lenInData := StrPutBuff(string, inData, textEncoding)
Else
lenInData := StringBase64ToData(string, inData)
hLib := DllCall("LoadLibrary", "Str", "Bcrypt.dll", "Ptr")
lenPasswordData := StrPutBuff(password, passwordData, textEncoding)
lenHashPassword := CreateHash(&passwordData, lenPasswordData, hashPassword)
pHashIv := lenIv := 0
if (iv != "") {
lenIvData := StrPutBuff(iv, ivData, textEncoding)
lenHashIv := CreateHash(&ivData, lenIvData, hashIv)
VarSetCapacity(iv16, 16, 0)
DllCall("RtlMoveMemory", "Ptr", pHashIv := &iv16, "Ptr", &hashIv + lenHashIv - 16, "Ptr", lenIv := 16)
}
crypt := (crypt ? "En" : "De") . "crypt"
lenOutData := Bcrypt(&inData, lenInData, outData, &hashPassword, lenHashPassword, pHashIv, lenIv, algorithm, crypt)
DllCall("FreeLibrary", "Ptr", hLib)
If crypt
Return outData
Return StrGet(&outData, lenOutData, textEncoding)
}