为了账号安全,请及时绑定邮箱和手机立即绑定

在delphi中怎样实现SHA1加密?

/ 猿问

在delphi中怎样实现SHA1加密?

守着一只汪 2019-04-03 11:07:32

在delphi中怎样实现SHA1加密


查看完整描述

3 回答

?
呼如林

方法一、使用 delphi 内置函数。
delphi 的 IdHashSHA 单元,提供了 TidHashSHa1 类,可以实现 SHA1 加密。
方法二、使用第三方控件。
如:CnPack 小组提供的 CnSHA1。示例代码如下:

1
2
3
4
5
6
7
8

procedure TForm1.btnSha1Click(Sender: TObject);
begin
{$IFDEF UNICODE}
pnlSha1.Caption := SHA1Print(SHA1StringA(AnsiString(edtSha1.Text)));
{$ELSE}
pnlSha1.Caption := SHA1Print(SHA1String(edtSha1.Text));
{$ENDIF}
end;



查看完整回答
反对 回复 2019-04-12
?
慕慕森

方法一、使用 delphi 内置函数。

delphi 的 IdHashSHA 单元,提供了 TidHashSHa1 类,可以实现 SHA1 加密。

方法二、使用第三方控件。

如:CnPack 小组提供的 CnSHA1。示例代码如下:

12345678procedure TForm1.btnSha1Click(Sender: TObject);begin{$IFDEF UNICODE}  pnlSha1.Caption := SHA1Print(SHA1StringA(AnsiString(edtSha1.Text)));{$ELSE}  pnlSha1.Caption := SHA1Print(SHA1String(edtSha1.Text));{$ENDIF}end;


查看完整回答
反对 回复 2019-04-12
?
RISEBY

在 CnPack 提供的源代码包里,提供了 des 加解密单元文件,提供了以下四个功能函数:

function DESEncryptStr(Str, Key: AnsiString): AnsiString;
{* 传入明文与加密 Key,DES 加密返回密文,
注:由于密文可能含有扩展 ASCII 字符,因此在 DELPHI 2009 或以上版本中,请用
AnsiString 类型的变量接收返回值,以避免出现多余的 Unicode 转换而导致解密出错}

function DESDecryptStr(Str, Key: AnsiString): AnsiString;
{* 传入密文与加密 Key,DES 解密返回明文}

function DESEncryptStrToHex(Str, Key: AnsiString): AnsiString;
{* 传入明文与加密 Key,DES 加密返回转换成十六进制的密文}

function DESDecryptStrFromHex(StrHex, Key: AnsiString): AnsiString;
{* 传入十六进制的密文与加密 Key,DES 解密返回明文}

查看完整回答
反对 回复 2019-04-12

添加回答

回复

举报

0/150
提交
取消
意见反馈 帮助中心 APP下载
官方微信