delphi dcp component

TDCP_md5

md5 String;

md5 stream;流文件

procedure TForm1.Button1Click(Sender: TObject);
var
hashd: array [ .. ] of Byte;
abytes: TByteDynArray;
s: string;
read, len: integer;
ast: AnsiString;
begin
ast := '中国';
self.DCP_md51.Init;
self.DCP_md51.UpdateStr(ast);
self.DCP_md51.Final(hashd);
len := DCP_md51.HashSize;
s := '';
for Read := to ((len div ) - ) do
s := s + IntToHex(hashd[Read], );
Caption := s;
end; procedure TForm1.Button2Click(Sender: TObject);
var
hashd: array [ .. ] of Byte;
s: string;
read, len: integer;
ast: string;
begin
ast := '中国';
self.DCP_md51.Init;
self.DCP_md51.UpdateStr(ast);
self.DCP_md51.Final(hashd);
len := DCP_md51.HashSize;
s := '';
for Read := to ((len div ) - ) do
s := s + IntToHex(hashd[Read], );
Caption := s; end; procedure TForm1.Button3Click(Sender: TObject);
var
hashd: array [ .. ] of Byte;
s: string;
read, len: integer;
ast: AnsiString;
begin
ast := '中国';
self.DCP_sha11.Init;
self.DCP_sha11.UpdateStr(ast);
self.DCP_sha11.Final(hashd);
len := DCP_sha11.HashSize;
s := '';
for Read := to ((len div ) - ) do
s := s + IntToHex(hashd[Read], );
Caption := s;
end;

stream

procedure TForm1.Button1Click(Sender: TObject);
var
hashd: array [ .. ] of Byte;
s: string;
read, len: integer;
ast: AnsiString;
ss: TStringStream;
begin
ast := '中国';
ss := TStringStream.Create;
ss.WriteString('ww'); self.DCP_md51.Init;
DCP_md51.UpdateStream(ss, ss.Size);
self.DCP_md51.Final(hashd);
ss.Free; len := DCP_md51.HashSize;
s := '';
for Read := to ((len div ) - ) do
s := s + IntToHex(hashd[Read], );
Caption := s;
end;

DCPcrypt的更多相关文章

  1. Dll中调用dcpcrypt

    可先在EXE中加入控件来参考,如要导出给其它语言调用参数得用PChar,XE以上的估计得再调整,待实用时再测试 如下代码在2007中可直接导出使用 uses Windows, SysUtils, DC ...

  2. 著名加密库收集 Encrypt

    CryptoAPI 微软的CryptoAPI crypt32.lib,advapi32.lib,cryptui.lib #include <wincrypt.h>#include < ...

  3. KbmMW资源汇总(更新中…)

    KbmMW框架是收费的,不在此提供下载,如需购买,请自行联系作者Kim Madsen. 网址资源: 官网主页:http://www.components4programmers.com/product ...

  4. 也谈.Net中间语言——破解Delphi2CS行数和时间限制

    其实我一直在研究将Delphi版的传奇2源代码使用C#实现,不过由于我并没有学习过Delphi.就只能说先试着用一些工具转换代码. 后来我在网上找到了一款软件:Delphi2CS.这款软件比较强大,虽 ...

  5. KbmMW 4.40.00 正式版发布

    经过快3个月的测试,kbmmw 4.40 正式版终于在圣诞节前发布了. We are happy to announce the availability of a new kbmMW release ...

  6. KbmMW-及相关

    KbmMW框架是收费的,不在此提供下载,如需购买,请自行联系作者Kim Madsen. 网址资源: 官网主页:http://www.components4programmers.com/product ...

  7. KbmMW资源汇总(特别是xalion的文章)

    KbmMW框架是收费的,不在此提供下载,如需购买,请自行联系作者Kim Madsen. 网址资源: 官网主页:http://www.components4programmers.com/product ...

随机推荐

  1. 1343. Fairy Tale

    1343 想了好一会 以为会有什么定理呢 没想到 就试着搜了 看来素数还是很多的 跑的飞快 注意会有前导0的情况 还有0,1不是素数... #include <iostream> #inc ...

  2. JAVA设计模式之【抽象工厂模式】

    1.产品接口,电视和空调 public interface Television // 电视接口 { public void play(); } public interface AirConditi ...

  3. binary-tree-maximum-path-sum(mock)

    注意: // 注意,如果一个类放在另一个类里面,初始化时候会报错 Solution is not a enclosing class// 这是因为如果TreeNode不是static,那么要求先有外部 ...

  4. github概念和实战

    fork: 通过fork操作,你将拥有了别人创建的repo的ownership,但是url却变成了/youraccount/repo,这时你将可以做git push操作 clone: 该命令是直接将r ...

  5. [ionic开源项目教程] - 第11讲 封装BaseController实现controller继承

    关注微信订阅号:TongeBlog,可查看[ionic开源项目]全套教程. 截止到第10讲,tab1[健康]模块的功能基本已经完成了,但这一讲中,controller层又做了较大的改动,因为下一讲中t ...

  6. hdu 4614 pieces 状态DP

    题意:给你一个长度小于等于16的字符串,每次可以删除一个回文传,问你最少删除干净的字数. 状态+dp dp[i] = min(dp[i],dp[j]+dp[j^i]);(j是i的字串): 连接:htt ...

  7. Linux kernel scriptes bin2c "\x"

    /**************************************************************************** * Linux kernel scripte ...

  8. 物联网操作系统HelloX已成功移植到MinnowBoard MAX开发板上

    在HelloX开发团队的努力下,以及Winzent Tech公司(总部在瑞典斯德哥尔摩)的支持下,HelloX最新版本V1.78已成功移植到MinnowBoard MAX开发板上.相关源代码已经发布到 ...

  9. SOAP+WSDL

    一 SOAPSOAP最开始是用作RPC机制的,后来XML的出现使其应用非常广泛.它与HTTP一样是一种应用级协议,使用他可以在不同的应用程序之间进行数据交换.SOAP可以基于HTTP,也可以基于HTT ...

  10. 史上最完整的Android开发工具集合

    路径: http://www.apkbus.com/thread-252748-1-1.html