Senhores,
Achei estas procedures de criptografia e descriptografia na internet, parece
que é de autoria da Borland. Acontece que usei ela no meu TCC (trabalho de
conclusão de curso), e preciso dizer que tipo de criptografia é.
Alguém dá uma luz? Obrigado!
function Crypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var I : Byte;
begin
Result := '';
for I := 1 to Length(InString) do
begin
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey;
end;
end;
function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer):
string;
var I : Byte;
begin
Result := '';
for I := 1 to Length(InString) do
begin
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
end;
end;
[As partes desta mensagem que não continham texto foram removidas]
