програма тестирования Delphi

[darbotash]

Здравствуйте!Есть исходник программы на Delphi для тестирования. Но проблема в том, что подгружаемая база с вопросами закодирована при помощи дополнения для шифрования, помогите разобраться как можно раскодировать!
исходник:

[Kix.IV]

(Почему-то файл не грузиться)
Всё очень просто. Тебе надо либо знать каким образом шифруют эти "дополнения для шифрования" и написать свой дешифратор, либо использовать готовый модуль для расшифровки(если таковой имеется).
Если ты не знаешь метод шифровки и нету модуля, то нужно самому писать программу для создания и шифрования баз.

[darbotash]

Сообщение от Kix.IV

(Почему-то файл не грузиться)
Всё очень просто. Тебе надо либо знать каким образом шифруют эти "дополнения для шифрования" и написать свой дешифратор, либо использовать готовый модуль для расшифровки(если таковой имеется).
Если ты не знаешь метод шифровки и нету модуля, то нужно самому писать программу для создания и шифрования баз.

Шифрование идет с помощью функций спец модуля (приложен) на ключе 30000;

[Kix.IV]

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

[BDA]

Так чем же так ценна эта база вопросов?
Делов-то на 5 минут.
(см. вложение)

[darbotash]

Сообщение от Kix.IV

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

Да, но ответы мне не важны, я хочю знать как можно заменить те тесты другими......

[BDA]

Вот накатал примерчик

{$APPTYPE CONSOLE}

uses
  SysUtils, uEncrypt;

var
  filename, tmp: string;
  key: word;
  f1, f2: text;

begin
  if paramcount < 2 then
  begin
    writeln('This program create tests for testing program :)');
    writeln('HOW USE');
    writeln('You must run this program with 2 parameters:');
    writeln('1) path for question file (in txt format)');
    writeln('2) number for encrypt questions (use 30000)');
    writeln;
    writeln('Structure from question file:');
    writeln('First line - name of test');
    writeln('Second line - information about test:');
    writeln('  Count of all questions on this file)');
    writeln('    Vertical line "|"');
    writeln('  Count of questions for each testing (<=count of all questions on this file)');
    writeln('    Space " "');
    writeln('  Password for start test');
    writeln('    Space " "');
    writeln('  Time for each question in format MM:SS (minutes, seconds)');
    writeln('Next lines - questions, where each question on its own line');
    writeln('Each question have 4 variants of answer');
    writeln('After each question and variants of answer write number of right answer');
    writeln;
    writeln('EXAMPLE:');
    writeln('What you know about computers');
    writeln('1|1 user 0:30');
    writeln('How decrypt PC?');
    writeln('Personal Computer');
    writeln('Powerfull Calculator');
    writeln('Perfect Calibrated');
    writeln('Portable Center');
    writeln('1');
    readln;
  end
  else
  begin
    filename := paramstr(1);
    key := strtoint(paramstr(2));
    assignfile(f1, filename);
    filename := copy(filename, 1, length(filename) - 3) + 'tes';
    assignfile(f2, filename);
    writeln('Start crypting...');
    reset(f1);
    rewrite(f2);
    readln(f1, tmp);
    writeln('Name of test: ', tmp);
    writeln(f2, tmp);
    readln(f1, tmp);
    writeln('Information about test: ', tmp);
    writeln(f2, encrypt(tmp, key));
    while not eof(f1) do
    begin
      readln(f1, tmp);
      writeln(f2, encrypt(tmp, key));
    end;
    writeln('End crypting');
    writeln('File with crypted test: ', filename);
    closefile(f1);
    closefile(f2);
    readln;
  end;
end.