home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Crash_Encr196996252006.psc / CrashEncryption2 / DecryptStart.frm < prev    next >
Text File  |  2006-01-31  |  6KB  |  163 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form DecryptStart 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   2835
  6.    ClientLeft      =   45
  7.    ClientTop       =   45
  8.    ClientWidth     =   6270
  9.    ControlBox      =   0   'False
  10.    Icon            =   "DecryptStart.frx":0000
  11.    LinkTopic       =   "Form2"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2835
  16.    ScaleWidth      =   6270
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.CommandButton Command4 
  19.       Caption         =   "Browse"
  20.       Height          =   375
  21.       Left            =   4800
  22.       TabIndex        =   7
  23.       Top             =   1560
  24.       Width           =   1335
  25.    End
  26.    Begin VB.TextBox Text2 
  27.       Height          =   375
  28.       Left            =   120
  29.       Locked          =   -1  'True
  30.       TabIndex        =   5
  31.       Top             =   1560
  32.       Width           =   4575
  33.    End
  34.    Begin MSComDlg.CommonDialog CDBrowse 
  35.       Left            =   3480
  36.       Top             =   2160
  37.       _ExtentX        =   847
  38.       _ExtentY        =   847
  39.       _Version        =   393216
  40.    End
  41.    Begin VB.CommandButton Command3 
  42.       Caption         =   "Cancel"
  43.       Height          =   375
  44.       Left            =   120
  45.       TabIndex        =   3
  46.       Top             =   2400
  47.       Width           =   1335
  48.    End
  49.    Begin VB.CommandButton Command2 
  50.       Caption         =   "Continue"
  51.       Height          =   375
  52.       Left            =   4800
  53.       TabIndex        =   2
  54.       Top             =   2400
  55.       Width           =   1335
  56.    End
  57.    Begin VB.CommandButton Command1 
  58.       Caption         =   "Browse"
  59.       Height          =   375
  60.       Left            =   4800
  61.       TabIndex        =   1
  62.       Top             =   480
  63.       Width           =   1335
  64.    End
  65.    Begin VB.TextBox Text1 
  66.       Height          =   375
  67.       Left            =   120
  68.       Locked          =   -1  'True
  69.       TabIndex        =   0
  70.       Top             =   480
  71.       Width           =   4575
  72.    End
  73.    Begin VB.Label Label2 
  74.       Alignment       =   2  'Center
  75.       Caption         =   "Input decryption key file:"
  76.       Height          =   255
  77.       Left            =   120
  78.       TabIndex        =   6
  79.       Top             =   1320
  80.       Width           =   6015
  81.    End
  82.    Begin VB.Label Label1 
  83.       Alignment       =   2  'Center
  84.       Caption         =   "Input file to decrypt:"
  85.       Height          =   255
  86.       Left            =   120
  87.       TabIndex        =   4
  88.       Top             =   120
  89.       Width           =   6015
  90.    End
  91. End
  92. Attribute VB_Name = "DecryptStart"
  93. Attribute VB_GlobalNameSpace = False
  94. Attribute VB_Creatable = False
  95. Attribute VB_PredeclaredId = True
  96. Attribute VB_Exposed = False
  97. '|||||||||||||||||||||||||||||||||||Disclaimer|||||||||||||||||||||||||||||||||||||'
  98. ' This code is written by Matthew Kernes. It is not intended for commercial use.   '
  99. ' It has no warranty nor is Matthew Kernes responsible for any damage it does to   '
  100. ' any computer it runs on. Any changes made to this software after the day October '
  101. ' 24th, 2005 by anyone other then Matthew Kernes is liabile for the changes and    '
  102. ' Matthew Kernes is not responsible for those changes or the problems they may     '
  103. ' cause.                                                                           '
  104. '||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||'
  105.  
  106. ' I wrote this code because I wanted to see if I could make an unhackable encryption.
  107. ' I know there is no such thing as "unhackable" encryption. But I'd like to see how fast
  108. ' someone can break the code. Originally, I created a program that uses the Ceaser Cypher,
  109. ' but I didn't know it at the time. I was pretty new to encryption and I feel I still am.
  110. ' But I lay the challenge out now to anyone who might want it. Can you break this encryption?
  111.  
  112. ' I wrote the software with 2 ideas in mind.
  113. '    - How many varaibles does it take to make it so you can't solve for x?
  114. '    - How do you make it so the user cannot control the key or password?
  115.  
  116. ' With this in mind, I set out to make what is now "Crash Encryption".
  117. ' I dubbed it "Crash Encryption" because this program is somewhat a resource hog,
  118. ' as well, my nick-name is "Crash".
  119.  
  120. ' If you like what you see and have comments or questions, please feel free
  121. ' to email me at compiano@socal.rr.com. Voting is not necessary on my code.
  122.  
  123. ' Thanks for the view,
  124. '                   Matthew Kernes (Crash)
  125.  
  126.  
  127.  
  128. ' This entire form is just so simple that
  129. ' I'm not really going to comment it too much.
  130.  
  131. Public decrypt_Title As String
  132. Public Decrypt_Path As String
  133. Option Explicit
  134.  
  135. Private Sub Command1_Click()
  136. CDBrowse.Filter = "Encrypted Files (*.encrypt) | *.Encrypt" ' Let's find that file type I so cleverly created.
  137. CDBrowse.DialogTitle = "Open File to Decrypt"
  138. CDBrowse.ShowOpen
  139. If CDBrowse.FileName = "" Then Exit Sub
  140. decrypt_Title = CDBrowse.FileTitle
  141. Decrypt_Path = Mid(CDBrowse.FileName, 1, Len(CDBrowse.FileName) - Len(CDBrowse.FileTitle) - 1)
  142. Text1 = CDBrowse.FileName
  143. End Sub
  144.  
  145. Private Sub Command2_Click()
  146. Encrypt.Show
  147. Me.Hide
  148. Encrypt.Decrypt Text1, Text2
  149. End Sub
  150.  
  151. Private Sub Command3_Click()
  152. Me.Hide
  153. StartFrm.Show
  154. End Sub
  155.  
  156. Private Sub Command4_Click()
  157. CDBrowse.Filter = "Decryption Keys (*.DecKey) | *.DecKey" ' Yet another awesome file extention.
  158. CDBrowse.DialogTitle = "Open Decryption Key"
  159. CDBrowse.ShowOpen
  160. If CDBrowse.FileName = "" Then Exit Sub
  161. Text2 = CDBrowse.FileName
  162. End Sub
  163.