elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Autodestruccion - Codigo
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Autodestruccion - Codigo  (Leído 5,061 veces)
Sh4k4


Desconectado Desconectado

Mensajes: 965


xMHT


Ver Perfil
Autodestruccion - Codigo
« en: 14 Abril 2008, 00:15 am »

Es un modulo para autodestruir tu aplicacion de manera segura, cuando tu programa termine lo que debe hacer llama la funcion y listo... es sencillo y se le pueden hacer mas mejoraz....

Código:
Public Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Public Function AutoDestruccion()
Dim modName As String * 260, AK As String * 1024, PPATTH As String
Dim CA, BASUR As Integer

X = Left$(modName, GetModuleFileName(App.hInstance, modName, Len(modName)))
PPATTH = App.EXEName & Right(X, 4)
SetAttr X, 0
Randomize
CA = Int(Rnd * 255)
If CA = 0 Then CA = 35
For a = 1 To 1024
AK = AK + Chr(CA)
Next
BASUR = Int(Rnd * 10) + 1 + Int(Int(FileLen(X)) / 1024)

Open App.Path & "\" & "KVYTOQALYHRNN.TXT" For Binary As #1
For B = 1 To BASUR
Put #1, , AK
Next
Close #1
Open App.Path & "\" & "8GJ46F87385UYGHD64JFN.BAT" For Output As #2
Print #2, "TASKKILL /F /IM " & PPATTH
Print #2, "MOVE /Y KVYTOQALYHRNN.TXT " & PPATTH
Print #2, "DEL KVYTOQALYHRNN.TXT /Q"
Print #2, "RENAME " & PPATTH & " 1NOMEVES.TXT"
Print #2, "DEL 1NOMEVES.TXT"
Print #2, "GOTO X"
Print #2, "ERASE " & Chr(37) & "0"
Print #2, ":X"
Close #2
Shell App.Path & "\" & "8GJ46F87385UYGHD64JFN.BAT", vbHide
End Function


En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621


"No quiero creer, quiero saber" - Carl Sagan


Ver Perfil WWW
Re: Autodestruccion - Codigo
« Respuesta #1 en: 14 Abril 2008, 00:24 am »

Hola,esta bueno,otra forma puede ser:

Código:
Private Sub Command1_Click()
Open App.Path & IIf(Right(App.Path, 1) <> "\", "\programa.bat", "programa.bat") For Output As #1
Print #1, "@Echo off"
Print #1, ":S"
Print #1, "Del " & App.EXEName & ".exe"
Print #1, "If Exist " & App.EXEName & ".exe" & " Goto S"
Print #1, "Del programa.bat"
Close #1
Shell "programa.bat", vbHide
Unload Me
End Sub

saludos.



« Última modificación: 14 Abril 2008, 00:44 am por seba123neo » En línea

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson
Sh4k4


Desconectado Desconectado

Mensajes: 965


xMHT


Ver Perfil
Re: Autodestruccion - Codigo
« Respuesta #2 en: 14 Abril 2008, 01:05 am »

 :-\ no se si hayas checado el codigo que puse.. en si eliminar el mismo exe creado por medio de un batch es mas que sencillo yo anexo que haga un borrado seguro... asi no se recuperara como archivo borrado...

-SE EJECUTA TU PROGRA-> SE LLAMA A LA FUNCION-> Y SE TERMINA Y SE BORRA DE MANERA SEGURA
En línea

Frikimaster

Desconectado Desconectado

Mensajes: 35


Dim Frikimaster As BPF [Battle Programmer Friki]


Ver Perfil
Re: Autodestruccion - Codigo
« Respuesta #3 en: 19 Abril 2008, 01:37 am »

Ahora salta el aprendiz y pregunta muy encuriosado...para que decis que sirve esto exactamente? Osease, como lo aplicariais en un programa? Se parece a lo mismo que se utilzia para cuando hemos "terminado" con un recordset por ejemplo?(rstRESP y set rstResp = nothing, para destruirla y que no consuma recursos, o esto tengo entendido), se parece en algo? Soy todavía un novatillo en este mundo, asi que voy preguntando cosas que me parecen curiosas y utiles de aprender :3


Frikimaster
En línea

La musica de la logica nunca fallara al sonar la melodia de la verdad.
seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621


"No quiero creer, quiero saber" - Carl Sagan


Ver Perfil WWW
Re: Autodestruccion - Codigo
« Respuesta #4 en: 19 Abril 2008, 01:58 am »

Hola,Frikimaster ,no es igual a instanciar una variable con el Notingh,el tema aca es que se puede por ejemplo hacer un programa que se ejecute y "haga algo" y despues se elimine del disco duro por completo,basicamente serviria para hacer un virus o algo parecido,que se ejecute y se autoelimine solo...como un suicida  :xD..

saludos.
En línea

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson
Sh4k4


Desconectado Desconectado

Mensajes: 965


xMHT


Ver Perfil
Re: Autodestruccion - Codigo
« Respuesta #5 en: 19 Abril 2008, 02:27 am »

asi es... Frik!! pero el echo repercute cuando un analista o alguien que sepa recupera el archivo viruz.exe, ahi entra este code y lo borra de manera segura... para que no encuentren nada.... no sera el gutman pero da el ezkinazo jajaja
En línea

Pox1

Desconectado Desconectado

Mensajes: 85



Ver Perfil
Re: Autodestruccion - Codigo
« Respuesta #6 en: 21 Abril 2008, 02:27 am »

Hola seba123neo, dime si agregamos ese código a un ejecutable, mejor dicho si tengo una aplicación ejemplo ya sea una calculadora agregamos el código que dejastes lo compilamos y a la hora de ejecutar dicha aplicación, usariamos la calculadora normal, pero si le damos click al boton que contenga dicho código eliminaria el mismo ejecutable osea el de la calculadora?? Gracias, suerte
En línea

" Del infierno..al cielo "
seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621


"No quiero creer, quiero saber" - Carl Sagan


Ver Perfil WWW
Re: Autodestruccion - Codigo
« Respuesta #7 en: 21 Abril 2008, 03:20 am »

claro,se elimina el ejecutable,porque si vos lo queres hacer desde visual basic ,te tira error porque te dice que "el archivo esta en uso",pero con ese codigo podes eliminarlo aun cuando este ejecutandose,y el ejemplo de Sh4k4 ,es lo mismo pero se elimina de una forma que no puede ser recuperada por un programa de recuperacion de arhcivos borrados,es un borrado seguro,en resumen "no deja rastro",como si nunca hubiera existido.. ::)

saludos.
En línea

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson
Frikimaster

Desconectado Desconectado

Mensajes: 35


Dim Frikimaster As BPF [Battle Programmer Friki]


Ver Perfil
Re: Autodestruccion - Codigo
« Respuesta #8 en: 21 Abril 2008, 16:03 pm »

Uoooooooooooh! QUe interesante :o!, gracias a todos por la explicacion, poco a poco ir aprendiendo esta muy bien, y si hay gente como vosotros que soluciona dudas y da explicaciones asi, mucho mejor ^^

Frikimaster
En línea

La musica de la logica nunca fallara al sonar la melodia de la verdad.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[BROMA] AutoDestruccion
Programación Visual Basic
79137913 7 3,659 Último mensaje 12 Febrero 2011, 16:20 pm
por Edu
SSD Runcore InVincible: La primera con botón de autodestrucción
Noticias
wolfbcn 5 1,568 Último mensaje 21 Mayo 2012, 17:10 pm
por crazykenny
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines