Question

我在md5 crypt的项目中使用了crypto api WCrypt2，但我不知道要解码。你能为我提供crypto api的解码功能吗？

在我的项目中，我需要使用下面的加密代码。解码函数必须使用Label1和Edit1.Bouth包含在表单启动中，但对于解码，我将使用Button1

这是我的代码：

unit HUID;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdGlobal, IdHash, IdHashMessageDigest, WCrypt2;

type
  TForm1 = class(TForm)        
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetEnvVarValue(const VarName: string): string;
var
  BufSize: Integer;  // buffer size required for value
begin
  // Get required buffer size (inc. terminal #0)
  BufSize := GetEnvironmentVariable(PChar(VarName), nil, 0);
  if BufSize > 0 then
  begin
    // Read env var value into result string
    SetLength(Result, BufSize - 1);
    GetEnvironmentVariable(PChar(VarName),
    PChar(Result), BufSize);
  end
  else
    // No such environment variable
    Result := '';
end;

function md5(const Input: string): string;
var
  i: Integer;
  pbContent: PByte;
  dwHashBytes: Cardinal;
  hHash: HCRYPTHASH;
  hCryptProvider: HCRYPTPROV;
  bHash: array[0..$7f] of Byte;
begin
  Result := '';
  dwHashBytes := 16;
  pbContent := Pointer(PChar(Input));

  if CryptAcquireContext(@hCryptProvider, nil, nil, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT or CRYPT_MACHINE_KEYSET) then
  begin
    if CryptCreateHash(hCryptProvider, CALG_MD5, 0, 0, @hHash) then
    begin
      if CryptHashData(hHash, pbContent, Length(Input) * sizeof(Char), 0) then
      begin
        if CryptGetHashParam(hHash, HP_HASHVAL, @bHash[0], @dwHashBytes, 0) then
        begin
          for i := 0 to dwHashBytes - 1 do
          begin
            Result := Result + Format('%.2x', [bHash[i]]);
          end;
        end;
      end;
      CryptDestroyHash(hHash);
    end;
    CryptReleaseContext(hCryptProvider, 0);
  end;
  Result := AnsiLowerCase(Result);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption :=  (GetEnvVarValue('PROCESSOR_REVISION')+GetEnvVarValue('PROCESSOR_LEVEL')+GetEnvVarValue('NUMBER_OF_PROCESSORS')+GetEnvVarValue('Cor_Debugging_Control_424242'));
  Edit1.Text := md5(Label1.Caption);
end;

end.

Answer 1

MD5是单向哈希它用于签名信息和检查密码。

<强>加密
如果您想加密数据（例如，通过网络安全地发送数据）您需要使用AES或3DES之类的密码。

如果用AES解密替换MD5呼叫变得容易。
AES是对称密码，这意味着加密和解密使用相同的密钥（尽管操作不同）。

有关详细信息，请参阅以下Wiki页面：

<强>登录
如果你想使用MD5功能进行密码加密，那你就犯了两个错误：

MD5不再安全，请改用SHA2或SHA3。
您需要对所有哈希密码加密，请参阅：How does password salt help against a rainbow table attack?

为了检查密码，请使用相同的盐重新密码，并检查是否出现相同的结果。

delphi crypto api解码

1 个答案: