gistfile1.pl

use strict;
use MIME::Base64;
use Crypt::OpenSSL::AES;

sub descifra_ip {
    my ($loc_3, $loc_4) = @_;
    my ($loc_5, $loc_6, $loc_7, $loc_8, $loc_9, $loc_10);
    
    $loc_3 = decode_base64($loc_3);
    $loc_4 = decode_base64($loc_4);
    
    $loc_4 = substr($loc_4, 0, 24).substr($loc_3, 0, 8);
    $loc_5 = substr($loc_3, 8, 16);
    
    $loc_9 = new Crypt::OpenSSL::AES($loc_4);
    $loc_10 = 8;
    
    while ($loc_10 < length($loc_3)) {
        $loc_5 = substr($loc_3, $loc_10, 16);
        $loc_5 = pack('a16', $loc_5);
        $loc_7 = substr($loc_5, 0, 16);
        
        $loc_5 = $loc_9->decrypt($loc_5);
        $loc_5 = my_xor($loc_5, $loc_6);
        
        $loc_6 = substr($loc_7, 0, 16);
        $loc_8 .= substr($loc_5, 0, 16);
        
        $loc_10 = $loc_10 + 16;
    }
    
    $loc_8;
}

sub my_xor {
    my ($str1, $str2) = @_;
    my $ret;
    
    for my $i (0..length($str1)) {
        $ret .= substr($str1, $i, 1) ^ substr($str2, $i, 1);
    }
    
    $ret;
}

print descifra_ip('93xJGQfvBp6tuYJogOfZoFgPRvvltNLaiZurZKTgi7QWHgTcIcWZCs5Q67Lu1Gv[Q4cfRnPczC5GhN[10bO09yjKYU2sBKR9FAaxuJQVfuEYDs4IJPSGy[5b8Fg1sH]wHaTI3BlyzaQ=', 'DKAE2jDQUpC4AvQgqTDRaniTBQCiMrDE1aNUBIuSnWCg');

print "---";

print descifra_ip('qDWGIQ7rYc6wouq2adJXAW1DqZbJTc463Iv48om1TtrmQmig3truDaa[D71XoTcGSK34pSA7[VgQTuqECeE8jW8u9IJZeR4wO39ys6L[L[TWlnePO8FsJ15Zl2RcssDze0[o99JePKc8jaJShReYiBj2RC9XbVuKmPkvLLBw0l7G7gYrZZAZhL[rKsT3XtjwabNPu5eEsWeOL0txaGuckU[rx54T8nABVcKGcooa0c3ULJIEc0YfbeyUYBt5PrRPu1FjjUZcW]gHlAqT3c]icQAyRjvSAmhdMau5d4M2XZl[R7XCz12iFhdp6eW3Y6slCuMjSjKbJC9J6udW7yHkf64I6iXCzRVR[PAOxFAq44Nj5woPAqgGkQ==', 'DKAE2jDQUpC4AvQgqTDRaniTBQCiMrDE1aNUBIuSnWCg');