IIS anti-theft chain cracked picture anti-theft chain code asp/php test passed

Source: Internet
Author: User
PHP version of the code is relatively simple:

Copy the Code code as follows:


$p =$_get[' P '];
$pics =file ($p);
for ($i =0; $i < count ($pics); $i + +)
{
echo $pics [$i];
}
?>


How to use: Save files to i.php and upload them to the root directory
Can not be outside the chain image address to change to HTTP.//your domain name p.php?p= image address
ASP version, the use of more than the Internet

Copy the Code code as follows:


<%
Dim URL, body, mycache
url = request.querystring ("url")
Set Mycache = new cache
Mycache.name = "Picindex" &url
If Mycache.valid Then
BODY = Mycache.value
Else
BODY = getwebdata (URL)
Mycache.add Body,dateadd ("D", 1,now)
End If
If Err.Number = 0 Then
Response.Charset = "UTF-8"
Response.ContentType = "Application/octet-stream"
Response.BinaryWrite Body
Response.Flush
Else
WScript.Echo Err.Description
End if
' Access to data
Public Function Getwebdata (ByVal strurl)
Dim Curlpath
Curlpath = Mid (Strurl,1,instr (8,strurl, "/"))
Dim Retrieval
Set retrieval = Server.CreateObject ("Microsoft.XMLHTTP")
With retrieval
. Open "Get", strURL, False, "", ""
. setRequestHeader "Referer", Curlpath
. Send
Getwebdata =. Responsebody
End with
Set retrieval = Nothing
End Function
' Cache class
Class Cache
Private obj ' cache content
Private Expiretime ' expiry time
Private expiretimename ' expiry time application name
Private CacheName ' cache content application name
Private path ' URL
Private Sub Class_Initialize ()
Path=request.servervariables ("url")
Path=left (Path,instrrev (Path, "/"))
End Sub
Private Sub Class_Terminate ()
End Sub
Public Property Get Blempty
' Is empty
If IsEmpty (obj) Then
Blempty=true
Else
Blempty=false
End If
End Property
Public Property Get Valid
' is available (expired)
If IsEmpty (obj) or not isDate (expiretime) Then
Valid=false
ElseIf CDate (Expiretime) Valid=false
Else
Valid=true
End If
End Property
Public Property Let name (str)
' Set the cache name
CACHENAME=STR & Path
Obj=application (CacheName)
EXPIRETIMENAME=STR & "Expires" & Path
Expiretime=application (Expiretimename)
End Property
Public Property Let expires (tm)
' Reset Expiration Time
Expiretime=tm
Application.Lock
Application (Expiretimename) =expiretime
Application.UnLock
End Property
Public Sub Add (Var,expire)
' Assigned value
If IsEmpty (Var) or not isDate (expire) Then
Exit Sub
End If
Obj=var
Expiretime=expire
Application.Lock
Application (CacheName) =obj
Application (Expiretimename) =expiretime
Application.UnLock
End Sub
Public Property Get Value
' Take value
If IsEmpty (obj) or not isDate (expiretime) Then
Value=null
ElseIf CDate (Expiretime)
Value=null
Else
Value=obj
End If
End Property
Public Sub Makeempty ()
' Release application
Application.Lock
Application (CacheName) =empty
Application (Expiretimename) =empty
Application.UnLock
Obj=empty
Expiretime=empty
End Sub
Public function equal (VAR2)
' Comparison
If TypeName (obj) <>typename (var2) Then
Equal=false
ElseIf TypeName (obj) = "Object" Then
If obj is var2 then
Equal=true
Else
Equal=false
End If
ElseIf TypeName (obj) = "Variant ()" Then
If join (obj, "^") =join (var2, "^") Then
Equal=true
Else
Equal=false
End If
Else
If Obj=var2 Then
Equal=true
Else
Equal=false
End If
End If
End Function
End Class
%>


How to use: Save files to i.asp and upload them to the root directory
Can not be outside the chain image address to change to HTTP.//your domain name/p.asp?url= image address
For the convenience of everyone to use, copy the code, prone to errors. Special Package Download

The above describes the IIS anti-theft chain crack picture anti-theft chain code asp/php test passed, including the IIS anti-theft chain content, I hope to be interested in PHP tutorial friends helpful.

  • Contact Us

    The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

    If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

    A Free Trial That Lets You Build Big!

    Start building with 50+ products and up to 12 months usage for Elastic Compute Service

    • Sales Support

      1 on 1 presale consultation

    • After-Sales Support

      24/7 Technical Support 6 Free Tickets per Quarter Faster Response

    • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.