文件名称：Delphi DES算法实现
文件大小：168KB
文件格式：RAR
更新时间：2013-11-29 03:18:00
DES,DES算法
DES算法实现 function EncryStr(Str, Key: String): String; var StrByte, OutByte, KeyByte: array[0..7] of Byte; StrResult: String; I, J: Integer; begin if (Length(Str) > 0) and (Ord(Str[Length(Str)]) = 0) then raise Exception.Create('Error: the last char is NULL char.'); if Length(Key) < 8 then while Length(Key) < 8 do Key := Key + Chr(0); while Length(Str) mod 8 <> 0 do Str := Str + Chr(0); for J := 0 to 7 do KeyByte[J] := Ord(Key[J + 1]); makeKey(keyByte, subKey); StrResult := ''; for I := 0 to Length(Str) div 8 - 1 do begin for J := 0 to 7 do StrByte[J] := Ord(Str[I * 8 + J + 1]); desData(dmEncry, StrByte, OutByte); for J := 0 to 7 do StrResult := StrResult + Chr(OutByte[J]); end; Result := StrResult; end;
【文件预览】：
DES算法实现
----Project1.dof(2KB)
----Project1.exe(381KB)
----Unit1.dfm(1KB)
----Project1.cfg(434B)
----des.pas(14KB)
----Project1.dpr(209B)
----Unit1.pas(875B)
----DelTemp.bat(68B)
----Project1.res(876B)