Дешифровка бинарного файла. Миссия невыполнима...

[Camaro Chevelle]

да наверно там разработчики авиры ообо не мудрствовали и зашифровано чем-нибудь типа исключающего или

[Abstraction]

Что зашифровано? Я выше предложил самый тупой вариант, который имело бы смысл использовать (открытых библиотек - вагон, бери да подключай). В нём вообще ничего не зашифровано, просто ключ есть число.

[Camaro Chevelle]

вот например кому интересно незатейливый класс на visual basic шифрует данные.
как пользоваться разбирайтесь сами

Option Explicit
Private mstrKey As String, mstrText As String
Public Property Let Keystring(strKey As String)
  mstrKey = strKey
  Initialize
End Property
Public Property Let Text(strtext As String)
  mstrText = strtext
End Property
Public Property Get Text() As String
  Text = mstrText
End Property
Public Sub DoXor()
Dim lngc As Long, intb As Long, lngn As Long
For lngn = 1 To Len(mstrText)
  lngc = Asc(Mid(mstrText, lngn, 1))
  intb = Int(Rnd * 256)
  Mid(mstrText, lngn, 1) = Chr(lngc Xor intb)
Next lngn
End Sub
Public Sub Stretch()
Dim lngc As Long, lngn As Long, lngj As Long, lngk As Long, lnga As Long, strb As String
lnga = Len(mstrText)
strb = Space(lnga + (lnga + 2) \ 3)
For lngn = 1 To lnga
  lngc = Asc(Mid(mstrText, lngn, 1))
  lngj = lngj + 1
  Mid(strb, lngj, 1) = Chr((lngc And 63) + 59)
  Select Case lngn Mod 3
    Case 1: lngk = lngk Or ((lngc \ 64) * 16)
    Case 2: lngk = lngk Or ((lngc \ 64) * 4)
    Case 0: lngk = lngk Or (lngc \ 64)
      lngj = lngj + 1
      Mid(strb, lngj, 1) = Chr(lngk + 59)
      lngk = 0
  End Select
Next lngn
If lnga Mod 3 Then
  lngj = lngj + 1
  Mid(strb, lngj, 1) = Chr(lngk + 59)
End If
mstrText = strb
End Sub
Public Sub Shrink()
Dim lngc As Long, lngd As Long, lnge As Long, lnga As Long, lngb As Long, _
  lngn As Long, lngj As Long, lngk As Long, strb As String
lnga = Len(mstrText)
lngb = lnga - 1 - (lnga - 1) \ 4
strb = Space(lngb)
For lngn = 1 To lngb
  lngj = lngj + 1
  lngc = Asc(Mid(mstrText, lngj, 1)) - 59
  Select Case lngn Mod 3
    Case 1
      lngk = lngk + 4
      If lngk > lnga Then lngk = lnga
      lnge = Asc(Mid(mstrText, lngk, 1)) - 59
      lngd = ((lnge \ 16) And 3) * 64
    Case 2
      lngd = ((lnge \ 4) And 3) * 64
    Case 0
      lngd = (lnge And 3) * 64
      lngj = lngj + 1
  End Select
  Mid(strb, lngn, 1) = Chr(lngc Or lngd)
Next lngn
mstrText = strb
End Sub
Private Sub Initialize()
Dim lngn As Long
Randomize Rnd(-1)
For lngn = 1 To Len(mstrKey)
  Randomize Rnd(-Rnd * Asc(Mid(mstrKey, lngn, 1)))
Next lngn
End Sub

[Dreamland]

Abstraction

Если вас не затруднит, то поделитесь пожалуйста с читающими, исходным содержимым этого файла, раз вы знаете как это делать. Если в итоге у вас получится, то научите меня-бота делать то же самое. =] Спасибо.

[Abstraction]

Читаю из файла число M - скажем, получается 48958528759232543875987249085234796 . Читаю из настроек Авиры число N - скажем, 84589375347859837575873579343948529 9342872. Возвожу M в 65537 степень по модулю N и сравниваю с числом X, приписанным пользователю при активации лицензии. Совпало - ура, ключ правильный. Не совпало - увы.

Количество подобных методов ограничено только полётом фантазии разработчика; лично я не берусь угадать, что было в данном конкретном случае.