Fórum Descriptografar #274691
30/03/2005
0
Salve gente.... temos nosso algoritmo próprio para criptografar. Na verdade nem sei quem fez, nem sei se foi pego na net. O fato é que precisamos quebrar nossa senha, tipo assim, há uma situação onde temos que mostrar pro usuário sua senha descriprografada e ae o bicho ta pegando.
o código é este.
alguém se habilita a dar uma idéia de como seria o caminho de volta?
valeu.
o código é este.
alguém se habilita a dar uma idéia de como seria o caminho de volta?
valeu.
function Criptografa(const compr: integer; const str: string): string;
var pivo,x,aux: integer;
begin
result := ´´;
pivo := Length(str) * 17;
for x := 1 to Length(str) do
result := result + IntToStr((ord(str[x]) * pivo) mod 13);
// complementando até atingir length = compr
x := 1;
aux := 13;
while Length(result) < compr do
begin
if x > length(result) then
x := 1;
result := result + IntToStr(ord(result[x]) or aux);
inc(x);
inc(aux,33);
end;
result := copy(result,1,compr);
end;
Rfpsatin
Curtir tópico
+ 0
Responder