UNKNOWN '************************************** 'Windows API/Global Declarations for :De ' compile Protector '************************************** None! '************************************** ' Name: Decompile Protector ' Description:What my source code does i ' s make 32bit and 16bit Visual Basics com ' piled projects (.EXE) "decompile protect ' ed". So no one out there can steal your ' source code from your vb made EXE's. Wel ' l the code is simple but you can make a ' decompiler protector program with the co ' de. Enjoy and keep programming :-) ' By: Michael Canejo ' ' ' Inputs:None ' ' Returns:None ' '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) ' 'Side Effects:None 'This code is copyrighted and has limite ' d warranties. 'Please see http://www.Planet-Source-Cod ' e.com/xq/ASP/txtCodeId.1468/lngWId.1/qx/ ' vb/scripts/ShowCode.htm '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