home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma33.dms / ma33.adf / Amos / AMOS.lha / 10-Szyfrowanie / 1-Bajty.AMOS / 1-Bajty.amosSourceCode
AMOS Source Code  |  1995-01-25  |  605b  |  22 lines
  1. ' Bajty (C) 1994 By Arni Fusik 
  2. '
  3. '--------------------- odczyt pliku  
  4. NAZWA$=Fsel$("*.TXT","","Wybierz plik do (de)szyfrowania")
  5. Open In 1,NAZWA$
  6. Reserve As Work 99,Lof(1)
  7. Close 1
  8. Print " Odczyt pliku: ";NAZWA$
  9. Bload NAZWA$,Start(99)
  10. '--------------------- (de)szyfrowanie 
  11. Print " Proces (de)szyfrowania"
  12. For I=0 To Length(99)/2
  13.    INDEKS1=Start(99)+I
  14.    INDEKS2=Start(99)+Length(99)-1-I
  15.    X=Peek(INDEKS1)
  16.    Poke INDEKS1,Peek(INDEKS2)
  17.    Poke INDEKS2,X
  18. Next 
  19. '--------------------- zapis pliku 
  20. Print " Zapis pliku: ";NAZWA$
  21. Bsave NAZWA$,Start(99) To Start(99)+Length(99)
  22. Print " Operacja zakonczona"