两个加解密函数帮忙调试,谢谢!

ldkkkkk 2003-10-21 10:54:49
unit u_gg;

interface
uses windows,Messages, SysUtils, Variants, Classes;
type
public
function addscret(var inputmm:string):string;
function unscret(var outmm:string):string;
end;
implementation
//------------加密---------------
function addscret(var inputmm:string):string;
var
outmm:string;
key:array[0..15] of char;
blsbuf:array[0..15] of byte;
i:integer;
begin
outmm:='';
strcpy(key,pchar(inputmm));
memcpy(blsbuf,key,pchar(inputmm));
for i:=0 to length(inputmm)-1
begin
blsbuf[i]:=byte(blsbuf[i]-10);
outmm:=outmm + char(blsbuf[i]);
end;
result:=outmm;
end;
//-------------解密-----------------
function unscret(var outmm:string):string;
var
unmm:string;
key:array[0..15] of char;
blsbuf:array[0..15] of byte;
i:integer;
begin
unmm:='';
strcpy(key,pchar(outmm));
memcpy(blsbuf,key,pchar(outmm));
for i:=0 to length(outmm)-1
begin
blsbuf[i]:=byte(blsbuf[i]-10);
unmm:=unmm + char(blsbuf[i]);
end;
result:=unmm;
end;

end.
...全文
49 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧