ASP sky thieves

Program name: ASP sky thief
Program type: thieves, not very elegant ~
Latest Version: No version, because I don't update it any more. If you have any questions, change it.
Program Introduction: this is nothing to say ~ Everyone knows
Author: Fei Ge (this ID is blocked, Ah, wrong)
: Now many people already have ~ You don't have to ask me again!

The following is what I wrote to a friend. I don't know how to change this thief. Let's take a look at it ~
In fact, it's easy to change another thief.

Haha ~

Function Description
========================================================== ======================================
Instr ()
The position of the first occurrence of a character or string in another string.

Expression Instr ([start,] strToBeSearched, strSearchFor [, compare])

Allowed data type: Start is the Start value of the search. strToBeSearched accepts the string strSearchFor to be searched. compare comparison method (see ASP constant for details)

Instance: <%

StrText = "This is a test !! "

Pos = Instr (strText, "")

Response. write pos

%>

Return result: 9

========================================================== ======================================
Mid ()

The function returns a string of a specific length (starting from start with length ).

Expression Mid (string, start [, length])

Instance: <%

StrTest = "This is a test! Today is Monday ."

Response. write Mid (strTest, 17, 5)

%>

Returned result: Today
========================================================== ======================================
Abs (numerical value)

Absolute value. The absolute value of a number is its positive value. The absolute value of a null string. Uninitialized variable, which is absolutely 0

Instance: <%
Response. write ABS (-2000)
%>

Returned result: 2000
========================================================== ======================================
Replace (string expression, findnreplacewith [, start [, count [, compare])

Replace a character string with some characters. Search for the original string to be replaced (find). If it is found, it is replaced with the new string (replacewith ).
Find: the original string to be replaced.
Replacewith: The replaced word.
Start: Search for replacement from the first word. If not specified, search for replacement from the first word.
Count: the number of replacement times. If not specified, all searched strings replace character strings.
Compare: The comparison method. compare = 0 indicates the binary comparison method, compare = 1 Table text comparison method, and compare = 2 table depends on the Data Type of the comparison, if compare is omitted, the default binary comparison method is used.

Instance: <%
Response. write Replace ("ABCD123ABC", "AB", "AB ")
%>
Returned result: abCD123abC
========================================================== ======================================

A process is written in the program.
Below is the source code

<%

'Sourcecode _ 0 is the total data obtained from the page.
''Sourcecode _ 1 is the code that captures the starting position required for the content'
''Sourcecode _ 2 is the generation of the end location required to intercept the content?
''Sourcecode _ 3 is to intercept unnecessary content in the code that requires the content.
Function GetSourceCode (SourceCode_0, SourceCode_1, SourceCode_2, SourceCode_3)
Between = instr (SourceCode_0, SourceCode_1)-instr (SourceCode_0, SourceCode_2)
First = instr (SourceCode_0, SourceCode_1)
GetSourceCode = Mid (SourceCode_0, first, abs ())
GetSourceCode = replace (GetSourceCode, SourceCode_3 ,"")
End function

%>

This call

<%
SourceCode = "external"
''Here is to define a string, which will be used later. In the actual thief program, this variable is the source code of the software page obtained.

Response. write GetSourceCode (SourceCode, "1a2b", "5v1wx6", "1a2 ")

%>

Return result: b3c4d5e6f7g8h9i1j0k1l1m1n2o1p3qr1s4t1u

========================================================== ======================================

In addition, data must be written to the database after it is obtained.

Set rs = server. CreateObject ("ADODB. RecordSet ")
Rs. open "select * from downtype", conn, 3, 2
Rs. addnew' the write record must have this sentence
Rs ("tname") = SoftClass_1 'rs ("tname") is a field in the downtype of the table in the database. The field name is tname, that is, the place where the content is to be written, softClass_1: This is a variable defined previously.
Rs ("tj") = 1
Rs ("tn") = rsb ("id ")
Rs. Update' write record is also required

========================================================== ======================================

Start Doing Business

Open softwrite. asp and find the following sentence:

<! --- <Textarea name = "textarea" cols = "100" rows = 20> <% 'response. write SourceCode %> </textarea> <BR> --!>

Change
<Textarea name = "textarea" cols = "100" rows = 20> <% response. write SourceCode %> </textarea> <BR>

In this way, we can see some page information that the program obtains in real time from the sky software station.

Of course, the data output from the text box is already intercepted once. If you want to retrieve data from the cloud software station, you must first modify it, softwirte. code in asp from line 91 to line 94

Betw = instr (SourceCode, "<td vAlign = top width = 540>")-instr (SourceCode, "* </B> to achieve the fastest download speed ")
First = instr (SourceCode, "<td vAlign = top width = 540> ")
SourceCode = Mid (SourceCode, first, abs (betw ))
SourceCode = replace (SourceCode, "http://count.skycn.com/softdown.php? Id = "& Id &" & url = ","")

That's all. There are only three functions used here. instr mid replace has already been described in the previous sections. It is the most basic application. If you cannot understand the program here, let's take a look at the previous sections. The descriptions of these functions are clear and the code here will be clear.

The function of these codes is to retrieve a part of the page information and delete a useless piece of information.
In addition, the page information captured here is also used by the background program. For example, the name of a software is obtained from the information already intercepted here, and the corresponding information is written to the database.

Of course, if you already have IIS on your computer, you can COPY the program to see the effect.

The first line in softwrite. asp is the actual interception of software-related information. If you want to change it to the interception of other content, you must also make corresponding changes here.

Dim SoftName, SoftSize, SoftLan
''The above sentence defines some variables for convenient calling.

SoftName = GetSourceCode (SourceCode, "<B> <font color = '#004FC6 'size = '3'> ", "</font> </B> </td> </tr>", "<B> <font color = '#004FC6 'size = '3'> ")
''Refers to the process of intercepting the software name and using GetSourceCode (). If you do not understand it, refer to the previous description.

...

From 131 rows to 159 rows, all the software-related information is intercepted, and only the GetSourceCode () process is used.

Finally, all the software information is intercepted and stored in the corresponding variables. The rest is the part written into the database, if your application only steals the software information from the download site to the cloud, you can use it without changing the software information. Of course, it should be noted that, all previously defined variables cannot be changed to other variables. If changed, the subsequent variables must be changed accordingly.

I am not clear about writing too much content into the database at once. I have already explained it briefly at the beginning. You can go to some books to change the content, so learning ASP will be faster.

That's all. If you don't understand anything else, we will contact you via QQ again. It's coming soon. Let's talk about it here and wish you a happy New Year! Haha ~