home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / maksiu / utils / eaissue3b.lha / Source_Code / AK_Encrypter_2.AMOS / AK_Encrypter_2.amosSourceCode
AMOS Source Code  |  1995-12-30  |  2KB  |  66 lines
  1. ' Program Encrypter. 
  2. '
  3. ' Written by Andrew "Mushroom" Kellett (C) Mushroom PD.
  4. '
  5. ' This encrypter will encrypt the following letters and symbols :
  6. '
  7. ' ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789 
  8. ' '~!"�$%^&*()_-+=\|/?.>,<[]{}       91 symbols
  9. ' Any other symbol found will be ignored, but may be messed up when Encrypted. 
  10. '
  11.  
  12. Dim T1(921)
  13.  
  14. Screen Open 0,640,50,4,Hires : Paper 0 : Cls : Curs Off : Flash Off 
  15. Centre "MPD File encrypter program V2" : Print 
  16. Centre "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" : Print : Print 
  17.  
  18. DAT1:
  19. Data 124,41,62,55,61,60,126,122,88,51,113,121,103,72,89,48,57,110
  20. Data 111,104,116,106,85,47,81,112,38,71,108,92,54,107,119,56,46
  21. Data 43,117,39,50,163,101,98,40,95,123,34,67,37,97,33,93,68,66
  22. Data 109,52,83,65,45,90,78,69,73,125,49,70,80,100,94,118,36,82
  23. Data 102,79,114,86,63,105,42,76,84,99,120,115,91,44,74,77,53,87
  24. Data 75,32
  25.  
  26. Restore DAT1 : For N=1 To 91 : Read T1(N) : Next N
  27.  
  28. F$=Fsel$("","","Select SOURCE file")
  29.  
  30. If F$="" Then Edit 
  31.  
  32. G$=Fsel$("","","Select DEST file")
  33.  
  34. Open In 1,F$ : Reserve As Data 10,Lof(1) : Reserve As Data 11,Lof(1) : Close 
  35. Bload F$,10 : LE=0 : LE2=Length(10) : MPD=Execall(-132)
  36.  
  37. J$=" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789'~!"+Chr$(34)+"�$%^&*()_-+=\|/?.>,<[]{}"
  38.  
  39. Amos Lock : Break Off 
  40.  
  41. Repeat 
  42.    T=Timer/50
  43.    If T<>T2
  44.       Centre "Bytes to go :"+Str$(LE2)+" "
  45.       T2=T
  46.    End If 
  47.    
  48.    P=Peek(Start(10)+LE) : CHAR=-1
  49.    
  50.    For N=1 To 91
  51.       If Mid$(J$,N,1)=Chr$(P)
  52.          CHAR=T1(N) : Goto NXT
  53.       End If 
  54.    Next N
  55.    
  56.    NXT:
  57.    
  58.    If CHAR=-1
  59.       CHAR=P
  60.    End If 
  61.    
  62.    Poke Start(11)+LE,CHAR : Dec LE2 : Inc LE
  63. Until LE2=0
  64.  
  65. MPD=Execall(-138) : Wait Vbl 
  66. Bsave G$,Start(11) To Start(11)+Length(11)