home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / totallyamos / issue2 / programming / ben.seq < prev    next >
Text File  |  1991-09-02  |  5KB  |  127 lines
  1.  124
  2. aaa00ff23fe0080333001d5b
  3. ^2<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><
  4.  
  5.                        ^3P R O G R A M   P A R L O U R
  6.                  
  7.                  ^2The definitive guide to AMOS programming
  8.  
  9.                                ^1by Ben Ashley
  10.  
  11. ^2<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><
  12.  
  13. ^7 This part of `Totally Amos', is a sort of...well, a guide, hintbook,
  14. ^7listing book, etc.  And over the months, I`ll be uncovering routines,
  15. ^7and  giving a helping hand to anyone who needs it.  I remember when I
  16. ^7first  got  AMOS.  Wow, did it look daunting or what?  Even with such
  17. ^7good  helplines around.  Still, I`ve got to grips with it, and here I
  18. ^7am now, speaking to you.
  19.  
  20. ^5 This issue, I`m going to be looking at Password Protection.  It is a
  21. ^5scheme, that I`ve been planning for a couple of months now.  I have a
  22. ^5few  BETA tests, but I have yet to get round to writing and compiling
  23. ^5a  full  blown protection kit.  So, without further ado, I`m going to
  24. ^5set off on some theory work.
  25.  
  26. ^7 However  good  the  protection,  you  can  bet  your life, it can be
  27. ^7cracked.  So rather than set sail on the waters of impossibility, I`m
  28. ^7going  to  embark  on the project of the lesser-technical minded.  If
  29. ^7you  couldn't  make  head  nor  tail  of that last sentence, what I`m
  30. ^7trying  to  say  is,  my  Password  Project is to protect your disks,
  31. ^7against  the people who are NOT hardened crackers.  Problem is, a lot
  32. ^7of  people  are reading this article and finding out how certain ones
  33. ^7work.   Change  them  if  you  wish, the idea is there, and it`s only
  34. ^7supposed  to  keep  fellow  companions and family out of your private
  35. ^7life.
  36.  
  37. ^2THE PASSWORD PROGRAMS
  38.  
  39. ^5 There will only really be 2 main programs you`ll need to write.  One
  40. ^5which  installs  passwords  onto  disks, and another compiled program
  41. ^5which can be put in a startup-sequence, e.t.c.
  42.  
  43. ^2THE PASSWORD ITSELF
  44.  
  45. ^7 When  asking for a password to be put on the disk, we`ll say that it
  46. ^7should be held in string P$.  O.k, to save this password, it`ll go in
  47. ^7an  ASCII  file.  GREAT!  I hear you cry, people can just look at it!
  48. ^7So here comes the interesting part.  The encryption.  You could use a
  49. ^7routine like the following:
  50.  
  51. ^6 L=Len(P$)
  52. ^6 For F=1 To L
  53. ^6    Mid$(P$,F,1)=Chr$(Asc(Mid$(P$,F,1))+5)
  54. ^6 Next F
  55.  
  56. ^5 This  should  change the values of the Ascii characters, so it looks
  57. ^5like a load of junk.  And then you`d save it as a sequential file.
  58.  
  59. ^7 Now, in the PASSWORD PROTECTION PROGRAM, to Decrypt the password all
  60. ^7you have to do is......
  61.  
  62. ^6 L=Len(P$)
  63. ^6 For F=1 To L
  64. ^6    Mid$(P$,F,1)=Chr$(Asc(Mid$(P$,F,1))-5)
  65. ^6 Next F
  66.  
  67. ^7 This should get the password back to it`s original state.
  68.  
  69. ^7 So, a fully blown routine could look something like:
  70.  
  71. ^6 Input "Please enter the New Password:";P$
  72. ^6 L=Len(P$)
  73. ^6 For F=1 To L
  74. ^6    Mid$(P$,F,1)=Chr$(Asc(Mid$(P$,F,1))+5)
  75. ^6 Next F
  76. ^6 Open Out 1,"Df0:File.X"
  77. ^6 Print #1,P$
  78. ^6 Close 1
  79. ^6 Edit
  80.  
  81. ^7And the checking program......
  82.  
  83. ^6 Open In 1,"Df0:File.X"
  84. ^6 Input #1,P$
  85. ^6 Close 1
  86. ^6 For F=1 To L
  87. ^6    Mid$(P$,F,1)=Chr$(Asc(Mid$(P$,F,1))-5)
  88. ^6 Next F
  89. ^6 Input "Please enter the Password:";PASS$
  90. ^6 If PASS$=P$
  91. ^6    End
  92. ^6 End If 
  93. ^6 Do
  94. ^6   Curs Off
  95. ^6   Amos To Front
  96. ^6 Loop
  97.  
  98.  
  99. ^7 Of course, you`ll have to add, a good screen ( ie:  2 colour, hi-res
  100. ^7), and when you`ve made sure you`ve got it right.  Add BREAK OFF.  In
  101. ^7the  Password Program I wrote, I put the command Amos To Front in the
  102. ^7loop.
  103.  
  104. ^5 This  meant,  if  any  person  who had failed to put the password in
  105. ^5correctly,  and  tried to switch screens using AMIGA-A, could not, as
  106. ^5the AMOS screen would always be brought to the front.
  107.     
  108.  
  109. ^7 So  what  have  I  included as source?  Well, to give you an idea of
  110. ^7what  I`m  talking  about,  I`ve  provided  you with THREE, yes THREE
  111. ^7programs.  These are:
  112.  
  113. ^2                         Password-Installer.AMOS
  114. ^2                         Password-Protection.AMOS
  115. ^2                         Password-Cracker.AMOS
  116.  
  117. ^7 The  first two are self explanatory.  The first is the one you place
  118. ^7a   password   in,   the   second   gets   compiled   and  put  in  a
  119. ^7startup-sequence,  and  the  third.....  Just in case you forget your
  120. ^7password, this one cracks passwords.
  121.  
  122. ^2 Well,  Tally-Ho,  and enjoy your Password Programming.  See you next
  123. ^2issue...  BYE!
  124.  
  125. ^2<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><
  126. \
  127.