delphi中的逆向加密

Question

这段代码不是我写的，是以前的程序员。但是，我注意到他没有提供解密算法，导致加密无用。

如何解密？

function Encrypt(jstr: String): String;
var
  I: Integer;
  A: Real;
begin
  if Length(jstr) = 0 Then begin
    Result := '';
    Exit;
  end;
  A := 0;
    for I := 0 To Length(jstr) do
      A := A + (Ord(jstr[I]) * Pos(jstr[I],jstr)) / 33;
  Result := FormatFloat('0000000000.0000000000',A);
  if Pos(',',Result) > 0 then begin
    Insert('.',Result,Pos(',',Result));
    Delete(Result,Pos(',',Result),1);
  end;
end;

谢谢！

Answer 1

它看起来像一个单向哈希，因此是不可逆的。例如，如果字符串很大，结果仍然是浮点数的字符串表示。

Answer 2

该功能无法反转。由于它接受任意长度的输入并返回有限长度的输出，简单信息论告诉您尝试编写一般逆是徒劳的。即使对于较短的输入字符串，在我看来，不同的输入字符串也可能导致相同的加密字符串。

由于浮点代码的奇怪使用，即使作为哈希，这个函数对我来说似乎也很脆弱。如果我是你，我会用更适合目的的东西替换这个功能。

最后，我建议您对该开发人员生成的所有代码进行审查。这段代码和算法的低质量向我表明，这个开发人员接触的所有东西都可能有缺陷。