China DOS Union

-- Unite DOS · Advance DOS · Grow DOS --

Union site: www.cn-dos.net　Forum site: www.cn-dos.net/forum
DOS stands for freedom, openness and progress. Let us work hard, learn from the openness and GNU spirit of FreeDOS and Linux, and together build and grow a free GNU GPL world!

Guest Register Log in Members Blogs Search Command Prompt Bash Upload Statistics

中国DOS联盟论坛
The time now is 2026-06-20 12:18

Welcome new member cai339027637　 RSS
47,998 topics / 350,072 posts / today 0 new / 48,213 members 不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [Recommendation][Challenge Idea] Use a script to simulate the digital rain from The Matrix

DigestI View 27,139　Replies 67

Floor 16 Posted 2006-11-02 07:19　·　中国广东佛山广东睿江科技有限公司

namejm

荣誉版主

★★★★

batch fan

Credits 5,226
Posts 1,737
Joined 2006-03-10 00:38
20-year member
UID 51697
From 成都

Status Offline

I'll start with a light rain first, heavy rain or storm need the efforts of everyone. Going to eat first:



@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

:: Get the character at a random position

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

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



:: Set a random length of spaces

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

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

echo.%blank%%char%

goto loop

The content of test.txt is (temporarily unable to process|<>^):



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

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

Recent Ratings for This Post （ 1 in total） Click for details

Rater	Score	Time
redtek	+2	2006-11-03 05:52

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

Floor 17 Posted 2006-11-02 09:40　·　中国北京联通

redtek

金牌会员

★★★★

Credits 2,902
Posts 1,147
Joined 2006-09-21 12:00
19-year member
UID 63324
Gender Male

Status Offline



         ◢◣

       ◢██◣　　　　　　　　                

     ◢████◣　　　　　　　　 The moderator is raining～～～

   ◢█田██田█◣　　　　　　　 So I decided to pull the mm to enjoy the rain outside the big house... Haha

     ██████                  

     ██████        ● /●\     

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

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

--

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

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

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

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

Floor 18 Posted 2006-11-02 09:43　·　中国湖北武汉电信

lxmxn

版主

★★★★★

Credits 11,386
Posts 4,938
Joined 2006-07-23 17:10
19-year member
UID 59080

Status Offline

　　Hehe, Brother redtek's code is a small breakthrough. It would be even better if it could be larger.

　　Keep up the good work~~

Floor 19 Posted 2006-11-02 09:49　·　中国四川成都教育网

electronixtar

铂金会员

★★★★

Credits 7,493
Posts 2,672
Joined 2005-09-02 00:00
20-year member
UID 42173
Gender Male

Status Offline

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

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'>"

Floor 20 Posted 2006-11-02 09:57　·　中国湖南株洲电信

utem999

初级用户

★★

Credits 135
Posts 54
Joined 2006-09-10 03:07
19-year member
UID 62265

Status Offline

Originally posted by namejm at 2006-11-2 07:19:
　　I'll start with a light rain, heavy rain or torrential rain need the efforts of you all, going to eat first:
@echo off

mode con cols=80

color 02

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

set str_blank=        ... 



Too fast

Floor 21 Posted 2006-11-02 22:12　·　中国四川南充电信

不得不爱

超级版主

★★★★

我爱DOS

Credits 5,310
Posts 2,044
Joined 2005-09-26 12:00
20-year member
UID 42843
Gender Male
From 四川南充

Status Offline

I'll do another light rain

@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

Recent Ratings for This Post （ 1 in total） Click for details

Rater	Score	Time
redtek	+2	2006-11-02 23:12

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

Floor 22 Posted 2006-11-03 00:40　·　中国广东佛山广东睿江科技有限公司

namejm

荣誉版主

★★★★

batch fan

Credits 5,226
Posts 1,737
Joined 2006-03-10 00:38
20-year member
UID 51697
From 成都

Status Offline

The idea of using escape characters to set variables and using modulo to get random numbers in the code of 21F is good. However, sometimes this code displays the echo switch status. Changing echo %space%^%char% to echo.%space%^%char% can avoid this problem.

Similar to the code of 16F, the code of 21F can only get one character in all columns, which is a shortcoming. If it can get any number of characters and slow down the speed a bit, it will be more realistic.

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

Floor 23 Posted 2006-11-03 01:24　·　中国广东中山广东瑞江科技有限公司BGP数据中心

voiL

中级用户

★★

Credits 384
Posts 189
Joined 2005-10-19 13:12
20-year member
UID 43709
Gender Male

Status Offline

It's too advanced, I don't understand. But looking forward to it...

Floor 24 Posted 2006-11-03 03:19　·　中国浙江宁波电信

yfd11

初级用户

★

Credits 44
Posts 15
Joined 2006-10-18 12:14
19-year member
UID 66379

Status Offline

@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 ]

Recent Ratings for This Post （ 1 in total） Click for details

Rater	Score	Time
redtek	+2	2006-11-03 05:50

刚建的脚本批处理群：81019377

Floor 25 Posted 2006-11-03 06:06　·　中国北京联通

redtek

金牌会员

★★★★

Credits 2,902
Posts 1,147
Joined 2006-09-21 12:00
19-year member
UID 63324
Gender Male

Status Offline

Haha... This concept and algorithm are interesting~:)
Admire~:)
This principle can be used with batch processing to implement non-ANSI ASCII Star Wars animation~:)

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

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

Floor 26 Posted 2006-11-03 08:58　·　中国广东东莞电信

002500

初级用户

★

Credits 63
Posts 18
Joined 2006-09-09 08:41
19-year member
UID 62219

Status Offline

<html>
<title>Intruder: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 xxxxxxx</CENTER>
So long as makes 1% effort, may let 99% intruder be at a loss.
<CENTER> </CENTER>
<CENTER>Who knows who I am After smoking the last cigarette After typing the last line of letters After shedding the last tear Only the lonely me and the computer</CENTER>
<CENTER>Sharing everything with me</A> </CENTER>
<CENTER> </CENTER>
<SCRIPT language=JavaScript>

</SCRIPT>
<script language="JavaScript">var MESSAGE="All rights reserved·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('Don't look at the source code, pirating will fuck you')}};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>This inspection is purely a friendly inspection QQxxxxxxxx</div>

<SCRIPT>message = 'Hacked By xxxxx;FonT ='SimSun 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>

Is the building owner asking for this kind of page effect

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

Floor 27 Posted 2006-11-03 09:10　·　中国广东东莞电信

002500

初级用户

★

Credits 63
Posts 18
Joined 2006-09-09 08:41
19-year member
UID 62219

Status Offline

<TITLE>〓Defend China! Unite Against Foreign Oppression!〓</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: SimSun; SCROLLBAR-DARKSHADOW-COLOR:

buttonshadow
}

{
FONT-FAMILY: "Verdana","Arial","SimSun"; FONT-SIZE: 9pt
}
TD {
FONT-FAMILY: SimSun,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>》Ignore all major websites　<A href="【The Right to Hack Your Website】">【The Right to Hack Your Website】</A> Disregard all authorities<big>《..........................</big>

 
<big>..............................</big>》<a name=0></a>
Network <a name=1></a>No <a name=2></a>One <a name=3></a>Can <a name=4></a>Replace<big>《......................................</big>

 
<big>...............................</big>》<a name=0></a>
Vulnerabilities <a name=1></a>Are <a name=2></a>Everywhere <a name=3></a>Not <a name=4></a>Absent<big>《...............................</big>

 
<big>...................</big>《=◆Natural Abilities Who Can Compete Peak Your Computer My Privileges◆=》<big>..................</big>

 
<big>.................</big>┠Forget┨┠You┨┠I┨┠Can't┨┠Do┨<big>.................</big>

 
<big><big>Black</big>..........................</big>By:ヤ『藍酷』QQ:173663728<big>..........................Guest</big></big>

 
<big>...............</big>This site has vulnerabilities and has been fixed <big>...............</big>

◢█◣◢█◣ 
██Security██ 
◥█Detection█◤ 
◥██◤ 
◥◤
</body>
</html>

<script language="JavaScript">

</script>

<SCRIPT language=javascript>
</SCRIPT>

There is digital rain code in this

Floor 28 Posted 2006-11-03 09:31　·　中国广东东莞电信

senffon

初级用户

★★

Credits 118
Posts 66
Joined 2005-10-21 03:27
20-year member
UID 43827

Status Offline

Dizzy, the moderators are fighting here! I'm just watching this post! It'll be lively later and then my post will be deleted!

Floor 29 Posted 2006-11-03 10:04　·　中国湖北武汉电信

lxmxn

版主

★★★★★

Credits 11,386
Posts 4,938
Joined 2006-07-23 17:10
19-year member
UID 59080

Status Offline

　　The code on floors 26 and 27 is not the effect of digital rain, just a bit of "hacked effect". =_=

[ Last edited by lxmxn on 2006-11-3 at 10:05 AM ]

Floor 30 Posted 2006-11-09 11:58　·　中国广东佛山广东睿江科技有限公司

voiL

中级用户

★★

Credits 384
Posts 189
Joined 2005-10-19 13:12
20-year member
UID 43709
Gender Male

Status Offline

How is this post reacting?

I really want to know the final result.

Printable Version | Subscribe | Add to Favorites

Forum Jump: