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. ASP.NET26 个常用性能优化方法

    数据库访问性能优化 数据库的连接和关闭 访问数据库资源需要创建连接.打开连接和关闭连接几个操作.这些过程需要多次与数据库交换信息以通过身份验证,比较耗费服务器资源. ASP.NET中提供了连接池(Co ...

  2. IOS中设置cell的背景view和选中时的背景view 、设置cell最右边的指示器(比如箭头\文本标签)

    一.Cell的设置 1.设置cell的背景view和选中时的背景view UIImageView *bg = [[UIImageView alloc] init]; bg.image = [UIIma ...

  3. Android init.rc文件格式解析

    /***************************************************************************** * Android init.rc文件格式 ...

  4. PHP中括号“{}”的3个作用

    1,将多个独立语句合并为一个复合语句,例如“if .... else ....”中推荐如此使用. 2,在变量的间接引用中进行定界,避免歧义.例如“${$my_var[8]}”与“${$my_var}[ ...

  5. php redis扩展

    安装redis扩展,一定要弄清楚自己的php版本 echo phpinfo(); 查看php信息. 页面搜索Compiler,可以获取自己的VC版本

  6. 【转】linux驱动程序中的并发控制

    原文网址:http://www.cnblogs.com/geneil/archive/2011/12/03/2274684.html 现代操作系统有三大特性:中断处理.多任务处理和多处理器.这些特性导 ...

  7. RAC 之 RMAN 备份

    这篇主要介绍的是RAC 环境下的RMAN 备份. 关于Oracle 备份与恢复的一些理论知识参考我的Blog:       Oracle 备份 与 恢复 概述 http://blog.csdn.net ...

  8. Python time mktime()方法

    描述 Python time mktime() 函数执行与gmtime(), localtime()相反的操作,它接收struct_time对象作为参数,返回用秒数来表示时间的浮点数. 如果输入的值不 ...

  9. android去掉EditView的默认焦点问题

    在EditText的父级控件中找一个,设置成 <LinearLayout android:layout_width="0dp" android:layout_height=& ...

  10. ArcGIS Engine 捕捉

    原文 ArcGIS Engine 捕捉 bool bCreateElement = true; ;//时间间隔 ;//初始值 IElement m_element = null; //界面绘制点元素 ...