#!/usr/bin/perl
open(FILE, "<333.txt");
my $usr, my $pwd;
while(my $file = <FILE>)
{
    if($file =~ /.*pass.*=(.+)/i) { $pwd = $1; }
    elsif($file =~ /(login.*=|user.*=)(.+)/i) { $usr = $+; }
    elsif($file =~ /\*/) { print $usr, ";", $pwd, "\n"; }
}
close FILE;

import string
#str='string'
a=-1
f = open ('c:\\1.txt', 'r')
#f1 = open ('c:\\result.txt', 'a')
x = f.readlines()
for l in x:
    a+=1
    if l.startswith('http'):
        link=x[a]
        #link[7:link.find(".ru/")+3]
        usr=x[a+1]
        pwd=x[a+2]
        pwd=pwd.strip()
        usr=usr.strip()
        key, user = usr.split('=', 1)
        key1, passw = pwd.split('=', 1)
        if  "@" not in user:
            user=user+"@"+link[7:link.find(".ru/")+3]
        print (user+";"+passw)
 #print (cl[found:foundEnd])
 #f1.write(cl[found:foundEnd])
 #f1.write("""
 #""")
f.close
#f1.close

lol1@lol.ru;parol
lol2@site2.ru;parol
lol3@site3.ru;parol
lol@site4.ru;parol

#!/usr/bin/perl
open(FILE, "<333.txt");
while(my $file = <FILE>)
{
    $file =~ /.+d=(.+)\n*|.+=(.+)/; if($2) { print $2; } if($1) { print ';', $1, "\n"; }
}
close FILE;