_StringEncrypt加密解锁问题【已解决】

basc

#Include <String.au3>
   $passwordsmi = _StringEncrypt(1,$passwords,"bbb")
    Msgbox(0,"3" , $passwordsmi)
怎么不行呢··不能加密呢·
是空白的，怎么回事，查了一下资料说是编码问题。也改过了，我的AU3版本是AUTOIT_3.3.7.2-1PRE。以前我用过这个函数，是没问题的。奇怪了。。。有没有其他的加密解密的函数！

Hen5ei

你可以选择使用这个函数

_Crypt_EncryptData

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <Crypt.au3>
#include <WinAPI.au3>

; 实例 实时 RC4 加密

$hWnd=GUICreate("数据加密",400,300,-1)
$hInputEdit=GUICtrlCreateEdit("",0,0,400,150,$ES_WANTRETURN)
$hOutputEdit=GUICtrlCreateEdit("",0,150,400,150,$ES_READONLY)
GUIRegisterMsg($WM_COMMAND,"WM_COMMAND")
GUISetState(@SW_SHOW)

; 为优化性能启动程序库及创建密钥
_Crypt_Startup()
$hKey=_Crypt_DeriveKey("SomePassword",$CALG_RC4)

Do
    $msg=GUIGetMsg()
Until $msg=$GUI_EVENT_close

_Crypt_DestroyKey($hKey)
_Crypt_Shutdown()

Func WM_COMMAND($hWinHandle,$iMsg,$wParam,$lParam)
    ; 如果输入编辑框中有改动
    If _WinAPI_HiWord($wParam)=$EN_CHANGE And _WINAPI_LoWord($wParam)=$hInputEdit Then
        $bEncrypted=_Crypt_EncryptData(GUICtrlRead($hInputEdit),$hKey,$CALG_USERKEY)
        GUICtrlSetData($hOutputEdit,$bEncrypted)
    EndIf
EndFunc

Hen5ei

解密的时候必须设置相同的算法

basc

好的，我试试。

gmzlmxm

头大~~~~~``




























怎样祛斑最有效

moverlover

[效率算法] _StringEncrypt加密解锁问题【已解决】

moverlover

[效率算法] _StringEncrypt加密解锁问题【已解决】