XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei verschlüsseln
Diese Methode eignet sich z.B. zum Verschlüsseln von Bildern,
damit sie nicht mehr von Grafikprogrammen angezeigt werden können.
Declare Size&,File$,B#
File$ = Flaschen2.bmp
Dim B#,2
String B#,0=X
Assign #1,File$
OpenRW #1
BlockWrite #1,B#,0,1
Print FindFirst$(File$)
Print Translate$(File$,Right$(File$,3),xxx)
Close #1
Assign #1,File$
Rename #1,Translate$(File$,Right$(File$,3),xxx)
Print %ioresult
Close #1
Print Die Datei Flaschen2.bmp wurde verschlüsselt und in Flaschen2.xxx umbenannt.
Dispose B#
WaitInput
Und hier der umgekehrte Weg:
Declare Size&,File$,B#
File$ = Flaschen2.xxx
Dim B#,2
String B#,0=B
Assign #1,File$
OpenRW #1
BlockWrite #1,B#,0,1
Print FindFirst$(File$)
Print Translate$(File$,Right$(File$,3),bmp)
Close #1
Assign #1,File$
Rename #1,Translate$(File$,Right$(File$,3),bmp)
Print %ioresult
Close #1
Print Die Datei Flaschen2.bmp wurde wieder hergestellt.
WaitInput
Dispose B#