Кодировка данных.

[Skolos]

Всем доброе время суток. По ходу учебы возник вопрос. У препода есть програма тестер. Вопросы в нем записуются в файле с расширением *.zv Возможно ктото сталкивался с таким расширением? Или же, напишите пожалуйста какие есть известные методы шифрования. Хочу попробовать разкодировать даный файл.
P.S. Даный тестер был дипломной работой одного бывшего студента.

[Camaro Chevelle]

один из моих любимых алгоритмов

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

[Skolos]

Спасибо Вам большое!!! Буду разбирать. Я знаю Си/С++. Но с таким языком не сталкивался. Попытаюсь перевести на си.

[Skolos]

Сообщение от Camaro Chevelle

один из моих любимых алгоритмов

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

А как называется даный алгоритм???

[Camaro Chevelle]

я ответил в ЛС

[Serge_Bliznykov]

Спасибо Вам большое!!! Буду разбирать.

Skolos, О! Святая простота...

p.s. Вы хоть понимаете, что вероятность, скажем, угадать 6 шаров из 36 в Русском Лото на порядок больше, чем так, заочно, по расширению угадать, что находится внутри файла и чем оно зашифровано!

(я уже молчу о том, что существует множество стойких криптоалгоритмов, для которых, даже точно зная алгоритм - невозможно получить из криптограммы исходный текст без знания ключа)

[Camaro Chevelle]

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

[Skolos]

Решение нашел. Всем кто откликнулся спасибо.