两个加、解密函数帮忙调试谢谢!!!
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.