home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
M.u.C.S. Disc 2000
/
MUCS2000.iso
/
sigisoft
/
codierer
/
versch16.lst
< prev
next >
Wrap
File List
|
1987-04-21
|
8KB
|
328 lines
' ********************************************
' * Datei Verschlüsseler/Entschlüsseler *
' ********************************************
' * Dies ist ein Public Domain Programm von *
' ********************************************
' * (c) 1991 by Siegfried Hübner *
' * Obere Vorstadt 21 *
' * 8812 Windsbach *
' ********************************************
' * Datum 07.01.1990 *
' ********************************************
IF XBIOS(4)=0
ALERT 3,"Bitte auf|mittlere |Auflösung|umschalten !",1,"Okay",d%
ENDIF
CLEAR
x=0
l=0
b=0
a=0
z=0
emil=0
geheim$=""
geheim=0
ON ERROR GOSUB fehler
HIDEM
DEFFILL 1,2,2
IF XBIOS(4)=2
PBOX -1,-1,640,400
DEFFILL 1,2,3
PBOX 100,100,370,270
DEFTEXT 1,3,3,32
TEXT 10,40,612," Datei - Verschlüsseler/Entschlüsseler "
PRINT CHR$(27)+"p";
PRINT AT(2,4);" ----- (c) 1991 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ----- "
PRINT AT(18,9);" 1 = Datei verschlüsseln "
PRINT AT(18,11);" 2 = Datei entschlüsseln "
PRINT AT(18,13);" 3 = Geheimzahl "
PRINT CHR$(27)+"q";
PRINT AT(18,15);" 4 = Programmende "
PRINT AT(50,7);"Dies ist ein Public Domain "
PRINT AT(50,8);"Programm. (frei kopierbar) "
PRINT AT(50,10);"Alle die dieses Programm be- "
PRINT AT(50,11);"nutzen, sollten mir aber ein "
PRINT AT(50,12);"kleines Anerkennungshonorar "
PRINT AT(50,13);"zukommen lassen. Sonst könnte"
PRINT AT(50,14);"es sein, das bald keine "
PRINT AT(50,15);"weiteren Public Domain "
PRINT AT(50,16);"Programme mehr von mir "
PRINT AT(50,17);"erscheinen werden. "
PRINT AT(50,19);"Und das wollt Ihr doch nicht "
PRINT AT(50,20);"oder ??????????? "
start:
PRINT AT(13,19);" --> Ihre Eingabe (1,2,3 oder 4) ";
DO
FORM INPUT 1,ein$
IF ein$="1"
GOSUB ver_sc
ENDIF
IF ein$="2"
GOSUB ent_sc
ENDIF
IF ein$="3"
PRINT AT(33,13);
FORM INPUT 8,geheim$
geheim=VAL(geheim$)
emil=1
ENDIF
IF ein$="4"
ALERT 3,"Wollen Sie dieses|Programm wirklich|verlassen ??",2," Ja | Nein ",d%
IF d%=1
END
ELSE
GOTO start
ENDIF
ENDIF
GOTO start
LOOP
ENDIF
IF XBIOS(4)=1
PBOX -1,-1,640,200
DEFFILL 1,2,3
PBOX 50,55,285,125
DEFTEXT 1,3,3,30
TEXT 18,35,612," Datei - Verschlüsseler/Entschlüsseler "
PRINT CHR$(27)+"p";
PRINT AT(3,6);" ----- (c) 1991 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ----- "
PRINT AT(10,9);" 1 = Datei verschlüsseln "
PRINT AT(10,11);" 2 = Datei entschlüsseln "
PRINT AT(10,13);" 3 = Geheimzahl "
PRINT CHR$(27)+"q";
PRINT AT(10,15);" 4 = Programmende "
PRINT AT(44,8);" Dies ist ein Public Domain "
PRINT AT(44,9);" Programm. (frei kopierbar) "
PRINT AT(44,11);" Alle die dieses Programm be- "
PRINT AT(44,12);" nutzen, sollten mir aber ein "
PRINT AT(44,13);" kleines Anerkennungshonorar "
PRINT AT(44,14);" zukommen lassen. Sonst könnte"
PRINT AT(44,15);" es sein, das bald keine "
PRINT AT(44,16);" weiteren Public Domain "
PRINT AT(44,17);" Programme mehr von mir "
PRINT AT(44,18);" erscheinen werden. "
PRINT AT(44,20);" Und das wollt Ihr doch nicht "
PRINT AT(44,21);" oder ??????????? "
start1:
PRINT AT(4,18);" --> Ihre Eingabe (1,2,34 oder 4) ";
DO
FORM INPUT 1,ein$
IF ein$="1"
GOSUB ver_sc1
ENDIF
IF ein$="2"
GOSUB ent_sc1
ENDIF
IF ein$="3"
PRINT AT(25,13);
FORM INPUT 8,geheim$
geheim=VAL(geheim$)
emil=1
ENDIF
IF ein$="4"
ALERT 3,"Wollen Sie dieses|Programm wirklich|verlassen ??",2," Ja | Nein ",d%
IF d%=1
END
ELSE
GOTO start1
ENDIF
ENDIF
GOTO start1
LOOP
ENDIF
' *************************************************************
' * DATEI Verschlüsseler *
' *************************************************************
PROCEDURE ver_sc
CLS
BOX 157,15,482,52
BOX 159,17,480,50
DEFFILL 1,2,2
PBOX 160,18,479,49
DEFTEXT 1,0,3,30
GRAPHMODE 2
TEXT 160,45,310," Datei verschlüsseln"
' ************ LÄNGE ERMITTELN ***********
FILESELECT "\*.*",a$,a$
PRINT AT(1,1);STRING$(80,32)
OPEN "I",#1,a$
z=LOF(#1)
CLOSE #1
' ************ DATEI EINLADEN **************
OPEN "I",#1,a$
b=LEN(a$)
c$=LEFT$(a$,b-4)
IF emil=0
OPEN "O",#2,c$+".VER"
ELSE
OPEN "O",#2,c$+".GEH"
ENDIF
REPEAT
n$=INPUT$(1,#1)
ADD x,7
INC l
PRINT AT(1,1);"Schreibe ";x/7
a=ASC(n$)+z+geheim
IF l=5
PRINT #2,CHR$(a+x)
ELSE
IF l=17
PRINT #2,CHR$(a+z+x+l);
ELSE
PRINT #2,CHR$(a+z+x);
l=0
ENDIF
ENDIF
UNTIL EOF(#1)
CLOSE #1
CLOSE #2
RUN
RETURN
' *************************************************************
' * DATEI ENTSCHLÜSSELER *
' *************************************************************
PROCEDURE ent_sc
CLS
BOX 157,15,482,52
BOX 159,17,480,50
DEFFILL 1,2,2
PBOX 160,18,479,49
DEFTEXT 1,0,3,30
GRAPHMODE 2
TEXT 160,45,310," Datei entschlüsseln"
' ************ LÄNGE ERMITTELN ***********
IF emil=0
FILESELECT "\*.VER",a$,a$
ELSE
FILESELECT "\*.GEH",a$,a$
ENDIF
PRINT AT(1,1);STRING$(80,32)
OPEN "I",#1,a$
z=LOF(#1)
CLOSE #1
' ************ DATEI EINLADEN **************
OPEN "I",#1,a$
PRINT AT(21,1);" Bitte Orginal Namen der Datei eingeben "
FILESELECT "\*.*",a$,a$
OPEN "O",#2,a$
PRINT AT(1,1);STRING$(80,32)
REPEAT
n$=INPUT$(1,#1)
a=ASC(n$)-z-geheim
DEC l
SUB x,7
PRINT AT(1,1);"Schreibe ";ABS(x/7)
IF l=-5
PRINT #2,CHR$(a+x)
ELSE
IF l=-17
PRINT #2,CHR$(a-z+x+l);
ELSE
PRINT #2,CHR$(a-z+x);
l=0
ENDIF
ENDIF
UNTIL EOF(#1)
CLOSE
CLOSE #1
CLOSE #2
RUN
RETURN
PROCEDURE ver_sc1
CLS
BOX 157,1,482,26
DEFFILL 1,2,2
GRAPHMODE 2
PBOX 160,4,479,26
DEFTEXT 1,0,3,18
TEXT 158,24,310," Datei - verschlüsseln"
' ************ LÄNGE ERMITTELN ***********
FILESELECT "\*.*",a$,a$
PRINT AT(1,1);STRING$(80,32)
OPEN "I",#1,a$
z=LOF(#1)
CLOSE #1
' ************ DATEI EINLADEN **************
OPEN "I",#1,a$
b=LEN(a$)
c$=LEFT$(a$,b-4)
IF emil=0
OPEN "O",#2,c$+".VER"
ELSE
OPEN "O",#2,c$+".GEH"
ENDIF
REPEAT
n$=INPUT$(1,#1)
ADD x,7
INC l
PRINT AT(1,1);"Schreibe ";x/7
a=ASC(n$)+z+geheim
IF l=5
PRINT #2,CHR$(a+x)
ELSE
IF l=17
PRINT #2,CHR$(a+z+x+l);
ELSE
PRINT #2,CHR$(a+z+x);
l=0
ENDIF
ENDIF
UNTIL EOF(#1)
CLOSE #1
CLOSE #2
RUN
RETURN
' *************************************************************
' * DATEI ENTSCHLÜSSELER *
' *************************************************************
PROCEDURE ent_sc1
CLS
BOX 157,1,482,26
DEFFILL 1,2,2
GRAPHMODE 2
PBOX 160,4,479,26
DEFTEXT 1,0,3,18
TEXT 158,24,310," Datei - entschlüsseln"
' ************ LÄNGE ERMITTELN ***********
IF emil=0
FILESELECT "\*.VER",a$,a$
ELSE
FILESELECT "\*.GEH",a$,a$
ENDIF
PRINT AT(1,1);STRING$(80,32)
OPEN "I",#1,a$
z=LOF(#1)
CLOSE #1
' ************ DATEI EINLADEN **************
OPEN "I",#1,a$
PRINT AT(21,1);" Bitte Orginal Namen der Datei eingeben "
FILESELECT "\*.*",a$,a$
OPEN "O",#2,a$
PRINT AT(1,1);STRING$(80,32)
REPEAT
n$=INPUT$(1,#1)
a=ASC(n$)-z-geheim
DEC l
SUB x,7
PRINT AT(1,1);"Schreibe ";ABS(x/7)
IF l=-5
PRINT #2,CHR$(a+x)
ELSE
IF l=-17
PRINT #2,CHR$(a-z+x+l);
ELSE
PRINT #2,CHR$(a-z+x);
l=0
ENDIF
ENDIF
UNTIL EOF(#1)
CLOSE
CLOSE #1
CLOSE #2
RUN
RETURN
PROCEDURE fehler
ALERT 3,"Fehler ist aufgetreten|Ich fange Fehler ab",1,"Restart",d%
CLOSE #1
CLOSE #2
RUN
RETURN