Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Code-Schnipsel für den Benutzer "ich eben"

Uploader:AdministratorSebastian
Datum/Zeit:26.01.2009 16:43:19

'Code-Schnipsel für den Benutzer "ich eben"

DIM AS UBYTE B
DIM AS STRING Ergebnis, Eingabe, Quelldatei, Zieldatei, Puffer
DIM AS INTEGER Laenge, Zaehler=0

PRINT !"Programm zum Umwandeln beliebiger Dateien in Pseudo-Bin\132rform u. umgekehrt"
PRINT
INPUT "Zu bearbeitende Datei: ", Quelldatei
If Quelldatei = "" Then End
PRINT !"(V)erschl\129sseln oder (e)ntschl\129sseln? ";
INPUT "", Eingabe
PRINT
If Not ((UCASE(Eingabe) = "V") OR (UCASE(Eingabe) = "E")) Then
    PRINT !"Ung\129ltige Eingabe. Das Programm wird beendet."
Else
    Zieldatei = Left(Quelldatei,InstrRev(Quelldatei,".")-1)+"_"+Eingabe+".txt"
    Open Zieldatei For Output As #1: Close #1
    Open Quelldatei For Binary Access Read As #1
    Open Zieldatei For Binary Access Write As #2
    IF UCASE(Eingabe) = "V" THEN
        Do Until Eof(1)
            Get #1,,B
            Ergebnis = BIN(B,8)
            Put #2,,Ergebnis
            Zaehler+=1
        Loop
    ELSE
        If (Lof(1) MOD 8) <> 0 Then
            PRINT !"Die zu entschl\129sselnde Datei ist defekt!"
            PRINT !"Ihre L\132nge ist kein Vielfaches von 8."
        Else
            Puffer = SPACE(8)
            Do Until Eof(1)
                GET #1,,Puffer
                B = VAL("&B"+Puffer)
                PUT #2,,B
                Zaehler+=1
            Loop
        End If
    End If
    Close #2,#1
    Print "Es wurden " & Zaehler & " Bytes umgewandelt."
END IF
PRINT
PRINT !"Dr\129cken Sie eine beliebige Taste zum Beenden."
SLEEP: END