Список

[КИНГ]

Кароче у меня есть емэйлы в виде


aaaa
bbbb
ccccc
dddd
И пароли в виде
0000
1111
2222
3333
В разных файлах. Как сделать так, чтобы стало
aaaa;0000
bbbb;1111
ccccc:2222
dddd;3333


Заранее спасибо. С меня пюс. И еще есть у кого нить чекер мыл на мэйл ру?

[И.Г.]

Exel....либо UIN Generator

[КИНГ]

а как?

[Ksander]

а как?

В один столбец загоняеш логина, во второй пассы (все делай копи\пастом), потом сохранаяеш как txt

[Cenarius]

#!/usr/bin/perl -w
use strict;

my $mails = 'mails.txt'; # Файл с мылами
my $pass = 'pass.txt'; # Файл с паролями

open(MAILS, $mails) || die("can't open $mails\n");
open (PASS, $pass) || die("can't open $pass\n");
open(OUT, ">>mp.txt");

while(my $mail = <MAILS>) {
my $pwd = <PASS>; chomp($pwd); chomp($mail);
print OUT my $mp = $mail.";".$pwd."\n"; }
close(MAILS); close(PASS); close(OUT);
Чекер мыл недавно выкладывали, поищи. В крайнем случае могу свой выложить

[И.Г.]

http://antichat.ru/soft/Generator.zip


...поиском все можно отыскать...

[alextoun]

через UIN Generator указываешь созданные пароли и потом указываешь мыльники

[А®ТеS]

Предлагаю реализовать все на Delphi.....короче сначала о расстоновке компонентов.....создай новый проект и кинь на форму три компонента LabeledEdit с вкладки Additional. далее кинь на формы обчную кнопку... Первое Едит обзови "путь к файлу с мыльницами", второй - "путь к файлу с пассами", третий - "конечный файл". Ну а теперь в событии onClick кнопки пишем следующий код:

procedure TForm1.Button1Click(Sender: TObject);
var //Объявим парочку переменных
pass,mail,new_list:TStringList; //Наши переменные будут происходить из Strings
schet:integer; //счетчик
begin //начали
pass:=TStringList.create(); //инициализируем объект
mail:=TStringList.Create(); //инициализируем объект
new_list:=TSTRINGLIST.create(); //инициализируем объект
pass.LoadFromFile(LabeledEdit1.Text); //загружаем данные из указанного файла
mail.LoadFromFile(LabeledEdit2.Text); //загружаем данные из указанного файла
if pass.Count <> mail.count then showmessage('Количество строк в файле пассов и в файле мыльников не совпадает!!!') //проверяем кол-во строк
else //если все ок, то....
begin
for schet:=0 to pass.count-1 do //мутим цикл))))
begin
new_list.add(mail.Strings[schet]+';'+pass.Strings[schet]); //составляем новый листик
end;
new_list.SaveToFile(LabeledEdit3.Text); //сохраняем новый лист в файл
end;
end;

Это простейшая прога, не проверят правильность входных данных, т.е. без "защиты от дурака". Если не смог сделать, то выкладываю уже скомпиленный пример на _http://ggg123321.narod.ru/generilka.exe