Сейчас на форуме: (+8 невидимых) |
![]() |
eXeL@B —› Крэки, обсуждения —› Как бороться с обфускаторами? |
Посл.ответ | Сообщение |
|
Создано: 11 марта 2005 16:53 · Личное сообщение · #1 Здравствуйте кто знает какие проги для ДЕОБФУСТИРОВАНИЯ программ созданных На новой платформе дот net дезасемблил тут програмулину а там вместо переменных какая та ерунда листинг приведу ниже так вот естли проги которые умеют правельно Переводить обфусцырованный код в нармальный? Кусок обфусцырованного кода из исследуемой мной проги Private Sub New() _ᐁ = Date.MinValue _ᐂ = Date.MinValue _ᐃ = Date.MinValue _ᐄ = TrialStatus.Tampered _ᐈ = "" _ᐉ = "" _ᐎ = Nothing _ᐐ = false _ᐂ = Date.MinValue _ᐁ = Date.UtcNow _ᐃ = Date.MinValue _ᐄ = TrialStatus.InTrial _ᐎ = Nothing Dim _guid As Guid = Guid.NewGuid _ᐏ = _guid.ToString End Sub 'RedGate.Licensing.Client.Licence..ctor Private Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext) _ᐁ = Date.MinValue _ᐂ = Date.MinValue _ᐃ = Date.MinValue _ᐄ = TrialStatus.Tampered _ᐈ = "" _ᐉ = "" _ᐎ = Nothing _ᐐ = false _ᐂ = info.GetDateTime("datefirstused") _ᐃ = info.GetDateTime("datelastused") _ᐁ = info.GetDateTime("dateinstalled") _ᐄ = CType(info.GetValue("trialstatus", GetType(RedGate.Licensing.Client.TrialStatus)),TrialStatus) _ᐇ = info.GetBoolean("extended") Dim _guid As Guid = Guid.NewGuid _ᐏ = _guid.ToString End Sub ![]() |
|
Создано: 11 марта 2005 17:48 · Личное сообщение · #2 |
|
Создано: 12 марта 2005 16:14 · Личное сообщение · #3 |
|
Создано: 13 марта 2005 10:02 · Личное сообщение · #4 Скачал новую версию дезасемблера сейчас переменные выглядят примерно так Но всеровно код очень трудно читать. Есчо хотелось бы знать если какойнить отладчик Под этот язык типа softica. Inherits Object Public _ 1401 As Integer Public _ 1402 As Integer Public _ 1403 As Integer Public _ 1401 As String Public _ 1402 As String Public _ 1403 As String Public _ 1401 As Boolean Public _ 1404 As String Public Sub New() MyBase.New() _ 1401 = 0 _ 1402 = 0 _ 1403 = 0 _ 1401 = "" _ 1402 = "" _ 1403 = "" Return End Sub End Class Private Class RedGate.Licensing.Client.Licence+ 1402 Inherits SerializationBinder Public Sub New() MyBase.New() Return End Sub Public Overrides Function BindToType(ByVal assemblyName As String, ByVal typeName As String) As Type Return Type.[GetType](String.Concat(typeName, ",", assemblyName), 1) End Function End Class Private Const _Deleted As String Private Const _Deleted As String Private Const _Deleted As String Private _ 1401 As Date Private _ 1402 As Date Private _ 1403 As Date Private _ 1404 As TrialStatus Private _ 1405 As Integer Private _ 1406 As String Private _ 1407 As Boolean Private _ 1408 As String Private _ 1409 As String Private _ 140a As Boolean Private _ 140b As String Private _ 140c As Integer Private _ 140d As Integer Private _ 140e As String Private _ 140f As String Private _ 1410 As Boolean Private Sub New() MyBase.New() Dim _guid As Guid _ 1401 = Date.MinValue _ 1402 = Date.MinValue _ 1403 = Date.MinValue _ 1404 = 3 _ 1408 = "" _ 1409 = "" _ 140e = Nothing _ 1410 = 0 _ 1402 = Date.MinValue _ 1401 = Date.UtcNow ![]() |
|
Создано: 13 марта 2005 13:42 · Личное сообщение · #5 |
|
Создано: 14 марта 2005 11:30 · Личное сообщение · #6 |
|
Создано: 14 марта 2005 12:00 · Личное сообщение · #7 |
![]() |
eXeL@B —› Крэки, обсуждения —› Как бороться с обфускаторами? |