home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4609 / ktencode / ktencode.frm (.txt) < prev    next >
Visual Basic Form  |  1994-06-22  |  7KB  |  162 lines
  1. Form1
  2. KTEncode
  3. Form15w
  4. Command2
  5. Decode
  6. Text2
  7. Command1
  8. Encode
  9. Text1
  10. Terminal
  11. Label1
  12. Password
  13. Command1_Click
  14. command1
  15. Caption
  16. Text2
  17. first
  18. third
  19. text1
  20.     Form_Load
  21. GetIt
  22.     StartPass
  23. EndPass
  24. SelText\
  25. SelStart
  26.     SelLength
  27. DecodeH
  28. strng
  29. Encodee
  30. text3
  31. Picture1
  32. CountIt
  33. Robot\
  34. Adjust
  35. Command2_Click
  36. CounIt
  37. break
  38. SUCCESS
  39. Text1_Change
  40. TheTextt
  41. Applyj
  42.     KTEncrypt
  43. PASSWORD
  44. EncodeDecode
  45. AllowError
  46. Looper
  47. TotalAscii
  48. AllDoneK
  49. Loop1
  50. Loop2
  51. NotYet
  52. NotYeyt
  53. AdjustCount
  54. ToChange
  55. Count
  56. Addin@
  57. Counts
  58. ErrorLevV
  59.     KTEncrpyt
  60.     ErrorFlag
  61. Finction`
  62. KTEncode2
  63. Errors
  64. ThenErrors
  65. ThenMsgBox
  66. Flag255
  67. reverse
  68. coding
  69. Check1
  70. Check2
  71. original
  72. ErrorCapture
  73. ErrorHandler
  74. INVALID
  75. Command3_Click
  76. Command4_Click
  77. Command1_Click
  78. Encode Text1
  79. Errors??
  80. KTEncrypt Error
  81. Command2_Click
  82. Decode text1
  83. Errors??
  84. KTEncrypt Error
  85. Form_Load
  86. Line feed
  87. A message
  88. Hello,
  89. This is a demonstration program of the KTEncrpyt Function.
  90.   Any text in this text box will be encrypted based on a
  91.  password entered above.  Type in a password of at least
  92.  one character then press Encode.  You will see a transformed
  93.  text that is impossible to decifer.  Keeping the password
  94.  the same,  press the decode button and see the file restored.
  95.  Try it again but before Decoding change the password and see
  96.  what happens.  Either you get a 'INVALID PASSWORD' error or
  97.  you just get a bunch of useless text.  Feel free to use this
  98.  Function as you please.  The only restriction is if you pass
  99.  it on please distribute the orignal unmodified files in a ZIP
  100.  format.  If you find it usefull or have questions or comments
  101.  send them to:
  102.      K & T 
  103.      Karl D Albrecht
  104.      P.O. Box 478
  105.      San Lorenzo, CA 94580-0478
  106. or Send E-Mail to America Online -> KARL25  (KARL25@AOL.COM)
  107. Please read the READTHIS.TXT file for programming information 
  108. KTEncrypt
  109. Programmed by Karl Albrecht (KARL25@AOL.COM)
  110. Dimension the Adjust array
  111. Set error capture routineo
  112. Preserve original string
  113. Check for errors (Errorcodes are custom)
  114. Is there Password??t
  115. Is there a strng$ to work with?
  116. Check to see if it is an encoded file
  117. if encoding warn!
  118. If decoding warn
  119. Create a four part encryption code based on password
  120. First Adjust code based on length of passwordn
  121. If first character ascii code even make adjust negative
  122. Second Adjust code based on first and last character ascii codes
  123. Third code based on average of all ascii codes
  124. Fourth code based on previous threeb
  125. Now check if any Adjust codes are zero
  126. If it is zero make it not zero (any number is fine!)
  127. Now check if any adjusts are the sameu
  128. Don't compare same items
  129. Check for a matchh
  130. Make sure we didn't make it zero
  131. Encode or deocde
  132. Loop until scanned though the whole file
  133. Add to Looper
  134. Keep Adjust code Counts from 1 to 4 
  135. Get the character to change 
  136. ENCODE   Flag%=0
  137. If adjustment to high or low then reverse the coding and
  138. add in a chr$(255) to mark the changee
  139. If adjustment OK then just cahnge the charactero
  140. DECODE  Flag% <> 0
  141. If find a CHR$(255) then remove it and set Flag255% to
  142. ensure reverse codes on next pass reverse coding
  143. Since CHR$(255) was removed we need to back up Looper 
  144. and Counts because characters all shifted to the left 
  145. If not CHR$(255) then decode watching if Flag255% is set
  146. Set function equal to changed string
  147. Tack on CHR$(255) to end so it can be recognized as encoded
  148. Make sure Errors$ is cleared
  149. Illegal Function Call --> out of range ASCII codex
  150. INVALID PASSWORD!
  151. Is there Password??
  152. NO PASSWORD!
  153. Is there a strng$ to work with?=
  154. NO STRING!
  155. Encoding a encoded file?
  156. FORCE
  157. FILE ALREADY ENCODED!
  158. Decoding a non-encoded file?
  159. FORCE
  160. FILE NOT ENCODED!
  161. Unanticipated 
  162.