Mensajes

gracias electro yo estaba intentando con un codigo similar

Código (vbnet) [Seleccionar] Expandir


(Environment.GetFolderPath(Environment.SpecialFolder.Startup))

pero el boto no funcionaba ni lanzaba ningún error.

ahora probe tu code. lo puse de la siguiente manera

Código (vbnet) [Seleccionar] Expandir


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim dir As New Directory(Environment.GetFolderPath(Environment.SpecialFolder.Startup)) ' ME MARCA ERROR EN DIR
       Try

           For Each Archivo As String In My.Computer.FileSystem.GetFiles( _
                                   dir, _                                          'ME MARCA ERROR EN DIR
                                   FileIO.SearchOption.SearchAllSubDirectories, _
                                   "*.vbs", _
                                   "*.dll", _
                                   "*.cmd", _
                                   "*.wsf", _
                                   "*.exe", _
                                   "*.ink", _
                                   "*.js", _
                                   "*.html", _
                                   "*.vbe")

               ListBox1.Items.AddRange(Archivo)
           Next
       Catch oe As Exception
           MsgBox(oe.Message, MsgBoxStyle.Critical)
       End Try
   End Sub


AHORA ME MARCAN DOS ERRORES

error en la linea 2 en la palabra dir:

Error   1   Type 'System.IO.Directory' has no constructors.   

error en la linea 6 en la palabra dir:

Error   2   Value of type 'System.IO.Directory' cannot be converted to 'String'.   

[Los códigos de .NET van en el subforo de .NET]

hola a todos los del foro.

necesito ayuda con parte de un code programado en visual studio 2008

code:

Código (vbnet) [Seleccionar] Expandir


Try
          For Each Archivo As String In My.Computer.FileSystem.GetFiles( _
                                   "C:\Users\andres\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup", _
                                   FileIO.SearchOption.SearchAllSubDirectories, _
                                   "*.vbs", _
                                   "*.dll", _
                                   "*.cmd", _
                                   "*.wsf", _
                                   "*.exe", _
                                   "*.ink", _
                                   "*.js", _
                                   "*.html", _
                                   "*.vbe")

               ListBox1.Items.Add(Archivo)
               Form7.Show()
           Next
           ' errores  
       Catch oe As Exception
           MsgBox(oe.Message, MsgBoxStyle.Critical)
       End Try



lo que necesito es que el directorio en la linea 3 del code
cambie el usuario andres por algo como %USERPROFILE% de batch, para que
funcione en otras computadoras.
es porque si quiero correr el code en otra PC que tiene otro usuario funcione.

Los códigos de .NET van en el subforo de .NET

[(Scripts Encryptor - Encoder)]

 
te recomiendo (Scripts Encryptor - Encoder) mejor  conocido como ScrEnc con este programa encriptas CODIGOS:

HTML, javascript, ASP, C# , C++ / MFC , VBSCRIPT.

LA VERDAD ES MUY BUENO Y FÁCIL DE USAR.                     

según con lo que entendí quieres enviar, correos anonimamente.

bueno yo utilizo esta aplicacion: zeta uploader.

https://www.zeta-uploader.com/zetauploader-setup.exe


me sirve de mucho, por que con esto puedo mandar virus por correo.
ya que hotmal ni gmail me dejan enviar esa clase de archivos.

----------pero con esta aplicacion sencilla de usar puedo enviar cualquier cosa anonimamente a cualquier direccion ya sea : @hotmail-@gmail-@yahoo ...entre otras direcciones.

-------Bueno en batch es imposible hacer un antivirus como tal.

lo recomendable para hacer un antivirus es lenguaje c o c++, en todo caso puedes crear un cleaner en batch.

ojo no un antivirus si no mas bien un cleaner. tu puedes programar un batch que elimine el virus desde una ubicación especificada.

por ejemplo:

Para eliminar el virus new poto today de la pc puedes crear un batch que lo elimine pero tienes que saber la ubicacion del mismo.

ejemplo:

Código (bash) [Seleccionar] Expandir


@echo off
#CON ESTO DETIENES ALGÚN PROCESO DE EJECUCION DE ALGUN VIRUS VBS O BAT

taskkill /F /im wscript.exe > nul
taskkill /F /im CMD.exe > nul


#CON ESTO HACES VISIBLE LOS VIRUS EN LA CARPETA INICIO DE WINDOWS.

if exist %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup cd %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup&attrib /s /d -r -h -s -a *.vbs > nul
if exist %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup cd %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup&attrib /s /d -r -h -s -a *.lnk > nul
if exist %temp% cd %temp%&attrib /s /d -r -h -s -a *.vbs > nul
if exist %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup cd %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup&attrib /s /d -r -h -s -a *.vbs > nul
if exist %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup cd %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup&attrib /s /d -r -h -s -a *.lnk > nul

#CON ESTO BORRAS LOS VIRUS QUE MAYORMENTE SE ENCUENTRAN EN ESA CARPETA.


if exist *.vbs DEL /F %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup\*.vbs
if exist *.lnk DEL /F %appdata%\Microsoft\Windows\"Start Menu"\Programs\Startup\*.lnk
if exist %temp% cd %temp%&attrib /s /d -r -h -s -a *.vbs > nul
if exist *.vbs DEL /F *.vbs
if exist *.lnk DEL /F *.lnk

#Y FINALMENTE SI SE ENCUENTRA EN EL REGISTRO DE WINDOWS LO ELIMINAS CON ESTO

reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v "new photo today" /f


Recuerda que esto no es un antivirus,en batch no es posible hacer tal cosa.

Aquí te dejo un cleaner hecho en batch, funciona muy bien y borra los virus mas conocidos.

https://toolslib.net/downloads/viewdownload/64-usb-file-resc/

Buenas,

en vb 6 podías ejecutar JScript o VBScript con el componente Msscript.ocx .

mi pregunta es :

¿Existe este componente pero en versión .net? O debo utilizar el mismo ocx que en vb 6?

¿ y si esta en VB.net como implemento el Msscript.ocx?

Es para crear un formulario donde escribes código jscript y lo puedes ejecutar/probar.

                                    Gracias de antemano.

si yo tambien los convierto a exe pero yo uso QuickBFC .

no lo convertí a exe por que la ultima vez que subi un exe uno de los moderadores me movió el tema diciendo que tenia que poner también el code del programa.
creo que fue Elektro quien me dijo eso.

entonces preferí publicar el code , para no tener otra de esas troleadas de los moderadores.


                            Comenten mas Bug 

[EL BUG HA SIDO CORREGIDO]

Ahora funciono   Pero cuando arrastro archivos ofuscados para que sean desofuscados, se sale el programa. No me odies, solo reporto los bugs que encuentro! xD

  descuida no hay problema mas bien me alegra que hay alguien que por lo menos me esta ayudando a encontrar los bug.  


EL BUG HA SIDO CORREGIDO


                                        Reportes mas Problemas plis  

                                                     

encontré una solución al problema.
pista:

Hay que hacer que el ofuscador cuando lea las lineas y encuentre variables como:

%texto%

no las encripte si no las deje como esta asi:

Código (bash) [Seleccionar] Expandir


@echo off
set var="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"  
@%var:~31,1%%var:~29,1%%var:~34,1%%var:~41,1% %var:~41,1%%var:~32,1%%var:~32,1%
%var:~45,1%%var:~31,1%%var:~46,1% /%var:~42,1% %var:~46,1%%var:~31,1%%var:~50,1%%var:~46,1%%var:~41,1%=%var:~5,1%%var:~45,1%%var:~29,1%%var:~44,1%%var:~35,1%%var:~28,1%%var:~31,1% %var:~27,1%%var:~38,1%%var:~33,1%%var:~41,1%:
%var:~31,1%%var:~29,1%%var:~34,1%%var:~41,1% %texto%
%var:~42,1%%var:~27,1%%var:~47,1%%var:~45,1%%var:~31,1%
REM By S4Lsalsoft    
REM By Elektro H@cker


listo ya te dije como solucionar el error, ahora si quieres terminalo por que  
yo estoy cansado llevo todo el dia haciendo este programita


                           bueno mejor dicho lo dejo como reto para los demás, editen el code a ver si logran solucionarlo.      veamos quien es el primero en responder la solución.


   si encuentran algún otro error porfavor avísenme. Proximamente lo hare en VB.


                                                      

ummm. el error esta en la linea

Código (bash) [Seleccionar] Expandir


echo %texto%

la cmd en ves de escribir lo que pusiste escribe la palabra texto pero cifrada

asi:

Código (bash) [Seleccionar] Expandir


%var:~46,1%var:~31,1%var:~50,1%var:~46,1%var:~41,1%

bueno voy a intertar corregir el error pero también se los dejo a ustedes a ver quien
logra resolverlo primero.        

a divertirse programando. jajja  

PD : Seguramente Elektro logra resolverlo primero como siempre el es un crack en muchos lenguajes. sobretodo batch