CreatoR сказал(а):
Понимаем, но это ты, не каждый сможет это проделать, а мне нужна не сложная защита, не от тебя, а от новичков которым попался в руки декомпилятор.
В этом направление уже копают давно, однако безуспешно, последняя “удачная” попытка закончилась тем, что автор того самого могучего декомпилятора (чьё имя нелзя произносить в слух... прям как в Гарри Потерре, “Вола́н-де-Мо...”) обнаружил утечку и исправил её в новой версий.
MsgBox(0, "Password", _STRINGENCRYPT(0, "33D400FCA7D098BE478A65F13D42", 1234567890))
Папанова вспомнил - "Достаточно одной таблэтки".
#include <String.au3>
$hForm = GUICreate("Varies password",200,200)
GUISetState()
$sData1 = _StringEncrypt(1,WinGetHandle($hForm,""),WinGetHandle($hForm,""),3)
$sData2 = _StringEncrypt(0,$sData1,WinGetHandle($hForm,""),3)
If WinGetHandle($hForm,"") = $sData2 Then
MsgBox(0,"Password",$sData2)
Exit
Else
Exit
EndIf
MZПароль конечно же должен быть в зашифрованном "контейнере", а вот пароль к контейнеру наверно будет правильно сгененрировать на основе данных, например икноки, и размер пароля например в несколько килобайт.
#include <Crypt.au3>
;au3()
MsgBox(0, "Message", au3())
Func au3()
$Hash = "C4CA4238A0B923820DCC509A6F75849B6666CD76F96956469E7BE39D750CC7D9518ED29525738CEBDAC49C49E60EA9D34A8A08F09D37B73795649038408B5F33D95679752134A2D9EB61DBD7B91C4BCC6F8F57715090DA2632453988D9A1501B83878C91171338902E0FE0FB97A8C47A865C0C0B4AB0E063E5CAA3387C1A87412DB95E8E1A9267B7A1188556B2013B33E1671797C52E15F763380B45E841EC328277E0910D750195B448797616E091AD6CFF047854F19AC2AA52AAC51BF3AF4A84C40473414CAF2ED4A7B1283E48BBF4518ED29525738CEBDAC49C49E60EA9D303C7C0ACE395D80182DB07AE2C30F0344A8A08F09D37B73795649038408B5F334B43B0AEE35624CD95B910189B3DC231865C0C0B4AB0E063E5CAA3387C1A874183878C91171338902E0FE0FB97A8C47AE358EFA489F58062F10DD7316B65649E2DB95E8E1A9267B7A1188556B2013B33865C0C0B4AB0E063E5CAA3387C1A87417B8B965AD4BCA0E41AB51DE7B31363A1E1671797C52E15F763380B45E841EC327B8B965AD4BCA0E41AB51DE7B31363A17B774EFFE4A349C6DD82AD4F4F21D34C6F8F57715090DA2632453988D9A1501B92EB5FFEE6AE2FEC3AD71C777531578FE1671797C52E15F763380B45E841EC324B43B0AEE35624CD95B910189B3DC2313389DAE361AF79B04C9C8E7057F60CC6336D5EBC5436534E61D16E63DDFCA3271679091C5A880FAF6FB5E6087EB1B2DC9371D7A2E3AE86A00AAB4771E39D255D"
$Exp = StringRegExp($Hash, ".{32}", 3)
$Export = ""
$Str = StringSplit("qwertyuiopasdfghjklzxcvbnm,./!@#$%^&*()_+1234567890-= ", "")
For $I = 0 To UBound($Exp) - 1
For $A = 1 To $Str[0]
$Temp = _CRYPT_HASHDATA($Str[$A], $CALG_MD5)
If $Temp = "0x" & $Exp[$I] Then
$Export &= $Str[$A]
ExitLoop
EndIf
Next
Next
$Export = Execute($Export)
Return Execute($Export)
EndFunc#include <Crypt.au3>
;au3()
au3()
Func au3()
$Hash = "C4CA4238A0B923820DCC509A6F75849B6666CD76F96956469E7BE39D750CC7D9518ED29525738CEBDAC49C49E60EA9D34A8A08F09D37B73795649038408B5F33D95679752134A2D9EB61DBD7B91C4BCC6F8F57715090DA2632453988D9A1501B83878C91171338902E0FE0FB97A8C47A865C0C0B4AB0E063E5CAA3387C1A87412DB95E8E1A9267B7A1188556B2013B33E1671797C52E15F763380B45E841EC328277E0910D750195B448797616E091AD6CFF047854F19AC2AA52AAC51BF3AF4A84C40473414CAF2ED4A7B1283E48BBF4518ED29525738CEBDAC49C49E60EA9D303C7C0ACE395D80182DB07AE2C30F0344A8A08F09D37B73795649038408B5F334B43B0AEE35624CD95B910189B3DC231865C0C0B4AB0E063E5CAA3387C1A874183878C91171338902E0FE0FB97A8C47AE358EFA489F58062F10DD7316B65649E2DB95E8E1A9267B7A1188556B2013B33865C0C0B4AB0E063E5CAA3387C1A87417B8B965AD4BCA0E41AB51DE7B31363A1E1671797C52E15F763380B45E841EC327B8B965AD4BCA0E41AB51DE7B31363A17B774EFFE4A349C6DD82AD4F4F21D34C6F8F57715090DA2632453988D9A1501B92EB5FFEE6AE2FEC3AD71C777531578FE1671797C52E15F763380B45E841EC324B43B0AEE35624CD95B910189B3DC2313389DAE361AF79B04C9C8E7057F60CC6336D5EBC5436534E61D16E63DDFCA327ECCBC87E4B5CE2FE28308FD9F2A7BAF31679091C5A880FAF6FB5E6087EB1B2DC9371D7A2E3AE86A00AAB4771E39D255D1120"
$Exp = StringRegExp($Hash, ".{32}", 3)
$Export = ""
$Str = StringSplit("qwertyuiopasdfghjklzxcvbnm,./!@#$%^&*()_+1234567890-= ", "")
For $I = 0 To UBound($Exp) - 1
For $A = 1 To $Str[0]
$Temp = _CRYPT_HASHDATA($Str[$A], $CALG_MD5)
If $Temp = "0x" & $Exp[$I] Then
$Export &= $Str[$A]
ExitLoop
EndIf
Next
Next
$Export = Execute($Export)
Return Execute('A' & $Export & '()');Execute($Export)
EndFunc
Func A136()
MsgBox(0,'','Работает')
EndFunc
Func A56738()
MsgBox(0,'','Пример')
EndFunc
Func A0093()
MsgBox(0,'','Скрипт скомпилирован')
EndFunc#include <Crypt.au3>
au3()
Func au3()
$Hash = "C4CA4238A0B923820DCC509A6F75849B6666CD76F96956469E7BE39D750CC7D9518ED29525738CEBDAC49C49E60EA9D34A8A08F09D37B73795649038408B5F33D95679752134A2D9EB61DBD7B91C4BCC6F8F57715090DA2632453988D9A1501B83878C91171338902E0FE0FB97A8C47A865C0C0B4AB0E063E5CAA3387C1A87412DB95E8E1A9267B7A1188556B2013B33E1671797C52E15F763380B45E841EC328277E0910D750195B448797616E091AD6CFF047854F19AC2AA52AAC51BF3AF4A84C40473414CAF2ED4A7B1283E48BBF4518ED29525738CEBDAC49C49E60EA9D303C7C0ACE395D80182DB07AE2C30F0344A8A08F09D37B73795649038408B5F334B43B0AEE35624CD95B910189B3DC231865C0C0B4AB0E063E5CAA3387C1A874183878C91171338902E0FE0FB97A8C47AE358EFA489F58062F10DD7316B65649E2DB95E8E1A9267B7A1188556B2013B33865C0C0B4AB0E063E5CAA3387C1A87417B8B965AD4BCA0E41AB51DE7B31363A1E1671797C52E15F763380B45E841EC327B8B965AD4BCA0E41AB51DE7B31363A17B774EFFE4A349C6DD82AD4F4F21D34C6F8F57715090DA2632453988D9A1501B92EB5FFEE6AE2FEC3AD71C777531578FE1671797C52E15F763380B45E841EC324B43B0AEE35624CD95B910189B3DC2313389DAE361AF79B04C9C8E7057F60CC6336D5EBC5436534E61D16E63DDFCA327ECCBC87E4B5CE2FE28308FD9F2A7BAF31679091C5A880FAF6FB5E6087EB1B2DC9371D7A2E3AE86A00AAB4771E39D255D1120"
$Exp = StringRegExp($Hash, ".{32}", 3)
$Export = ""
$Str = StringSplit("qwertyuiopasdfghjklzxcvbnm,./!@#$%^&*()_+1234567890-= ", "")
For $I = 0 To UBound($Exp) - 1
For $A = 1 To $Str[0]
$Temp = _CRYPT_HASHDATA($Str[$A], $CALG_MD5)
If $Temp = "0x" & $Exp[$I] Then
$Export &= $Str[$A]
ExitLoop
EndIf
Next
Next
MsgBox(0,'',$Export) ; Этом месте
$Export = Execute($Export)
Return Execute('A' & $Export & '()');Execute($Export)
EndFunc
Func A136()
MsgBox(0,'','Работает')
EndFunc
