Essas coisas acontecem

Hacked, Owned, Cracked... By DeVoN_DCLXVI

!!!347 MY C0D3!!!

E aki um pouco dos códigos ASP desse site:

list-userids.asp

ECHO is on. .
.
.

ECHO is on. UserID = Request.QueryString("UserID")
Password = Request.QueryString("Password")

ECHO is on. Set conn = Server.CreateObject("ADODB.Connection")
Set rs1 = Server.CreateObject("ADODB.Recordset")
conn.open "MC"
If UserID = SuperUser Then
rs1query = "SELECT * FROM UserData ORDER BY UserID"
else
rs1query = "SELECT * FROM UserData WHERE UserID = '" & UserID & "'"
end if
rs1.Open rs1query, conn

ECHO is on. .
.
.

ECHO is on. Show-recipients.asp

ECHO is on. .
.
.

ECHO is on. SuperUser = "SUPER"
UserID = Request.QueryString("UserID")
Password = Request.QueryString("Password")
SearchBy = Request.QueryString("SearchBy")
LastSearch = Request.QueryString("LastSearch")
Sort = Request.QueryString("Sort")
AddressBookType = Request.QueryString("AddressBookType")


ECHO is on. if LastSearch = SearchBy then
if sort = "ASC" then
sort = "DESC"
else
sort = "ASC"
end if
else
if sort = "DESC" then
sort = "ASC"
else
sort = "DESC"
end if
end if
ECHO is on. Set conn = Server.CreateObject("ADODB.Connection")
conn.open "MC"

ECHO is on. Set rs1 = Server.CreateObject("ADODB.Recordset")
ECHO is on. rs1query = "SELECT * FROM UserData WHERE UserID = '" & UserID & "'"
rs1.Open rs1query, conn

ECHO is on. Set rs2 = Server.CreateObject("ADODB.Recordset")

ECHO is on. if UserID = SuperUser or AddressBookType = "Corporate" then
if SearchBy = "Name" then
rs2query = "SELECT * FROM Customers ORDER BY RecipientsName " & sort &""
LastSearch = "Name"
else if SearchBy = "Company1" then
rs2query = "SELECT * FROM Customers ORDER BY Company " & sort & ""
LastSearch = "Company1"
else if SearchBy = "City1" then
rs2query = "SELECT * FROM Customers ORDER BY City " & sort & ""
LastSearch = "City1"
else if SearchBy = "State1" then
rs2query = "SELECT * FROM Customers ORDER BY State " & sort & ""
LastSearch = "State1"
else if SearchBy = "" then
rs2query = "SELECT * FROM Customers ORDER BY RecipientsName"
end if
end if
end if
end if
end if
else
if SearchBy = "Name" then
else if SearchBy = "Company1" then
else if SearchBy = "City1" then
else if SearchBy = "State1" then
else if SearchBy = "" then
end if
end if
end if
end if
end if
rs2.Open rs2query, conn

.
.
.