Dateien als Hex laden

[Goldor]

ich versuche mich seit ein paar tagen an einem verschüsselungsprogramm
und packprogramm. die algohrithms hab ich auch schon fertig, aber ich
scheitere am laden der datei :wall: . ich will die datei so laden können,
das ich byte für byte lesen und dann verarbeiten kann. den fertigen code
will ich dann auch wieder als bytes in eine neue datei speichern können.
ich weiß, ich bin doof :stupid:. sufu hab ich schon genutzt und nix zu dem
thema gefunden, was man verwenden könnte. freu mich auf antworten

[turboPASCAL]

Und wo genau ist das Problem ?

Du kannst die Datei einfach öffnen und in ein Array einlesen oder direct in einen FileStram.
Den kannst du dann Byte für Byte durchgehen.

:gruebel:

[Goldor]

ok das mit dem array/ stream is mir neu... :shock:
kann mir einer erklären wie ich die nutzen kann?
und wie ich die vorallem wieder speichern kann?

[mr_emre_d]

hast du dir schon die grundlagen angeschaut ? falls ja, und du trotzdem nicht weiterkommst
hier (pseudo code)... zum copy/pasten :P

Code:

type
  TByteArr = Array of Byte;

...

function ReadIn( Filename: String ): TByteArr;
begin
  if fileexists(filename) then
  begin
    try
      AssignFile( F, Dateiname );
      Reset( F );
      SetLength( Buf, FileSize(F) );
      BlockRead( F, Result, FileSize(F) ); // evt. Result[0] ...
    finally
      CloseFile(F);
    end;
  end else
    ShowMessage( 'Datei existiert nicht' );
end;