中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [推荐][挑战思路]用脚本模拟黑客帝国数码雨

作者:

标题: [推荐][挑战思路]用脚本模拟黑客帝国数码雨

上一主题 | 下一主题

namejm
荣誉版主

batch fan

积分 5226
发帖 1737
注册 2006-3-10
来自成都
状态离线

『第 16 楼』: 使用 LLM 解释/回答一下

　　我先来下场小雨，大雨或暴雨有待各位努力，吃饭去先：



@echo off

mode con cols=80

color 02

for /f %%i in (test.txt) do set str_char=%%i

set str_blank=                                                                                

setlocal enabledelayedexpansion



:loop

:: 取随机位置上的字符

set /a num_char=1%random:~-1%%random:~0,1%-100

set char=!str_char:~-%num_char%,1!



:: 设置随机长度的空格

set /a num_blank=1%random:~-1%%random:~0,1%-100

set blank=!str_blank:~0,%num_blank%!

echo.%blank%%char%

goto loop

test.txt文本内容为(暂时不能处理|<>^)：



1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%&*(){}_+-=\"'?.,/

Last edited by namejm on 2006-11-3 at 06:04 AM ]

此帖被 +2 点积分

点击查看详情

尺有所短，寸有所长，学好CMD没商量。
考虑问题复杂化，解决问题简洁化。

2006-11-2 07:19

查看资料发短消息网志

编辑帖子

redtek
金牌会员

积分 2902
发帖 1147
注册 2006-9-21
状态离线

『第 17 楼』: 使用 LLM 解释/回答一下



         ◢◣

       ◢██◣　　　　　　　　                

     ◢████◣　　　　　　　　版主降雨～～～

   ◢█田██田█◣　　　　　　　  于是决定拉着ｍｍ在大房子外面赏雨……哈哈

     ██████                  

     ██████        ● /●\     

     █田██田█       /█\/█\         

     ██████▃▂▁　||▁||▁▁     

--

_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._

Last edited by redtek on 2006-11-2 at 09:42 AM ]

　　　　Redtek，一个永远在网上流浪的人……

_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._

2006-11-2 09:40

查看资料发送邮件发短消息网志

编辑帖子

lxmxn
版主

积分 11386
发帖 4938
注册 2006-7-23
状态离线

『第 18 楼』: 使用 LLM 解释/回答一下

　　呵呵，redtek 兄的代码是个小突破，要是可以再下大点就好了。

　　继续努力~~

2006-11-2 09:43

查看资料发送邮件发短消息网志

编辑帖子

electronixtar
铂金会员

积分 7493
发帖 2672
注册 2005-9-2
状态离线

『第 19 楼』: 使用 LLM 解释/回答一下

,,--
''``/``
|
__,,,,,,|.....-- |
| / , |
\ `' | `' |
| -,, | -, |
\ /

C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"

2006-11-2 09:49

查看资料发送邮件发短消息网志

编辑帖子

utem999
初级用户

积分 135
发帖 54
注册 2006-9-10
状态离线

『第 20 楼』: 使用 LLM 解释/回答一下

Originally posted by namejm at 2006-11-2 07:19:
　　我先来下场小雨，大雨或暴雨有待各位努力，吃饭去先：
@echo off

mode con cols=80

color 02

for /f %%i in (test.txt) do set str_char=%%i

set str_blank=        ... 



速度太快了

2006-11-2 09:57

查看资料发送邮件发短消息网志

编辑帖子

不得不爱
超级版主

我爱DOS

积分 5310
发帖 2044
注册 2005-9-26
来自四川南充
状态离线

『第 21 楼』: 使用 LLM 解释/回答一下

我再来个小雨

@echo off

mode con cols=80

set a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}_+-=\"'?.,/^&^^^>^<

set b=                                                                                

setlocal enabledelayedexpansion

:a

set /a num=%random%%%92

set 字符=!a:~-%num%,1!

set/a c=%random%%%80

set 空格=!b:~-%c%!

echo %空格%^%字符%

goto a

此帖被 +2 点积分

点击查看详情

我的网络U盘我的网络第2个U盘
论坛软件下载链接
灵雨飘零论坛
论坛新手必读，所有人的基本行为准则
刷QQ空间人气、留言的小软件

2006-11-2 22:12

查看资料发送邮件发短消息网志

编辑帖子

namejm
荣誉版主

batch fan

积分 5226
发帖 1737
注册 2006-3-10
来自成都
状态离线

『第 22 楼』: 使用 LLM 解释/回答一下

　　21F的代码用转义字符来设置变量、用取余来获取随机数的思路不错，只是这个代码有时候会显示 echo 的开关状态，把 echo %空格%^%字符% 改成 echo.%空格%^%字符% 就可以避免这个问题了。

　　和16F的代码一样，21F的代码在所有的列上都只能取到一个字符，是个缺憾。如果能取到任意个字符，并且把速度稍微降一点的话，就更逼真了。

尺有所短，寸有所长，学好CMD没商量。
考虑问题复杂化，解决问题简洁化。

2006-11-3 00:40

查看资料发短消息网志

编辑帖子

voiL
中级用户

积分 384
发帖 189
注册 2005-10-19
状态离线

『第 23 楼』: 使用 LLM 解释/回答一下

太高深了,偶不懂.但期待中...

2006-11-3 01:24

查看资料发短消息网志

编辑帖子

yfd11
初级用户

积分 44
发帖 15
注册 2006-10-18
状态离线

『第 24 楼』: 加点代码视觉上从上到下使用 LLM 解释/回答一下

@echo off
mode con cols=80 LINES=30
set a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}_+-=\"'?.,/^&^^^>^<
set b=
setlocal enabledelayedexpansion
:a
set /a num=%random%%%92
set 字符=!a:~-%num%,1!
set/a c=%random%%%80
set 空格=!b:~-%c%!
::echo. %空格%^%字符%

set/a i+=1
rem 指针=i 尾指针=j
set/a j=i-30
set line%i%=%空格%^%字符%
FOR /L %%v IN (%i%,-1,%j%) DO echo.!line%%v!
::ping /n 127.1>nul
goto a

Last edited by yfd11 on 2006-11-3 at 05:49 AM ]

此帖被 +2 点积分

点击查看详情

刚建的脚本批处理群：81019377

2006-11-3 03:19

查看资料发短消息网志

编辑帖子

redtek
金牌会员

积分 2902
发帖 1147
注册 2006-9-21
状态离线

『第 25 楼』: 使用 LLM 解释/回答一下

哈哈……这个构思和算法有意思～：）
佩服～：）
这个原理用批处理可以实现非ANSI的ASCII码星球大战动画了～：）

　　　　Redtek，一个永远在网上流浪的人……

_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._

2006-11-3 06:06

查看资料发送邮件发短消息网志

编辑帖子

002500
初级用户

积分 63
发帖 18
注册 2006-9-9
状态离线

『第 26 楼』: 使用 LLM 解释/回答一下

<html>
<title>入侵者:xxx QQ:xxxxxxx</title>
<center><body background="http://www.bnbsdo.cn/scan.gif"> </center>
<BGSOUND balance=0 src="http://www.bnbsdo.cn/fbi.mp3 " volume=-1 loop="-1">
<CENTER>Hacked by xxxxxx</CENTER>
So long as makes 1% effort, may let 99% intruder be at a loss.
<CENTER> </CENTER>
<CENTER>谁都不知道我是谁 抽完最后一支烟 打完最后一行字母 流下最后一滴眼泪 只有孤独的我和电脑</CENTER>
<CENTER>共享着我的一切</A> </CENTER>
<CENTER> </CENTER>
<SCRIPT language=JavaScript>

</SCRIPT>
<script language="JavaScript">var MESSAGE="版权所有·xxxxxxx ";var POSITION = 150;var DELAY = 10;var scroll = new statusMessageObject();function statusMessageObject(p,d){this.msg = MESSAGE;this.out = " ";this.pos = POSITION;this.delay = DELAY;this.i=0;this.reset = clearMessage};function clearMessage(){this.pos = POSITION};function scroller(){for(scroll.i=0;scroll.i<scroll.pos; scroll.i++);{scroll.out+=" "};if(scroll.pos >= 0) scroll.out += scroll.msg; else scroll.out = scroll.msg.substring(-scroll.pos,scroll.msg.length);window.status = scroll.out;scroll.out = " "; scroll.pos--; if(scroll.pos < -(scroll.msg.length)){ scroll.reset()}; setTimeout ('scroller()',scroll.delay)};function snapIn(jumpSpaces,position){var msg = scroll.msg;var out = "";for (var i=0; i<position; i++){out += msg.charAt(i)}; for (i=1;i<jumpSpaces;i++){out += " "}; out += msg.charAt(position);window.status = out;if (jumpSpaces <= 1){position++;if (msg.charAt(position) == ' '){position++ };jumpSpaces = 100-position};else if (jumpSpaces > 3){jumpSpaces *= .75};else {jumpSpaces--};if (position != msg.length){var cmd = "snapIn(" + jumpSpaces + "," + position + ")";scrollID = window.setTimeout(cmd,scroll.delay);} else { window.status="";jumpSpaces=0; position=0; cmd ="snapIn(" + jumpSpaces + "," + position + ")";scrollID = window.setTimeout(cmd,scroll.delay); return false }; return true};snapIn(100,0);</script>
<script language="javascript">function click(){if (event.button==2){alert('别看源码哈盗版日了你')}};document.onmousedown=click</script>

<style>#glowtext{filter:glow(color=red,strength=2);width:100%;}</style>
<script>function glowit(which){if(document.all.glowtext.filters.strength==2) document.all.glowtext.filters.strength=1;else document.all.glowtext.filters.strength=2};function glowit2(which){if (document.all.glowtext.filters.strength==2)document.all.glowtext.filters.strength=1; else document.all.glowtext.filters.strength=2};function startglowing(){if (document.all.glowtext&&glowtext.length){for (i=0;i<glowtext.length;i++);eval('setInterval("glowit('+i+')",150)')} else if (glowtext) setInterval("glowit2(0)",150)};if (document.all) window.onload=startglowing </script>
<div align=center>本次检测纯属友情检测 QQxxxxxxxx</div>

<SCRIPT>message = 'Hacked By xxxxx;FonT ='宋体 style=font-size:9pt';ColoR ='#ff3300';SizE=3;var amount=5,ypos=-50,xpos=0,Ay=0,Ax=0,By=0,Bx=0,Cy=0,Cx=0,Dy=0,Dx=0,Ey=0,Ex=0;if (document.layers){for(i=0;i<amount;i++){document.write('<layer name=nsl'+i+' top=0 left=0>'+message+'</layer>');};window.captureEvents(Event.MOUSEMOVE);function nsmouse(evnt){xpos = evnt.pageX + 20;ypos=evnt.pageY + 20;};window.onMouseMove = nsmouse;}else if (document.all){document.write("<div id='outer' style='position:absolute;top:0px;left:0px'>");document.write("<div style='position:relative'>");for(i=0;i<amount;i++){document.write('<div id="text"'+i+' style="position:absolute;top:0px;left:0px;width:400px;height:20px">'+message+'</div>')};document.write("</div>");document.write("</div>");function iemouse(){ypos = event.y + 20;xpos = event.x + 20;};window.document.onmousemove = iemouse;};function makefollow(){if (document.layers){document.layers.top = ay;document.layers.left = ax;document.layers.top = by;document.layers.left = bx;document.layers.top = cy;document.layers.left = cx;document.layers.top = Dy;document.layers.left = Dx;document.layers.top = Ey;document.layers.left = Ex;}else if(document.all){outer.style.pixelTop = document.body.scrollTop;text.style.pixelTop = ay;text.style.pixelLeft = ax;text.style.pixelTop = by;text.style.pixelLeft = bx;text.style.pixelTop = cy;text.style.pixelLeft=cx;text.style.pixelTop = Dy;text.style.pixelLeft = Dx;text.style.pixelTop = Ey;text.style.pixelLeft=Ex;}};function move(){ey = Ey += (ypos - Ey) * 0.2;ex = Ex += (xpos - Ex) * 0.2;dy = Dy += (ey - Dy) * 0.3;dx = Dx += (ex - Dx) * 0.3;cy = Cy += (dy - Cy) * 0.4;cx = Cx += (dx - Cx) * 0.4;by = By += (cy - By) * 0.5;bx = Bx += (cx - Bx) * 0.5;ay = Ay += (by - Ay) * 0.6;ax = Ax += (bx - Ax) * 0.6;makefollow();setTimeout('move()', 10);};window.onload=move;</SCRIPT>

楼主要的是不是这种页面效果

Last edited by 002500 on 2006-11-3 at 08:59 AM ]

2006-11-3 08:58

查看资料发短消息网志

编辑帖子

002500
初级用户

积分 63
发帖 18
注册 2006-9-9
状态离线

『第 27 楼』: 使用 LLM 解释/回答一下

<TITLE>〓捍卫中华!一致对外!〓</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<STYLE>
A {
COLOR: #ffffff; TEXT-DECORATION: none
}
A:hover {
COLOR: #6699cc; TEXT-DECORATION: underline
}
BODY
{
FONT-SIZE: 9pt; SCROLLBAR-HIGHLIGHT-COLOR: buttonface; SCROLLBAR-SHADOW-COLOR:

buttonface;SCROLLBAR-ARROW-COLOR: #cacab7;SCROLLBAR-FACE-COLOR:000033;SCROLLBAR-3DLIGHT-COLOR:

buttonhighlight; SCROLLBAR-TRACK-COLOR: #f5f5f5; FONT-FAMILY: 宋体; SCROLLBAR-DARKSHADOW-COLOR:

buttonshadow
}

{
FONT-FAMILY: "Verdana","Arial","宋体"; FONT-SIZE: 9pt
}
TD {
FONT-FAMILY: 宋体,Arial,Verdana; FONT-SIZE: 9pt
}
FORM {
MARGIN: 0px; PADDING-BOTTOM: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; PADDING-TOP: 0px}
.kker {
BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: 1px dotted; BORDER-LEFT: 1px dotted; BORDER-RIGHT: 1px dotted; BORDER-TOP: 1px dotted; FONT-SIZE: 9pt; HEIGHT: 16px; MARGIN: 0px; PADDING-BOTTOM: 0px; PADDING-LEFT: 0px; PADDING-RIGHT: 0px; PADDING-TOP: 0px
}
</STYLE>

<body bgcolor="" oncontextmenu="return false" ondragstart="return false" onselectstart ="return false" onselect="document.selection.empty()"</script>

 
<script language="JavaScript1.2">
if (document.all)
document.body.style.cssText="border:30 ridge red"
</script>

<BGSOUND balance=0 src="http://hac-ker.ik8.com/hacker.mid" volume=0 loop=20></TR>

<STYLE>BODY {
CURSOR: url('http://hac-ker.ik8.com/mouse.cur')
}
</STYLE>
<body bgcolor="#000000" text="#FFFFFF">
　
<big>..........................</big>》无视一切大站　<A href="【入侵你的网站我的权力】">【入侵你的网站我的权力】</A> 藐视一切权威<big>《..........................</big>

 
<big>..............................</big>》<a name=0></a>
网 <a name=1></a>络 <a name=2></a>无 <a name=3></a>人 <a name=4></a>取 <a name=4></a>代<big>《.................................</big>

 
<big>...............................</big>》<a name=0></a>
漏 <a name=1></a>洞 <a name=2></a>无 <a name=3></a>处 <a name=4></a>不 <a name=4></a>在<big>《...............................</big>

 
<big>...................</big>《=◆天赋异能谁与争峰你的电脑我的权限◆=》<big>..................</big>

 
<big>.................</big>┠忘┨┠记┨┠你┨┠我┨┠做┨┠不┨┠到┨<big>.................</big>

 
<big><big>黑</big>..........................</big>By:ヤ『藍酷』QQ:173663728<big>..........................客</big></big>

 
<big>...............</big>此站存在漏洞已经修复 <big>...............</big>

◢█◣◢█◣ 
██安全██ 
◥█检测█◤ 
◥██◤ 
◥◤
</body>
</html>

<script language="JavaScript">

</script>

<SCRIPT language=javascript>
</SCRIPT>