home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / codierer / codierer.lst next >
File List  |  1986-02-05  |  8KB  |  295 lines
  1. ' ********************************************
  2. ' * Datei Verschlüsseler/Entschlüsseler      *
  3. ' ********************************************
  4. ' * Dies ist ein Public Domain Programm von  *
  5. ' ********************************************
  6. ' * (c) 1989 by       Siegfried Hübner       *
  7. ' *                   Obere Vorstadt 21      *
  8. ' *                   8812 Windsbach         *
  9. ' ********************************************
  10. ' * Datum 04.07.1989                         *
  11. ' ********************************************
  12. IF XBIOS(4)=0
  13.   ALERT 3,"Bitte auf|mittlere |Auflösung|umschalten !",1,"Okay",d%
  14. ENDIF
  15. CLEAR
  16. x=0
  17. l=0
  18. b=0
  19. a=0
  20. z=0
  21. ON ERROR GOSUB fehler
  22. HIDEM
  23. DEFFILL 1,2,2
  24. IF XBIOS(4)=2
  25.   PBOX -1,-1,640,400
  26.   DEFFILL 1,2,3
  27.   PBOX 100,100,360,240
  28.   DEFTEXT 1,3,3,32
  29.   TEXT 10,40,612," Datei - Verschlüsseler/Entschlüsseler "
  30.   PRINT CHR$(27)+"p";
  31.   PRINT AT(2,4);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ----- "
  32.   PRINT AT(18,9);" 1 = Datei verschlüsseln "
  33.   PRINT AT(18,11);" 2 = Datei entschlüsseln "
  34.   PRINT CHR$(27)+"q";
  35.   PRINT AT(18,13);" 3 = Programmende        "
  36.   PRINT AT(50,7);"Dies ist ein Public Domain   "
  37.   PRINT AT(50,8);"Programm. (frei kopierbar)   "
  38.   PRINT AT(50,10);"Alle die dieses Programm be- "
  39.   PRINT AT(50,11);"nutzen, sollten mir aber ein "
  40.   PRINT AT(50,12);"kleines Anerkennungshonorar  "
  41.   PRINT AT(50,13);"zukommen lassen. Sonst könnte"
  42.   PRINT AT(50,14);"es sein, das bald keine      "
  43.   PRINT AT(50,15);"weiteren Public Domain       "
  44.   PRINT AT(50,16);"Programme mehr von mir       "
  45.   PRINT AT(50,17);"erscheinen werden.           "
  46.   PRINT AT(50,19);"Und das wollt Ihr doch nicht "
  47.   PRINT AT(50,20);"oder ???????????             "
  48.   start:
  49.   PRINT AT(13,17);" --> Ihre Eingabe (1,2 oder 3) ";
  50.   DO
  51.     FORM INPUT 1,ein$
  52.     IF ein$="1"
  53.       GOSUB ver_sc
  54.     ENDIF
  55.     IF ein$="2"
  56.       GOSUB ent_sc
  57.     ENDIF
  58.     IF ein$="3"
  59.       ALERT 3,"Wollen Sie dieses|Programm wirklich|verlassen      ??",2," Ja | Nein ",d%
  60.       IF d%=1
  61.         END
  62.       ELSE
  63.         GOTO start
  64.       ENDIF
  65.     ENDIF
  66.     GOTO start
  67.   LOOP
  68. ENDIF
  69. IF XBIOS(4)=1
  70.   PBOX -1,-1,640,200
  71.   DEFFILL 1,2,3
  72.   PBOX 50,55,285,115
  73.   DEFTEXT 1,3,3,30
  74.   TEXT 18,35,612," Datei - Verschlüsseler/Entschlüsseler "
  75.   PRINT CHR$(27)+"p";
  76.   PRINT AT(3,6);" ----- (c) 1989 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ----- "
  77.   PRINT AT(10,9);" 1 = Datei verschlüsseln "
  78.   PRINT AT(10,11);" 2 = Datei entschlüsseln "
  79.   PRINT CHR$(27)+"q";
  80.   PRINT AT(10,13);" 3 = Programmende        "
  81.   PRINT AT(44,8);" Dies ist ein Public Domain   "
  82.   PRINT AT(44,9);" Programm. (frei kopierbar)   "
  83.   PRINT AT(44,11);" Alle die dieses Programm be- "
  84.   PRINT AT(44,12);" nutzen, sollten mir aber ein "
  85.   PRINT AT(44,13);" kleines Anerkennungshonorar  "
  86.   PRINT AT(44,14);" zukommen lassen. Sonst könnte"
  87.   PRINT AT(44,15);" es sein, das bald keine      "
  88.   PRINT AT(44,16);" weiteren Public Domain       "
  89.   PRINT AT(44,17);" Programme mehr von mir       "
  90.   PRINT AT(44,18);" erscheinen werden.           "
  91.   PRINT AT(44,20);" Und das wollt Ihr doch nicht "
  92.   PRINT AT(44,21);" oder ???????????             "
  93.   start1:
  94.   PRINT AT(4,16);" --> Ihre Eingabe (1,2 oder 3) ";
  95.   DO
  96.     FORM INPUT 1,ein$
  97.     IF ein$="1"
  98.       GOSUB ver_sc1
  99.     ENDIF
  100.     IF ein$="2"
  101.       GOSUB ent_sc1
  102.     ENDIF
  103.     IF ein$="3"
  104.       ALERT 3,"Wollen Sie dieses|Programm wirklich|verlassen      ??",2," Ja | Nein ",d%
  105.       IF d%=1
  106.         END
  107.       ELSE
  108.         GOTO start1
  109.       ENDIF
  110.     ENDIF
  111.     GOTO start1
  112.   LOOP
  113. ENDIF
  114. ' *************************************************************
  115. ' * DATEI Verschlüsseler                                      *
  116. ' *************************************************************
  117. PROCEDURE ver_sc
  118.   CLS
  119.   BOX 157,15,482,52
  120.   BOX 159,17,480,50
  121.   DEFFILL 1,2,2
  122.   PBOX 160,18,479,49
  123.   DEFTEXT 1,0,3,30
  124.   GRAPHMODE 2
  125.   TEXT 160,45,310," Datei verschlüsseln"
  126.   ' ************ LÄNGE ERMITTELN ***********
  127.   FILESELECT "*.*",a$,a$
  128.   PRINT AT(1,1);STRING$(80,32)
  129.   OPEN "I",#1,a$
  130.   z=LOF(#1)
  131.   CLOSE #1
  132.   ' ************ DATEI EINLADEN **************
  133.   OPEN "I",#1,a$
  134.   b=LEN(a$)
  135.   c$=LEFT$(a$,b-4)
  136.   OPEN "O",#2,c$+".VER"
  137.   REPEAT
  138.     n$=INPUT$(1,#1)
  139.     ADD x,7
  140.     INC l
  141.     PRINT AT(1,1);"Schreibe ";x/7
  142.     a=ASC(n$)+z
  143.     IF l=5
  144.       PRINT #2,CHR$(a+x)
  145.     ELSE
  146.       IF l=17
  147.         PRINT #2,CHR$(a+z+x+l);
  148.       ELSE
  149.         PRINT #2,CHR$(a+z+x);
  150.         l=0
  151.       ENDIF
  152.     ENDIF
  153.   UNTIL EOF(#1)
  154.   CLOSE #1
  155.   CLOSE #2
  156.   RUN
  157. RETURN
  158. ' *************************************************************
  159. ' * DATEI ENTSCHLÜSSELER                                      *
  160. ' *************************************************************
  161. PROCEDURE ent_sc
  162.   CLS
  163.   BOX 157,15,482,52
  164.   BOX 159,17,480,50
  165.   DEFFILL 1,2,2
  166.   PBOX 160,18,479,49
  167.   DEFTEXT 1,0,3,30
  168.   GRAPHMODE 2
  169.   TEXT 160,45,310," Datei entschlüsseln"
  170.   ' ************ LÄNGE ERMITTELN ***********
  171.   FILESELECT "\*.VER",a$,a$
  172.   PRINT AT(1,1);STRING$(80,32)
  173.   OPEN "I",#1,a$
  174.   z=LOF(#1)
  175.   CLOSE #1
  176.   ' ************ DATEI EINLADEN **************
  177.   OPEN "I",#1,a$
  178.   PRINT AT(21,1);" Bitte Orginal Namen der Datei eingeben "
  179.   FILESELECT "*.*",a$,a$
  180.   OPEN "O",#2,a$
  181.   PRINT AT(1,1);STRING$(80,32)
  182.   REPEAT
  183.     n$=INPUT$(1,#1)
  184.     a=ASC(n$)-z
  185.     DEC l
  186.     SUB x,7
  187.     PRINT AT(1,1);"Schreibe ";ABS(x/7)
  188.     IF l=-5
  189.       PRINT #2,CHR$(a+x)
  190.     ELSE
  191.       IF l=-17
  192.         PRINT #2,CHR$(a-z+x+l);
  193.       ELSE
  194.         PRINT #2,CHR$(a-z+x);
  195.         l=0
  196.       ENDIF
  197.     ENDIF
  198.   UNTIL EOF(#1)
  199.   CLOSE
  200.   CLOSE #1
  201.   CLOSE #2
  202.   RUN
  203. RETURN
  204. PROCEDURE ver_sc1
  205.   CLS
  206.   BOX 157,1,482,26
  207.   DEFFILL 1,2,2
  208.   GRAPHMODE 2
  209.   PBOX 160,4,479,26
  210.   DEFTEXT 1,0,3,18
  211.   TEXT 158,24,310," Datei - verschlüsseln"
  212.   ' ************ LÄNGE ERMITTELN ***********
  213.   FILESELECT "*.*",a$,a$
  214.   PRINT AT(1,1);STRING$(80,32)
  215.   OPEN "I",#1,a$
  216.   z=LOF(#1)
  217.   CLOSE #1
  218.   ' ************ DATEI EINLADEN **************
  219.   OPEN "I",#1,a$
  220.   b=LEN(a$)
  221.   c$=LEFT$(a$,b-4)
  222.   OPEN "O",#2,c$+".VER"
  223.   REPEAT
  224.     n$=INPUT$(1,#1)
  225.     ADD x,7
  226.     INC l
  227.     PRINT AT(1,1);"Schreibe ";x/7
  228.     a=ASC(n$)+z
  229.     IF l=5
  230.       PRINT #2,CHR$(a+x)
  231.     ELSE
  232.       IF l=17
  233.         PRINT #2,CHR$(a+z+x+l);
  234.       ELSE
  235.         PRINT #2,CHR$(a+z+x);
  236.         l=0
  237.       ENDIF
  238.     ENDIF
  239.   UNTIL EOF(#1)
  240.   CLOSE #1
  241.   CLOSE #2
  242.   RUN
  243. RETURN
  244. ' *************************************************************
  245. ' * DATEI ENTSCHLÜSSELER                                      *
  246. ' *************************************************************
  247. PROCEDURE ent_sc1
  248.   CLS
  249.   BOX 157,1,482,26
  250.   DEFFILL 1,2,2
  251.   GRAPHMODE 2
  252.   PBOX 160,4,479,26
  253.   DEFTEXT 1,0,3,18
  254.   TEXT 158,24,310," Datei - entschlüsseln"
  255.   ' ************ LÄNGE ERMITTELN ***********
  256.   FILESELECT "\*.VER",a$,a$
  257.   PRINT AT(1,1);STRING$(80,32)
  258.   OPEN "I",#1,a$
  259.   z=LOF(#1)
  260.   CLOSE #1
  261.   ' ************ DATEI EINLADEN **************
  262.   OPEN "I",#1,a$
  263.   PRINT AT(21,1);" Bitte Orginal Namen der Datei eingeben "
  264.   FILESELECT "*.*",a$,a$
  265.   OPEN "O",#2,a$
  266.   PRINT AT(1,1);STRING$(80,32)
  267.   REPEAT
  268.     n$=INPUT$(1,#1)
  269.     a=ASC(n$)-z
  270.     DEC l
  271.     SUB x,7
  272.     PRINT AT(1,1);"Schreibe ";ABS(x/7)
  273.     IF l=-5
  274.       PRINT #2,CHR$(a+x)
  275.     ELSE
  276.       IF l=-17
  277.         PRINT #2,CHR$(a-z+x+l);
  278.       ELSE
  279.         PRINT #2,CHR$(a-z+x);
  280.         l=0
  281.       ENDIF
  282.     ENDIF
  283.   UNTIL EOF(#1)
  284.   CLOSE
  285.   CLOSE #1
  286.   CLOSE #2
  287.   RUN
  288. RETURN
  289. PROCEDURE fehler
  290.   ALERT 3,"Fehler ist aufgetreten|Ich fange Fehler ab",1,"Restart",d%
  291.   CLOSE #1
  292.   CLOSE #2
  293.   RUN
  294. RETURN
  295.