Seite 1 von 1

[SOLVED] Dateien in Binären Code umwandeln

Verfasst: 19.02.2013 21:51
von R3booz
Hat jemand eine Ahnung wie ich das anstellen kann?

mfg R3booz

Re: Dateien in Binären Code umwandeln

Verfasst: 19.02.2013 21:54
von ts-soft
Wenn Du uns erklären würdest, was Du damit meinst?
Welche Dateien in welchem Format, sollen in welches Format gewandelt werden?

Re: Dateien in Binären Code umwandeln

Verfasst: 19.02.2013 21:55
von R3booz
Jede Datei egal welches Format einfach in 01001001 11010110
einfach nur so nichts kompliziertes <)

Re: Dateien in Binären Code umwandeln

Verfasst: 19.02.2013 22:04
von ts-soft
Also als Textformat mit lauter einsen und nullen?

Re: Dateien in Binären Code umwandeln

Verfasst: 19.02.2013 22:28
von Kiffi
R3booz hat geschrieben:Jede Datei egal welches Format einfach in 01001001 11010110
jede Datei besteht aus Nullen und Einsen.

Grüße ... Kiffi

Re: Dateien in Binären Code umwandeln

Verfasst: 19.02.2013 22:44
von Falko
Vielleicht sowas (Wie Thomas schon geschrieben hatte) als Textdatei??

Code: Alles auswählen

Dateiname$=OpenFileRequester("Change2Bin","*.*","*.*",1)
CreateFile(1,Dateiname$+".txt")
If ReadFile(0, Dateiname$)   ; wenn die Datei geöffnet werden konnte, setzen wir fort...
    While Eof(0) = 0           ; sich wiederholende Schleife bis das Ende der Datei ("end of file") erreicht ist
      Datas$=Bin(ReadByte(0),#PB_Ascii)
      WriteString(1,Datas$)      ; Zeile für Zeile im Debugger-Fenster anzeigen)
    Wend
    CloseFile(0)               ; schließen der zuvor geöffneten Datei
  Else
    MessageRequester("Information","Konnte Datei nicht öffnen!")
EndIf

Re: Dateien in Binären Code umwandeln

Verfasst: 18.03.2013 17:03
von R3booz
Tut mir leid das ich so spät antworte aber hat sich schon erledigt :)

mfg R3booz

PS: Wär genau das was ich gesucht habe ;)