basc 发表于 2011-8-22 18:38:22

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

本帖最后由 basc 于 2011-8-23 20:28 编辑

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

Hen5ei 发表于 2011-8-22 20:28:09

你可以选择使用这个函数_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 发表于 2011-8-22 20:28:43

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

basc 发表于 2011-8-23 20:26:28

好的，我试试。

gmzlmxm 发表于 2011-8-28 00:20:23

头大~~~~~``http://www.pgpop.com/image/face1.gif



























http://bbs.hangzhou.com.cn/images/default/sigline.gif
怎样祛斑最有效

moverlover 发表于 2016-8-3 14:18:26

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

moverlover 发表于 2016-8-3 14:18:36

[效率算法] _StringEncrypt加密解锁问题【已解决】
页: [1]
查看完整版本: _StringEncrypt加密解锁问题【已解决】