Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   E-Mail (https://forum.antichat.xyz/forumdisplay.php?f=14)
-   -   Список (https://forum.antichat.xyz/showthread.php?t=28795)

КИНГ 09.12.2006 21:42
Список
 
Кароче у меня есть емэйлы в виде


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


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

И.Г. 09.12.2006 21:48
Exel....либо UIN Generator

КИНГ 09.12.2006 21:50
а как?

Ksander 09.12.2006 21:58
Цитата:
Сообщение от КИНГ
а как?
В один столбец загоняеш логина, во второй пассы (все делай копи\пастом), потом сохранаяеш как txt

Cenarius 09.12.2006 21:59
Код:
#!/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);
Чекер мыл недавно выкладывали, поищи. В крайнем случае могу свой выложить

И.Г. 09.12.2006 22:00
Цитата:
http://antichat.ru/soft/Generator.zip

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

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

А®ТеS 10.12.2006 02:38
Предлагаю реализовать все на 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


Время: 08:55