ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#!/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);

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;