Passwortsicherheit II (Delphi 2009)

[himitsu]

Zitat:

Word(S[I-1]) := Diff(Word(Password[I-1]), Word(Password[I]));

Delphi-Quellcode:

// Convertierung auf andere Seite verlagern
// (es gibt zwar och 'nen Weg für die linke Seite, 
// aber ich sollte lieber mal keine Pointer-Verrenkungen von mir geben ._. )
S[I-1] := WideChar(Diff(Word(Password[I-1]), Word(Password[I])));

// bzw für ANSI:
S[I-1] := AnsiChar(Diff(Byte(Password[I-1]), Byte(Password[I])));

// oder 
function Diff(const AWord1, AWord2 : WideChar) : WideChar overload; 
  begin
    if AWord1 > AWord2 then
      Result := WideChar(Word(AWord1) - Word(AWord2))
    else
      Result := WideChar(Word(AWord2) - Word(AWord1)); 
    // Result := WideChar(Word(Abs(Integer(Word(AWord1)) - Integer(Word(AWord2)))));
  end;

function Diff(const AWord1, AWord2 : AnsiChar) : AnsiChar overload;