Code4bin Delphi Top [patched] -

Disable antivirus software temporarily, as these modified loaders are often flagged as false positives.

procedure HexDump(Data: PByte; Size: Integer; BytesPerLine: Integer = 16); var i, j: Integer; HexLine, AsciiLine: string; begin for i := 0 to (Size - 1) div BytesPerLine do begin HexLine := Format('%.8x: ', [i * BytesPerLine]); AsciiLine := ''; for j := 0 to BytesPerLine - 1 do begin if (i * BytesPerLine + j) < Size then begin HexLine := HexLine + Format('%.2x ', [Data[i * BytesPerLine + j]]); if (Data[i * BytesPerLine + j] >= 32) and (Data[i * BytesPerLine + j] <= 126) then AsciiLine := AsciiLine + Char(Data[i * BytesPerLine + j]) else AsciiLine := AsciiLine + '.'; end else begin HexLine := HexLine + ' '; AsciiLine := AsciiLine + ' '; end; end; WriteLn(HexLine + ' ' + AsciiLine); end; end; code4bin delphi top

function SwapEndian32(Value: LongWord): LongWord; inline; asm BSWAP EAX end; Disable antivirus software temporarily