DCPcrypt
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的更多相关文章
- Dll中调用dcpcrypt
可先在EXE中加入控件来参考,如要导出给其它语言调用参数得用PChar,XE以上的估计得再调整,待实用时再测试 如下代码在2007中可直接导出使用 uses Windows, SysUtils, DC ...
- 著名加密库收集 Encrypt
CryptoAPI 微软的CryptoAPI crypt32.lib,advapi32.lib,cryptui.lib #include <wincrypt.h>#include < ...
- KbmMW资源汇总(更新中…)
KbmMW框架是收费的,不在此提供下载,如需购买,请自行联系作者Kim Madsen. 网址资源: 官网主页:http://www.components4programmers.com/product ...
- 也谈.Net中间语言——破解Delphi2CS行数和时间限制
其实我一直在研究将Delphi版的传奇2源代码使用C#实现,不过由于我并没有学习过Delphi.就只能说先试着用一些工具转换代码. 后来我在网上找到了一款软件:Delphi2CS.这款软件比较强大,虽 ...
- KbmMW 4.40.00 正式版发布
经过快3个月的测试,kbmmw 4.40 正式版终于在圣诞节前发布了. We are happy to announce the availability of a new kbmMW release ...
- KbmMW-及相关
KbmMW框架是收费的,不在此提供下载,如需购买,请自行联系作者Kim Madsen. 网址资源: 官网主页:http://www.components4programmers.com/product ...
- KbmMW资源汇总(特别是xalion的文章)
KbmMW框架是收费的,不在此提供下载,如需购买,请自行联系作者Kim Madsen. 网址资源: 官网主页:http://www.components4programmers.com/product ...
随机推荐
- ASP.NET26 个常用性能优化方法
数据库访问性能优化 数据库的连接和关闭 访问数据库资源需要创建连接.打开连接和关闭连接几个操作.这些过程需要多次与数据库交换信息以通过身份验证,比较耗费服务器资源. ASP.NET中提供了连接池(Co ...
- IOS中设置cell的背景view和选中时的背景view 、设置cell最右边的指示器(比如箭头\文本标签)
一.Cell的设置 1.设置cell的背景view和选中时的背景view UIImageView *bg = [[UIImageView alloc] init]; bg.image = [UIIma ...
- Android init.rc文件格式解析
/***************************************************************************** * Android init.rc文件格式 ...
- PHP中括号“{}”的3个作用
1,将多个独立语句合并为一个复合语句,例如“if .... else ....”中推荐如此使用. 2,在变量的间接引用中进行定界,避免歧义.例如“${$my_var[8]}”与“${$my_var}[ ...
- php redis扩展
安装redis扩展,一定要弄清楚自己的php版本 echo phpinfo(); 查看php信息. 页面搜索Compiler,可以获取自己的VC版本
- 【转】linux驱动程序中的并发控制
原文网址:http://www.cnblogs.com/geneil/archive/2011/12/03/2274684.html 现代操作系统有三大特性:中断处理.多任务处理和多处理器.这些特性导 ...
- RAC 之 RMAN 备份
这篇主要介绍的是RAC 环境下的RMAN 备份. 关于Oracle 备份与恢复的一些理论知识参考我的Blog: Oracle 备份 与 恢复 概述 http://blog.csdn.net ...
- Python time mktime()方法
描述 Python time mktime() 函数执行与gmtime(), localtime()相反的操作,它接收struct_time对象作为参数,返回用秒数来表示时间的浮点数. 如果输入的值不 ...
- android去掉EditView的默认焦点问题
在EditText的父级控件中找一个,设置成 <LinearLayout android:layout_width="0dp" android:layout_height=& ...
- ArcGIS Engine 捕捉
原文 ArcGIS Engine 捕捉 bool bCreateElement = true; ;//时间间隔 ;//初始值 IElement m_element = null; //界面绘制点元素 ...