Subversion Repositories decoder

decoder/trunk/VCL_DEC/DECHash.pas – Rev 2 → 5



 
      R := 0;
      for J := 0 to DigestSize -1 do
        R := R xor Digest[J];
 
      Result[I +1] := AnsiChar(R);
    end;
  finally
    Free;
  end;
  Result := ValidFormat(Format).Encode(Result[1], MaskSize);

Rev 2	Rev 5
Line 693...	Line 693...
693		693
694	R := 0;	694	R := 0;
695	for J := 0 to DigestSize -1 do	695	for J := 0 to DigestSize -1 do
696	R := R xor Digest[J];	696	R := R xor Digest[J];
697		697
698	Result[I +1] := Char(R);	698	Result[I +1] := AnsiChar(R);
699	end;	699	end;
700	finally	700	finally
701	Free;	701	Free;
702	end;	702	end;
703	Result := ValidFormat(Format).Encode(Result[1], MaskSize);	703	Result := ValidFormat(Format).Encode(Result[1], MaskSize);