附加码问题,请各位高手指点!

as2001 2003-08-22 08:36:06
请问哪里有附加码的原理、原代码等下载,或者有没有高手可以指点一下小弟!谢谢!
...全文
40 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
shines77 2003-08-23
  • 打赏
  • 举报
回复
原来的num.asp定义的字体很难看,我这里提供一套更好看的字体,替换原来的num.asp文件即可,这里分白底黑字和黑底白字2种:

num.asp

<%
Dim a(10,10)

Dim digits(10)

' ### 白底黑字 ###
digits(0) = "3c 66 66 66 66 66 66 66 66 3c" ' # 0
digits(1) = "30 38 30 30 30 30 30 30 30 30" ' # 1
digits(2) = "3c 66 60 60 30 18 0c 06 06 7e" ' # 2
digits(3) = "3c 66 60 60 38 60 60 60 66 3c" ' # 3
digits(4) = "30 30 38 38 34 34 32 7e 30 78" ' # 4
digits(5) = "7e 06 06 06 3e 60 60 60 66 3c" ' # 5
digits(6) = "38 0c 06 06 3e 66 66 66 66 3c" ' # 6
digits(7) = "7e 66 60 60 30 30 18 18 0c 0c" ' # 7
digits(8) = "3c 66 66 66 3c 66 66 66 66 3c" ' # 8
digits(9) = "3c 66 66 66 66 7c 60 60 30 1c" ' # 9

dim numX, posY

for numX=0 to 9
for posY=1 to 10
a(numX, posY)="0x" & mid(digits(numX), (posY-1)*3+1, 2)
next
next
%>

----------------------------------------------------------
num.asp

<%
Dim a(10,10)

Dim digits(10)

' ### 黑底白字 ###
digits(0) = "c3 99 99 99 99 99 99 99 99 c3" ' # 0
digits(1) = "cf c7 cf cf cf cf cf cf cf c7" ' # 1
digits(2) = "c3 99 9f 9f cf e7 f3 f9 f9 81" ' # 2
digits(3) = "c3 99 9f 9f c7 9f 9f 9f 99 c3" ' # 3
digits(4) = "cf cf c7 c7 cb cb cd 81 cf 87" ' # 4
digits(5) = "81 f9 f9 f9 c1 9f 9f 9f 99 c3" ' # 5
digits(6) = "c7 f3 f9 f9 c1 99 99 99 99 c3" ' # 6
digits(7) = "81 99 9f 9f cf cf e7 e7 f3 f3" ' # 7
digits(8) = "c3 99 99 99 c3 99 99 99 99 c3" ' # 8
digits(9) = "c3 99 99 99 99 83 9f 9f cf e3" ' # 9

dim numX, posY

for numX=0 to 9
for posY=1 to 10
a(numX, posY)="0x" & mid(digits(numX), (posY-1)*3+1, 2)
next
next
%>
pazll 2003-08-23
  • 打赏
  • 举报
回复
好,!谢谢大家,这也是我想知道的!~~~呵呵
shines77 2003-08-23
  • 打赏
  • 举报
回复
up
lijunjiejava 2003-08-23
  • 打赏
  • 举报
回复
附加码的作用是防止别人攻击。防止暴力破解
coffee_cn 2003-08-23
  • 打赏
  • 举报
回复

就是这个
我已经用他做过东西了
http://www.chunghong.com/hosp9th_new/login.asp
possible_Y 2003-08-23
  • 打赏
  • 举报
回复
一共4个页面:form.asp; chk.asp; num.asp; count.asp
得到一个随即数字。加密!
解密后成成XBM图片
利用session 判断

form.asp


<%
Private Function EncryptString(strString)
Dim CharHexSet, intStringLen, strTemp, strRAW, i, intKey, intOffSet
Randomize Timer

intKey = Round((RND * 1000000) + 1000000) '##### Key Bitsize
intOffSet = Round((RND * 1000000) + 1000000) '##### KeyOffSet Bitsize

If IsNull(strString) = False Then
strRAW = strString
intStringLen = Len(strRAW)

For i = 0 to intStringLen - 1
strTemp = Left(strRAW, 1)
strRAW = Right(strRAW, Len(strRAW) - 1)
CharHexSet = CharHexSet & Hex(Asc(strTemp) * intKey)& Hex(intKey)
Next

EncryptString = CharHexSet & "|" & Hex(intOffSet + intKey) & "|" & Hex(intOffSet)
Else
EncryptString = ""
End If
End Function




Private Function DeCryptString(strCryptString)

Dim strRAW, arHexCharSet, i, intKey, intOffSet, strRawKey, strHexCrypData


strRawKey = Right(strCryptString, Len(strCryptString) - InStr(strCryptString, "|"))
intOffSet = Right(strRawKey, Len(strRawKey) - InStr(strRawKey,"|"))
intKey = HexConv(Left(strRawKey, InStr(strRawKey, "|") - 1)) - HexConv(intOffSet)
strHexCrypData = Left(strCryptString, Len(strCryptString) - (Len(strRawKey) + 1))


arHexCharSet = Split(strHexCrypData, Hex(intKey))

For i=0 to UBound(arHexCharSet)
strRAW = strRAW & Chr(HexConv(arHexCharSet(i))/intKey)
Next

DeCryptString = strRAW
End Function



Private Function HexConv(hexVar)
Dim hxx, hxx_var, multiply
IF hexVar <> "" THEN
hexVar = UCASE(hexVar)
hexVar = StrReverse(hexVar)
DIM hx()
REDIM hx(LEN(hexVar))
hxx = 0
hxx_var = 0
FOR hxx = 1 TO LEN(hexVar)
IF multiply = "" THEN multiply = 1
hx(hxx) = mid(hexVar,hxx,1)
hxx_var = (get_hxno(hx(hxx)) * multiply) + hxx_var
multiply = (multiply * 16)
NEXT
hexVar = hxx_var
HexConv = hexVar
END IF
End Function

Private Function get_hxno(ghx)
If ghx = "A" Then
ghx = 10
ElseIf ghx = "B" Then
ghx = 11
ElseIf ghx = "C" Then
ghx = 12
ElseIf ghx = "D" Then
ghx = 13
ElseIf ghx = "E" Then
ghx = 14
ElseIf ghx = "F" Then
ghx = 15
End If
get_hxno = ghx
End Function


%>


<%
randomize
num = int(7999*rnd+2000) '计数器的值
num2 = EncryptString(num)
session("pwdt")=num
%>
<form action="chk.asp" method=post>
请输入验证码: <input type="text" name="pwds">
<img src="count.asp?sksid=<%=num2%>"> <input type=submit value=提交>
</form>


chk.asp
<%
if trim(request.form("pwds"))<>trim(session("pwdt")) then
%>
输入错误: 应该为:<%=session("pwdt")%>,可你输入的是:<%=request.form("pwds")%>
<%
else
%>
输入正确
<%end if%>

count.asp

<!--#include file="num.asp"-->

<%

Private Function EncryptString(strString)

Dim CharHexSet, intStringLen, strTemp, strRAW, i, intKey, intOffSet
Randomize Timer

intKey = Round((RND * 1000000) + 1000000) '##### Key Bitsize
intOffSet = Round((RND * 1000000) + 1000000) '##### KeyOffSet Bitsize

If IsNull(strString) = False Then
strRAW = strString
intStringLen = Len(strRAW)

For i = 0 to intStringLen - 1
strTemp = Left(strRAW, 1)
strRAW = Right(strRAW, Len(strRAW) - 1)
CharHexSet = CharHexSet & Hex(Asc(strTemp) * intKey)& Hex(intKey)
Next

EncryptString = CharHexSet & "|" & Hex(intOffSet + intKey) & "|" & Hex(intOffSet)
Else
EncryptString = ""
End If
End Function




Private Function DeCryptString(strCryptString)

Dim strRAW, arHexCharSet, i, intKey, intOffSet, strRawKey, strHexCrypData


strRawKey = Right(strCryptString, Len(strCryptString) - InStr(strCryptString, "|"))
intOffSet = Right(strRawKey, Len(strRawKey) - InStr(strRawKey,"|"))
intKey = HexConv(Left(strRawKey, InStr(strRawKey, "|") - 1)) - HexConv(intOffSet)
strHexCrypData = Left(strCryptString, Len(strCryptString) - (Len(strRawKey) + 1))


arHexCharSet = Split(strHexCrypData, Hex(intKey))

For i=0 to UBound(arHexCharSet)
strRAW = strRAW & Chr(HexConv(arHexCharSet(i))/intKey)
Next

DeCryptString = strRAW
End Function



Private Function HexConv(hexVar)
Dim hxx, hxx_var, multiply
IF hexVar <> "" THEN
hexVar = UCASE(hexVar)
hexVar = StrReverse(hexVar)
DIM hx()
REDIM hx(LEN(hexVar))
hxx = 0
hxx_var = 0
FOR hxx = 1 TO LEN(hexVar)
IF multiply = "" THEN multiply = 1
hx(hxx) = mid(hexVar,hxx,1)
hxx_var = (get_hxno(hx(hxx)) * multiply) + hxx_var
multiply = (multiply * 16)
NEXT
hexVar = hxx_var
HexConv = hexVar
END IF
End Function

Private Function get_hxno(ghx)
If ghx = "A" Then
ghx = 10
ElseIf ghx = "B" Then
ghx = 11
ElseIf ghx = "C" Then
ghx = 12
ElseIf ghx = "D" Then
ghx = 13
ElseIf ghx = "E" Then
ghx = 14
ElseIf ghx = "F" Then
ghx = 15
End If
get_hxno = ghx
End Function


%>


<%
Dim Image
Dim Width, Height
Dim num
Dim digtal
Dim Length
Dim sort
Length = 4 '自定计数器长度

Redim sort( Length )

num=cint(DeCryptString(request.querystring("sksid")))
digital = ""
For I = 1 To Length -Len( num ) '补0
digital = digital & "0"
Next
For I = 1 To Len( num )
digital = digital & Mid( num, I, 1 )
Next
For I = 1 To Len( digital )
sort(I) = Mid( digital, I, 1 )
Next
Width = 8 * Len( digital ) '图像的宽度
Height = 10 '图像的高度,在本例中为固定值


Response.ContentType="image/x-xbitmap"

hc=chr(13) & chr(10)

Image = "#define counter_width " & Width & hc
Image = Image & "#define counter_height " & Height & hc
Image = Image & "static unsigned char counter_bits[]={" & hc

For I = 1 To Height
For J = 1 To Length
Image = Image & a(sort(J),I) & ","
Next
Next

Image = Left( Image, Len( Image ) - 1 ) '去掉最后一个逗号
Image = Image & "};" & hc
%>
<%
Response.Write Image

%>

num.asp

<%
Dim a(10,10)

a(0,1) = "0x3c" '数字0
a(0,2) = "0x66"
a(0,3) = "0xc3"
a(0,4) = "0xc3"
a(0,5) = "0xc3"
a(0,6) = "0xc3"
a(0,7) = "0xc3"
a(0,8) = "0xc3"
a(0,9) = "0x66"
a(0,10)= "0x3c"

a(1,1) = "0x18" '数字1
a(1,2) = "0x1c"
a(1,3) = "0x18"
a(1,4) = "0x18"
a(1,5) = "0x18"
a(1,6) = "0x18"
a(1,7) = "0x18"
a(1,8) = "0x18"
a(1,9) = "0x18"
a(0,10)= "0x7e"


a(2,1) = "0x3c" '数字2
a(2,2) = "0x66"
a(2,3) = "0x60"
a(2,4) = "0x60"
a(2,5) = "0x30"
a(2,6) = "0x18"
a(2,7) = "0x0c"
a(2,8) = "0x06"
a(2,9) = "0x06"
a(2,10)= "0x7e"

a(3,1) = "0x3c" '数字3
a(3,2) = "0x66"
a(3,3) = "0xc0"
a(3,4) = "0x60"
a(3,5) = "0x1c"
a(3,6) = "0x60"
a(3,7) = "0xc0"
a(3,8) = "0xc0"
a(3,9) = "0x66"
a(3,10)= "0x38"

a(4,1) = "0x38" '数字4
a(4,2) = "0x3c"
a(4,3) = "0x36"
a(4,4) = "0x33"
a(4,5) = "0x33"
a(4,6) = "0x33"
a(4,7) = "0xff"
a(4,8) = "0x30"
a(4,9) = "0x30"
a(4,10)= "0xfe"

a(5,1) = "0xfe" '数字5
a(5,2) = "0xfe"
a(5,3) = "0x06"
a(5,4) = "0x06"
a(5,5) = "0x3e"
a(5,6) = "0x60"
a(5,7) = "0xc0"
a(5,8) = "0xc3"
a(5,9) = "0x66"
a(5,10)= "0x3c"

a(6,1) = "0x60" '数字6
a(6,2) = "0x30"
a(6,3) = "0x18"
a(6,4) = "0x0c"
a(6,5) = "0x3e"
a(6,6) = "0x63"
a(6,7) = "0xc3"
a(6,8) = "0xc3"
a(6,9) = "0x66"
a(6,10) ="0x3c"

a(7,1) = "0xff" '数字7
a(7,2) = "0xc0"
a(7,3) = "0x60"
a(7,4) = "0x30"
a(7,5) = "0x18"
a(7,6) = "0x18"
a(7,7) = "0x18"
a(7,8) = "0x18"
a(7,9) = "0x18"
a(7,10)= "0x18"

a(8,1) = "0x3c" '数字8
a(8,2) = "0x66"
a(8,3) = "0xc3"
a(8,4) = "0x66"
a(8,5) = "0x3c"
a(8,6) = "0x66"
a(8,7) = "0xc3"
a(8,8) = "0xc3"
a(8,9) = "0x66"
a(8,10)= "0x3c"

a(9,1) = "0x3c" '数字9
a(9,2) = "0x66"
a(9,3) = "0xc3"
a(9,4) = "0xc3"
a(9,5) = "0x66"
a(9,6) = "0x3c"
a(9,7) = "0x18"
a(9,8) = "0x0c"
a(9,9) = "0x06"
a(9,10)= "0x03"

%>
calfhfah 2003-08-23
  • 打赏
  • 举报
回复
附加码得作用是安全上得一种手段,利用随机数防止机器登陆,,以及枚举得防止
bineon 2003-08-23
  • 打赏
  • 举报
回复
附加码到底有什么用?你明明白白的写在那里别人肯定不会填写错误,不是码?
jokeboy 2003-08-22
  • 打赏
  • 举报
回复
怎么不给我回啊
bushido 2003-08-22
  • 打赏
  • 举报
回复
附加码问题
在第一页使用session记录随机数
submit提交后把用户填入的数字和session进行比较
jokeboy 2003-08-22
  • 打赏
  • 举报
回复
帮忙看一下,我错在那里
这是一个留言本处理页面。


<%
name=request("name")
mail=request("mail")
subject=request("subject")
memo=request("memo")

If name=" " or mail=" " or subject=" " or memo=" " then
response.Write"输入框不能为空"
'response.End
'End of

line1="留言人:" & name
line1=line1 & string(5,"")
Email = "<A HREF=mailto:" & mail & ">" & mail & "</A>"
Line1 = Line1 & "mail" & mail & "<BR>"

line2="主题:" & subject & "<br>"

memo=replace("memo",vbcrlf,"<br>")
Line3 = "<TABLE BORDER=0 BGCOLOR=#00FFFF><TR><TD>"
Line3 = Line3 & Memo & "</TD></TR></TABLE>"

line4 ="留言时间:" & now()

on error resume next '不理会所有的错误

'建立filesystemobject对像?set fso=server.createobject("scripting.filesystemobject")
'防止多人同时提交留言
Application.Lock
'取得gbook.txt和goldbook的完整路径
Filepath=server.mappath("gbook.txt")
OldFilepath=server.mappath("gbookold.txt")
'把gbook.txt改名为:gbookod.txt
fso.MoveFile Filepath,oldFilepath
'打开gbookold.txt
set fin=fso.opentextfile(oldfilepath,,true)
' 建立 gbook.txt
Set fout = fso.CreateTextFile(FilePath)
' 写入访问者留言
fout.writeline line1
fout.writeline line2
fout.writeline line3
fout.writeline line4
fout.WriteLine "<HR>"
' 一次读取整个gbookold.txt,然后写入gbook.txt
fout.writeline fin.readall
' 关闭 gbookold.txt
fin.close
' 删除 gbookold.txt
fso.deletefile oldfilepath,true
Application.unlock
' 将网页导至“浏览留言”的网页gbook.asp
Response.Redirect "gbook.asp"
%>
54duke 2003-08-22
  • 打赏
  • 举报
回复
有必要吗?
qwater 2003-08-22
  • 打赏
  • 举报
回复
http://www.21tx.com/school/asp/wz/000145271480001.htm

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧