各种加密算法的特点,以及哪种加密算法比较好?(200分)

自己编的加密算法,大概是真正不能在有限时间内完全被crack出来的
 
Marker & up
 
RSA我已经帖过拉……可惜就是没有人给我加分哟!:p
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1441616
另外各种经典加密算法的Delphi版本俺都有啦……还有我自己弄的加密算法!:D
有意者跟我联系哟!要帖的话,先给分!呵呵……这年头,人心不古呀
 
uses
md5;

function LogEntry(Cmd, Msg: string; Dig: MD5Digest): string;
begin
Result := Format('%s(''%s'') =' + #13#10 + ' %s', [Cmd, Msg, MD5Print(Dig)]);
end;

procedure TMain.SDigestClick(Sender: TObject);
begin
with Display.Lines do begin
if Count > 0 then Add('');
Add(LogEntry('MD5String', SEdit.Text, MD5String(SEdit.Text)));
end;
end;


上面是MD5 的加密过程,不过是32bit的,怎么样才能得到16bit呢?
 
楼上,随便取16bit就可以了。
 
顶部