Decompile Protector

				
'**************************************
' Name: Decompile Protector
' Description:What my source code does is make 32bit and 16bit Visual Basics compiled projects (.EXE) "decompile protected". So no one out there can steal your source code from your vb made EXE's. Well the code is simple but you can make a decompiler protector program with the code. Enjoy and keep programming :-)
' By: Michael L. Canejo
'
' Assumes:1.) Make a TextBox and name it "Text1"
2.) Make a CommandButton and name it "Command1" With the caption "Protect It!"
3.) Make a DirListBox and name it "Dir1"
4.) Make a DriveListBox and name it "Drive1"
5.) Make a FileListBox and name it "File1"
Please make sure that Command1's caption says "Protect It!" and Text1's caption is ""(Bank)
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=1468&lngWId=1'for details.'**************************************

'********** Copy and Paste all this into your Form, NOT A MODULE! **********
Private Sub Command1_Click()
 A = "."
 Open Text1.Text For Binary As #1
 Seek #1, 25
 Put #1, , A
 Close #1
 MsgBox "The File, ''" & Text1 & "'', Was Protected from being decompiled!", vbOKOnly, "Decompile Protection Attempt Successful!"
 End Sub
Private Sub Dir1_Change()
 File1 = Dir1
 Text1 = Drive1 & "/" & Dir1
End Sub
Private Sub Drive1_Change()
 Drive1 = Dir1
End Sub
Private Sub File1_Click()
 Text1 = Dir1 & "\" & File1
End Sub
Private Sub File1_DblClick()
 Command1_Click
End Sub
Private Sub Form_Load()
MsgBox "Enjoy the Free source Code. This was FULLY Provided ßy: MiKE32. If you have any questions or comments, email me at cindy.joyce@worldnet.att.net", 40, "Enjoy!"
Text1.Text = ""
Command1.Caption = "Protect It!"
End Sub