15.04.2010, 14:24
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Сообщение от winlogon.exe
есть например текст:
dfwegtrhfgerg
nfgerggfhgergfh
ergegfgeffhgfh
efgehrgefgdfj5
56juklo67u45rg
gjm6hnm,n65h
нужно сделать чтобы после каждого логина вставлялся текст напрмиер "@ololo.ru" и в конце ;'+password+'
примерный результат:
dfwegtrhfgerg@ololo.ru;123
nfgerggfhgergfh@ololo.ru;555
ergegfgeffhgfh@ololo.ru;43ygh4
efgehrgefgdfj5@ololo.ru;34yger
56juklo67u45rg@ololo.ru;bb654f
gjm6hnm,n65h@ololo.ru;54yh7
подскажите как сделать на delphi))
PHP код:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
n:string;
password:string;
begin
password:='ferfew';
assign(output,'output.txt');
reset(input,'input.txt');
while not eof(input) do
begin
readln(input,n);
append(output);
writeln(n,'@ololo.ru;',password);
close(output);
end;
close(input);
end.
пасс сделаешь рандомно... а так все норм робит
Последний раз редактировалось EndLeSSDre@M; 15.04.2010 в 14:28..
|
|
|