Kompilierte exe Datei crypten / schützen

  • VB.NET

Es gibt 27 Antworten in diesem Thema. Der letzte Beitrag () ist von BiedermannS.

    Kompilierte exe Datei crypten / schützen

    Hallo,

    ich habe eine kleine Application geschrieben.
    Wie gut oder wie hoch ist die Wahrscheinlichkeit, dass man diese exe Datei (in VB 2010 geschrieben) dekompilieren kann?

    Kennt jemand ein Programm womit man die .exe Dateien schützen kann? - sollte wenn möglich max. 150€ kosten (nicht kommerziell, das Programm ist frei).


    Vielen Dank!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „grex“ () aus folgendem Grund: Rechtschreibfehler ausgebssert

    Hallo,

    danke für die rasche Antwort.
    Eig. dachte ich eher an crypten, solche Programme wie Themida (oreans.com/themida.php)
    Jedoch ist mir das Programm zu teuer. Die Suche habe ich schon verwendet, aber ich weiß ehrlich gesagt nicht, nach was genau gesucht wird.
    Im prinzip ja "exe verschlüsseln", "exe crypting" oder?
    Es gibt bestimmt mehrere Programme...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „grex“ () aus folgendem Grund: Rechtschreibfehler ausgebessert

    grex schrieb:

    Wie gut oder wie hoch ist die Wahrscheinlichkeit, dass man diese exe Datei (in VB 2010 geschrieben) deckmpilieren kann?
    Stell dir erstmal die Frage: Wie gut oder wie hoch ist die Wahrscheinlichkeit, dass man diese exe Datei dekompilieren will?

    ...sollte wenn möglich max. 150€ kosten (nicht kommerziell, das Programm ist frei).
    Was soll das? Du verschenkst dein Programm, aber den Code soll niemand angugge dürfen - würdeste sogar 150€ für abdrücken??

    versteh ich nicht.

    ErfinderDesRades schrieb:

    Was soll das? Du verschenkst dein Programm, aber den Code soll niemand angugge dürfen - würdeste sogar 150€ für abdrücken??

    versteh ich nicht.

    ErfinderDesRades schrieb:

    Stell dir erstmal die Frage: Wie gut oder wie hoch ist die Wahrscheinlichkeit, dass man diese exe Datei dekompilieren will?



    Ich dachte mir schon, dass so eine Frage kommt. Die Gegenfrage ist es, musst du es wissen? - Die Frage im ersten Post wurde gestellt ;)
    Aber ich erklärs mal ganz kurz:

    Ich betreibe einen Gameserver, jedoch gibts schon ziemlich viele Hacks dafür, die den Spielspaß rauben. Nun habe ich einen Loader / Anti Cheat geschrieben, der im Spieleverzeichnis die MD5s mit der Whitelist bzw. Blacklist vom Server abgleicht.
    Der Client ist mit Visual Basic geschrieben, die Serverversion in C++ und wird betrieben auf Linux.
    Wir haben eine Betaphase eingeführt, jetzt kommen natürlich schon die ersten Spieler, die den Loader dekompilieren. Dagegen möchte ich vorgehen. Ein anderes Projektteam hat es mit Themida abgesichert. 150€ ist schon viel da gebe ich dir recht, aber ist im Projektbudget enthalten.
    Die Lösung von big-d funktioniert leider nicht, es lässt sich mit dem Telerik JustDecompile dekompilieren, zwar werden die Variablen anders angezeigt, aber mit z.B. themida kann der Dekompiler erst garnicht öffnen.


    Natürlich bin ich für jeden weiteren Rat von dir/euch dankbar!

    EDIT: @ Annoxoli Danke dir für den Tipp, hast du damit schon Erfahrung gemacht? - Die SW + Jahreslizenz für Updats hat einen stolzen Preis :/

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „grex“ () aus folgendem Grund: Kurze Ergänzung

    nein, du hast natürlich recht: ich musses nicht wissen. Aber ich bin erst recht froh, dassich gefragt hab, weilich deine Ausführungen interessant finde, unds gefällt mir einfach, wenn ich Zusammenhänge verstehe :).

    Vlt. geht die GrundIdee deines Sicherheitskonzepts nicht auf:
    Also statt eines AntiCheat-Loaders, der abfragt: "Bin ich gesperrt?", sollte die Sperr-Logik auffm Server liegen, also dass wer gesperrt ist, eben nicht mehr bedient wird.

    @ErfinderDesRades
    Das ist schon richtig das die Sperr-Logik auf dem Server sein muss, doch die Erkennung ob Dateien geändert wurden, muss beim Spieler sein.

    @grex
    Am wichtigsten ist erst mal, dass du keine pdb Dateien mitgibst. Alles was man nicht zum ausführen der EXE braucht, hat beim "Spieler" nichts zu suchen. Denn dotPeek kann auch pdb Dateien lesen, wodurch das ganze Obfuskieren nutzlos wird...

    Am einfachsten wäre ein Obfuskator und wenn du ein paar Dinge in native DLL's auslagerst.

    Man kann natürlich auch händisch obfuskieren (nicht so sicher wie ein Obfuskator, nicht leicht umzusetzen, aber gratis):
    Achtung: Dadurch wird der nicht nur der Code nach dem dekompilieren unleserlich, sonder auch der echte Sourcecode wird ziemlich verwirrend...
    Spoiler anzeigen
    Verwende viele Statische Variablen, diese werden nämlich so unleserlichen benannt das nur der Compiler das schön lesen kann.
    Verwende viele Anonyme Methoden, selbes Spiel wie mit den Variablen
    Baue unnötige Jumps und Labels ein, Funktionen die Nichts bewirken aber so heißen als währen sie wichtig.
    Benenne Funktionen mit namen wie "X", "F" usw..
    Brich so ziemlich jede regel die du dir normalerweise für das Programmieren gesetzt hast, sei kreativ.


    Du musst halt nur aufpassen das die Performance nicht zu sehr darunter leidet.

    Hier mal ein kleines Beispiel:

    Ein von mir erstellte "For-Schleife", mit Telerik JustDecompile dekompiliert (wenn man nicht weiß, dass dieser Code die Funktionalität einer For-Schleife hat, findet man das von selber nie raus):

    Spoiler anzeigen

    VB.NET-Quellcode

    1. <StandardModule> _
    2. Friend NotInheritable Class obfuskiert
    3. <AccessedThroughProperty("o")> _
    4. Private Shared _o As x
    6. Private Property Shared o As x
    7. Get
    8. Return obfuskiert._o
    9. End Get
    10. Set(ByVal value As x)
    11. obfuskiert._o = WithEventsValue
    12. End Set
    13. End Property
    15. Shared Sub New()
    16. obfuskiert.o = New x()
    17. End Sub
    19. Public Shared Sub m(ByVal a As Integer)
    20. obfuskiert.o.q()
    21. Console.WriteLine(a)
    22. End Sub
    24. <STAThread> _
    25. Public Shared Sub Main()
    26. obfuskiert.o.q()
    27. obfuskiert.o.add_d(New dEventHandler(Nothing.obfuskiert.m))
    28. obfuskiert.o.q()
    29. Dim num As Long = CLng(100).y(num, Conversions.ToString(2000), 1, 0)
    30. Console.ReadLine()
    31. End Sub
    32. End Class
    34. Public Class x
    35. Private Shared __ENCList As List(Of WeakReference)
    37. Private dEvent As dEventHandler
    39. Private FALSCH As Boolean
    41. Private r As Delegate
    43. Private WAHR As Boolean
    45. <DebuggerNonUserCode> _
    46. Shared Sub New()
    47. x.__ENCList = New List(Of WeakReference)()
    48. End Sub
    50. Public Sub New()
    51. MyBase.New()
    52. x.__ENCAddToList(Me)
    53. Me.FALSCH = True
    54. Me.r = New VB$AnonymousDelegate_0(Of Integer)(Me._Lambda$__1)
    55. Me.WAHR = False
    56. Me.$STATIC$y$204110AE88$a$Init = New StaticLocalInitFlag()
    57. Me.$STATIC$y$204110AE88$b$Init = New StaticLocalInitFlag()
    58. Me.$STATIC$y$204110AE88$c$Init = New StaticLocalInitFlag()
    59. Me.$STATIC$y$204110AE88$e$Init = New StaticLocalInitFlag()
    60. Me.$STATIC$y$204110AE88$l$Init = New StaticLocalInitFlag()
    61. Me.$STATIC$y$204110AE88$d$Init = New StaticLocalInitFlag()
    62. End Sub
    64. <DebuggerNonUserCode> _
    65. Private Shared Sub __ENCAddToList(ByVal value As Object)
    66. Dim _ENCList As List(Of WeakReference) = x.__ENCList
    67. SyncLock _ENCList
    68. If (x.__ENCList.Count = x.__ENCList.Capacity) Then
    69. Dim num1 As Integer = 0
    70. Dim count As Integer = Dim num2 As Integer = x.__ENCList.Count - 1
    71. While (Dim num3 As Integer = num2) <= num3
    72. Dim item As WeakReference = x.__ENCList(count)
    73. If (item.IsAlive) Then
    74. If (flag) Then
    75. x.__ENCList.Item = num1
    76. End If
    77. num1 = num1 + 1
    78. End If
    79. count = count + 1
    80. End While
    81. x.__ENCList.RemoveRange(num1, x.__ENCList.Count - num1)
    82. x.__ENCList.Capacity = x.__ENCList.Count
    83. End If
    84. x.__ENCList.Add(New WeakReference(RuntimeHelpers.GetObjectValue(value)))
    85. End SyncLock
    86. End Sub
    88. Public Sub q()
    89. Me.FALSCH = Me.FALSCH Xor 1
    90. Me.WAHR = Me.WAHR Xor 1
    91. End Sub
    93. Public Sub y(ByRef k As Long, ByVal x As String, ByVal f As Integer, ByVal s As Integer)
    94. Dim dateTime As DateTime
    95. Dim millisecond As Integer
    96. Dim objArray As Object()
    97. Dim num As Long
    98. Me.q()
    99. Dim flag1 As Boolean = False
    100. Try
    101. Monitor.Enter(Me.$STATIC$y$204110AE88$a$Init, flag1)
    102. If (Me.$STATIC$y$204110AE88$a$Init.State = 0) Then
    103. Me.$STATIC$y$204110AE88$a$Init.State = 2
    104. Me.$STATIC$y$204110AE88$a = s
    105. Else
    106. If (Me.$STATIC$y$204110AE88$a$Init.State = 2) Then
    107. Throw New IncompleteInitialization()
    108. End If
    109. End If
    110. Finally
    111. Me.$STATIC$y$204110AE88$a$Init.State = 1
    112. If (flag1) Then
    113. Monitor.Exit(Me.$STATIC$y$204110AE88$a$Init)
    114. End If
    115. End Try
    116. Me.q()
    117. Dim flag2 As Boolean = False
    118. Try
    119. Monitor.Enter(Me.$STATIC$y$204110AE88$b$Init, flag2)
    120. If (Me.$STATIC$y$204110AE88$b$Init.State = 0) Then
    121. Me.$STATIC$y$204110AE88$b$Init.State = 2
    122. Me.$STATIC$y$204110AE88$b = Conversions.ToInteger(x)
    123. Else
    124. If (Me.$STATIC$y$204110AE88$b$Init.State = 2) Then
    125. Throw New IncompleteInitialization()
    126. End If
    127. End If
    128. Finally
    129. Me.$STATIC$y$204110AE88$b$Init.State = 1
    130. If (flag2) Then
    131. Monitor.Exit(Me.$STATIC$y$204110AE88$b$Init)
    132. End If
    133. End Try
    134. Dim flag3 As Boolean = False
    135. Try
    136. Monitor.Enter(Me.$STATIC$y$204110AE88$c$Init, flag3)
    137. If (Me.$STATIC$y$204110AE88$c$Init.State = 0) Then
    138. Me.$STATIC$y$204110AE88$c$Init.State = 2
    139. Me.$STATIC$y$204110AE88$c = f
    140. Else
    141. If (Me.$STATIC$y$204110AE88$c$Init.State = 2) Then
    142. Throw New IncompleteInitialization()
    143. End If
    144. End If
    145. Finally
    146. Me.$STATIC$y$204110AE88$c$Init.State = 1
    147. If (flag3) Then
    148. Monitor.Exit(Me.$STATIC$y$204110AE88$c$Init)
    149. End If
    150. End Try
    151. If ((k Mod CLng(2) = CLng(0) Xor Me.WAHR) <> 0) Then
    152. Me.$STATIC$y$204110AE88$a = s
    153. Me.$STATIC$y$204110AE88$b = Conversions.ToInteger(x)
    154. Me.$STATIC$y$204110AE88$c = f
    155. Else
    156. s = s
    157. End If
    158. Dim flag4 As Boolean = False
    159. Try
    160. Monitor.Enter(Me.$STATIC$y$204110AE88$e$Init, flag4)
    161. If (Me.$STATIC$y$204110AE88$e$Init.State = 0) Then
    162. Me.$STATIC$y$204110AE88$e$Init.State = 2
    163. millisecond = dateTime.Millisecond.$STATIC$y$204110AE88$e = New Random(Conversions.ToInteger(Convert.ChangeType(millisecond.ToString(), s.GetType())))
    164. Else
    165. If (Me.$STATIC$y$204110AE88$e$Init.State = 2) Then
    166. Throw New IncompleteInitialization()
    167. End If
    168. End If
    169. Finally
    170. Me.$STATIC$y$204110AE88$e$Init.State = 1
    171. If (flag4) Then
    172. Monitor.Exit(Me.$STATIC$y$204110AE88$e$Init)
    173. End If
    174. End Try
    175. Me.q()
    176. Dim flag5 As Boolean = False
    177. Try
    178. Monitor.Enter(Me.$STATIC$y$204110AE88$l$Init, flag5)
    179. If (Me.$STATIC$y$204110AE88$l$Init.State = 0) Then
    180. Me.$STATIC$y$204110AE88$l$Init.State = 2
    181. millisecond = dateTime.Millisecond.$STATIC$y$204110AE88$l = New Random(Conversions.ToInteger(Convert.ChangeType(millisecond.ToString(), Me.$STATIC$y$204110AE88$c.GetType())))
    182. Else
    183. If (Me.$STATIC$y$204110AE88$l$Init.State = 2) Then
    184. Throw New IncompleteInitialization()
    185. End If
    186. End If
    187. Finally
    188. Me.$STATIC$y$204110AE88$l$Init.State = 1
    189. If (flag5) Then
    190. Monitor.Exit(Me.$STATIC$y$204110AE88$l$Init)
    191. End If
    192. End Try
    193. Me.q()
    194. Dim flag6 As Boolean = False
    195. Try
    196. Monitor.Enter(Me.$STATIC$y$204110AE88$d$Init, flag6)
    197. If (Me.$STATIC$y$204110AE88$d$Init.State = 0) Then
    198. Me.$STATIC$y$204110AE88$d$Init.State = 2
    199. millisecond = dateTime.Millisecond.$STATIC$y$204110AE88$d = New Random(Conversions.ToInteger(Convert.ChangeType(millisecond.ToString(), Me.$STATIC$y$204110AE88$b.GetType())))
    200. Else
    201. If (Me.$STATIC$y$204110AE88$d$Init.State = 2) Then
    202. Throw New IncompleteInitialization()
    203. End If
    204. End If
    205. Finally
    206. Me.$STATIC$y$204110AE88$d$Init.State = 1
    207. If (flag6) Then
    208. Monitor.Exit(Me.$STATIC$y$204110AE88$d$Init)
    209. End If
    210. End Try
    211. Me.q()
    212. Me.q()
    213. If ((Me.$STATIC$y$204110AE88$c <> 0 Xor Me.WAHR) <> 0) Then
    214. Me.q()
    215. If ((Me.$STATIC$y$204110AE88$c > 0 Xor Me.FALSCH) <> 0) Then
    216. Me.q()
    217. If ((Me.$STATIC$y$204110AE88$a - Me.$STATIC$y$204110AE88$b >= 0 And Me.$STATIC$y$204110AE88$a <> Me.$STATIC$y$204110AE88$b Xor Me.WAHR) <> 0) Then
    218. Throw New Exception("Exception 2")
    219. End If
    220. Me.q()
    221. Me.r.DynamicInvoke(New Object() { Me.$STATIC$y$204110AE88$a })
    222. Me.$STATIC$y$204110AE88$a = Me.$STATIC$y$204110AE88$a + Me.$STATIC$y$204110AE88$c
    223. Me.q()
    224. If ((Me.$STATIC$y$204110AE88$a <= Me.$STATIC$y$204110AE88$b Xor Me.FALSCH) <> 0) Then
    225. Me.q()
    226. num = CLng(15).y(num, Conversions.ToString(Me.$STATIC$y$204110AE88$e.Next()), Me.$STATIC$y$204110AE88$d.Next(), Me.$STATIC$y$204110AE88$l.Next())
    227. Else
    228. Me.q()
    229. Me.q()
    230. Me.q()
    231. End If
    232. Else
    233. Me.q()
    234. If ((Me.$STATIC$y$204110AE88$a - Me.$STATIC$y$204110AE88$b < 0 And Me.$STATIC$y$204110AE88$a <> Me.$STATIC$y$204110AE88$b Xor Me.WAHR) <> 0) Then
    235. Throw New Exception("Exception 6")
    236. End If
    237. Me.r.DynamicInvoke(New Object() { Me.$STATIC$y$204110AE88$a })
    238. Me.$STATIC$y$204110AE88$a = Me.$STATIC$y$204110AE88$a + Me.$STATIC$y$204110AE88$c
    239. Me.q()
    240. If ((Me.$STATIC$y$204110AE88$a <= Me.$STATIC$y$204110AE88$b Xor Me.FALSCH) <> 0) Then
    241. num = CLng(9).y(num, Conversions.ToString(Me.$STATIC$y$204110AE88$d.Next()), Me.$STATIC$y$204110AE88$l.Next(), Me.$STATIC$y$204110AE88$e.Next())
    242. End If
    243. End If
    244. End If
    245. Throw New Exception("Exception 32")
    246. End Sub
    248. Public Event d As dEventHandler
    249. Public NotInheritable Class dEventHandler
    250. Inherits MulticastDelegate
    251. Public Sub New(ByVal TargetObject As Object, ByVal TargetMethod As IntPtr)
    253. Public Overridable Function BeginInvoke(ByVal a As Integer, ByVal DelegateCallback As AsyncCallback, ByVal DelegateAsyncState As Object) As IAsyncResult
    255. Public Overridable Sub EndInvoke(ByVal DelegateAsyncResult As IAsyncResult)
    257. Public Overridable Sub Invoke(ByVal a As Integer)
    258. End Class
    260. End Class



    Hier eine normale For-Schleife, dekompiliert:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. <StandardModule> _
    2. Friend NotInheritable Class original
    3. Public Shared Sub test()
    4. Dim i As Integer = 0
    5. Do
    6. Console.WriteLine(i)
    7. i = i + 1
    8. Loop While (Dim num As Integer = 100) <= num
    9. End Sub
    10. End Class


    Zu Schluss noch:
    Verwende bitte keine MD5 Hashes.

    MD5 ist für so etwas schon sehr veraltet. Und jeder der sich etwas auskennt und Zeit investiert kann dir ne EXE machen die den selben MD5 hat. Da gibt es einfach zu wenig Zeichen ^^

    Habt ihr auch eine Überprüfung ob von aussen was in den Prozess injected wird?


    Mfg Steve
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

    Danke erstmal für die super Antworten.

    pdb Dateien habe ich bis jetzt keine weitergegeben und hätte es auch nicht vorgehabt. Eine native DLL habe ich bis jetzt noch nie etwas gemacht, aber es soll eine einfache Exe sein die am Desktop dann liegt, daher zusätzliche Files wären nicht so ideal.
    Leider kann man ja noch den Code auch noch mittels Obfuskator auslesen,... auch wenn jetzt nurnoch steth string1, string2, int1,int2 usw.
    Ich suche aber ein Programm womi das erst garnicht möglich ist.

    Themida schlägt leider bei einigen Antivirenprogrammen an Begründung: themida
    Im Prinzip nix schlimmes, aber dennoch ärgerlich.
    Zum Thema MD5: Bist du dir da sicher, dass man den MD5 Wert einer Datei beliebig ändern kann? Das wäre ja mal interessant.
    Was würdest du dann nehmen SHA1, oder SHA256/SHA512?

    Nochmals danke!

    grex schrieb:

    Leider kann man ja noch den Code auch noch mittels Obfuskator auslesen,... auch wenn jetzt nurnoch steth string1, string2, int1,int2 usw.
    Ich suche aber ein Programm womi das erst garnicht möglich ist.!

    Sowas kann es für eine .NET-Assembly nicht geben. Spätestens im Arbeitsspeicher landet beim Ausführen der IL-Code.
    Wenn dir das so wichtig ist, kannst du - wie dir auch bereits empfohlen wurde - eigentlich nur einen anderen Compiler benutzen.
    Es ist im Prinzip auch möglich, das nur mit ein paar Teilen deines Programms zu machen.

    Hallo,

    @Renati: Falls es dich interessiert, kannst du mal die Trial Version von Themida (Link steht oben) runterladen, du brauchst es nicht installieren, ist eine portable Version. Damit kann ich mit keinem Dekompiler etwas anfangen. Nat. kenn ich mich mit dem Dekompilieren nicht wirklich aus (siehe Fragestellung oben ;)).

    Ich habe denen angeschrieben, aber leider antworten die nicht, warum auch immer. Eventuell ausgestorben. - Seite sieht mir aber auch nicht wirklich seriös aus, muss ich zugeben.
    Ich glaube ich werde es wirklich mit einem Obfuskator probieren. Ob den Free oder den um 200€ muss ich mir noch überlegen.

    Ich werde das Tool noch ein bisschen umschreiben, da ihr gute Einwände hattet mit MD5 + überprüfen ob etwas in dem Gameprozess "injeziert" wurde. Das Problem ist, einige "Hacks" sind erlaubt (z.B. dass man seine eigenen Koordinaten sieht, usw.). Es gibt aber auch Tools, die komplett von uns verboten werden.

    Ich danke euch für eure Mithilfe :)

    ... erst recht mit einem budget von 150€. so eine kleinigkeit erledigt euch in einem C++ forum sicher jemand für <30€. macht doch ne ausschreibung mit abgabetermin und nehmt den kleinstbietenden. :thumbup:

    Jungs ihr vergesst das der IL Code zur Laufzeit IMMER plain in der CRL liegt ... also könnt ihr obfuskieren bis ihr blöd werdet ... per Simulation komme ich trotzdem an den ganzen Code :)!

    ... ich hatte Renati übersehen ,wie er schon richtig erkannte zur Runtime liegt der gesamte IL-Code in der CRL und damit im Arbeitsspeicher :=)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „(Ger)Foley“ () aus folgendem Grund: hab was übersehen :=)

    Renati ist ne Frau und du solltest nochmal nachlesen was IL Code ist. Bei einem nativen C++-Programm (nicht eins das nur ein .NET-Proggie in den RAM entschlüsselt) wirste den wohl kaum finden.

Facebook
Telefonspende