两个加、解密函数帮忙调试谢谢！！！

[ldkkkkk]

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.

[chl_ccssddnn]

最好把他封装在一个class中，这样在其它unit中易于引用！
个人意见，仅供参考

[tanqth]

caohonglong2000(chl)说得对