Prevent reverse engineering.

[dymadarlin]

How can I protect my code from being reverse engineered so easily with tools like

"Luts Roder's .net reflector" ?

 

[JohnYingling]

Download the book and the code. This works great for me.
$39.95

http://www.amazon.com/exec/obidos/tg/detail/-/B00006488E/104-3704820-0179150?v=glance

http://www.VBCompare.com

Compare Code

 

[dymadarlin]

Thanks,

Can you tell me what happens when you try to decompile it with Luts Roder's.net reflector?

 

[JohnYingling]

Download VBCompare (.Net) and try to decompile it.

http://www.VBCompare.com

Compare Code

 

[chiph]

To make decompilation more difficult, you would run it through a code obfusticator.

I personally don't use them for two reasons:
1. There is a non-zero chance of them creating bad code that can't be reproduced or debugged.
2. My market almost always respects my license agreement.

Chip H.


____________________________________________________________________
If you want to get the best response to a question, please read FAQ222-2244 first

 

[JohnYingling]

The code that comes with the book in the provided link IS an obfuscator writtem by Dan Appleman that basically changes all non-Public names to "$".

http://www.amazon.com/exec/obidos/tg/detail/-/B00006488E/104-3704820-0179150?v=glance

http://www.VBCompare.com

Compare Code

 

[dymadarlin]

John your code does not seem to be well obfuscated,

see,

Private Sub frmAbout_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim text2 As String = String.Empty
MyBase.Scale(Common.Wparms.ScreenScalingFactor)
Me.RegisteredTo.Text = Common.Wparms.RegisteredUser
Me.RegistrationNo.Text = Common.Wparms.Registration
If (Me.RegisteredTo.Text.Length = 0) Then
Me.RegisteredTo.Text = "U N R E G I S T E R E D C O P Y"
Me.RegistrationNo.Text = ""
End If
Dim info1 As FileVersionInfo = FileVersionInfo.GetVersionInfo(Assembly.GetExecutingAssembly.Location)
Me.lblVersion.Text = ("Version: " & info1.FileVersion)
Me.rtfLicense.ReadOnly = True
Dim text1 As String = Path.Combine(Common.Wparms.AppPath, "License.Rtf")
Try
Me.rtfLicense.LoadFile(text1)
Catch obj1 As Object
End Try
End Sub