Генератор

[warlok]

Здраствуйте уважаемы кодеры!Я новичёк в кодинге много незнаю...
У меня такая кто могу бы выложить сюда сурсы небольшого генератора.
Функции генера : есть пару форм для ввода текста который должен вставляться в какой либо скрипт.
Ток на делфи плз,надеюсь на вас и жду помоши.

[Карась]

Здраствуйте уважаемы кодеры!

Привет.

У меня такая кто могу бы выложить сюда сурсы небольшого генератора.

То что в конце не стоит вопросительный знак это ещё цветочки.... Начало предложения вообще не компилируется....

Функции генера : есть пару форм для ввода текста который должен вставляться в какой либо скрипт.

По какой причине тогда это называется генератор?
И что за формы....

Ток на делфи плз,надеюсь на вас и жду помоши.

Опиши нормально вопрос. Я только понял что ктото кудато чтото должен вставить...

[warlok]

Например ето окно программы :

Теперь мы вводим в поле логин к примеру '1' а в поле пароль '2'
После чего программа вставляет значения 1 и 2 в скрипт (неважно какой) к примеру после чего появляеться файл с расширением vbs в нутри которого :
.....
Login:1
Pass:2
.......
Надеюсь теперь я все обьяснил понятно)

[Veiron]

Да пожалуйста

procedure TReg_form.BitBtn1Click(Sender: TObject);
var
   f : TextFile;
begin

if Edit1.Text <> '' then begin

AssignFile(f,'license.vbs');

Rewrite(f);
Writeln(f, Edit1.Text);
Append(f);
Writeln(f, MaskEdit1.Text);

CloseFile(f);

MessageDlg('Сохранено',mtInformation,[mbOK],0);
BitBtn2.Click;
end else begin

MessageDlg('Вы не ввели регистрационное имя!',mtError,[mbOK],0);

end;

end;

Только по моему это не генератор, а какой то создатель ключей если я правильно понял... А алгоритм кодировки думаю сами догадаетесь теми же умножениями сложениями и прочем, для начала сойдет...