1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| library encrypt;
uses SysUtils;
{$R *.res}
function ib_util_malloc(l: integer): pointer; cdecl; external 'ib_util.dll';
function encryptString(val: PChar): PChar;
var R: String;
begin
R:= String(val);// ton code qui crypte, ici bouchon de test
result:= ib_util_malloc(Length(R)+ 1);
StrPCopy(Result, R)
end;
function decryptString(val: PChar): PChar;
var R: String;
begin
R:= String(val);// ton code qui décrypte, ici bouchon de test
result:= ib_util_malloc(Length(R)+ 1);
StrPCopy(Result, R)
end;
exports
encryptString,
decryptString;
begin
end. |
Partager