|
|
Back to UserFriendly Strip Comments Index
| What have I done? |
by hax80r |
2008-01-17 18:51:32 |
Well, earlier,
shadowsystems prompted me to do a bit of coding. I didn't use the Unabomber's manifesto, I'm still getting all the line breaks out. Here's the basic (pun intended) code for you to look at. I also felt like practicing for my German class.
'Verschlüsselungs-Programm von John Horton, auch bekannt als
hax80r. Dadurch wird eine Datei und nutzt die bekanntesten
'Text des Manifests von The Mentor um den ASCII-Wert der Datei
durch den ASCII-Wert des Textes. Dank Lord Acidus lehre
'für mich zu tun, wie diese Art der Programmierung. Geschrieben
am 2008/1/17
'
'Ich bin halten die variable Namen in Englisch für einfachere
Programmierung und Referenz.
'
INPUT "Name für die Datei zu encodieren:", file$
OPEN file$ FOR BINARY AS #1
OPEN "filedump.dmp" FOR OUTPUT AS #2
CLOSE #2
KILL "filedump.dmp"
OPEN "Filedump.dmp" FOR BINARY AS #2
InCharByte$ = SPACE$(1)
key$ = "This is our world now... the world of the electron and the switch, the beauty of the baud. We make use of a service already existing without paying for what could be dirt-cheap if it wasn't run by profiteering gluttons, and you call us criminals. We explore... and you call us criminals. We seek after knowledge... and you call us criminals. We exist without skin color, without nationality, without religious bias... and you call us criminals. You build atomic bombs, you wage wars, you murder, cheat, and lie to us and try to make us believe it's for our own good, yet we're the criminals."
Keylocation% = 1
LenofKey% = LEN(key$)
LOCATE 4: PRINT "Bytes zu verarbeiten"; LOF(1)
ByteCount% = 0
DO
LOCATE 5: PRINT "Anzahl Bytes:"; ByteCount%
GET 1, , InCharByte$
ByteCount% = ByteCount% + 1
AltAsc% = ASC(InCharByte$) + ASC(MID$(key$, Keylocation%, 1))
IF AltAsc% > 254 THEN AltAsc% = AltAsc% - 254
Keylocation% = Keylocation% + 1
IF Keylocation% > LenofKey% THEN Keylocation% = 1
PlaceMe$ = CHR$(AltAsc%)
PUT 2, , PlaceMe$
LOOP UNTIL EOF(1)
CLOSE
KILL file$
NAME "filedump.dmp" AS file$
END
|
|
[ Reply ] |
|
Yes, I know I forgot the line #s. (n/t) | by hax80r | 2008-01-17 19:04:47 |
|
Where is "Das blinkenlights"? | by kahuana | 2008-01-17 19:30:53 |
|
|
[Todays Cartoon Discussion]
[News Index]
|
|
