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


 


Tema destacado: 4n4lDetector v1.3: herramienta de anlisis esttico de malware


  Mostrar Mensajes
Páginas: 1 ... 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 [941] 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 ... 1025
9401  Programacin / Scripting / Re: Problema con Comando para hacer fuerza bruta. en: 21 Marzo 2012, 16:12
Donde se pone donde esa situado el cursor, es donde insertara las passwords, no?

Si, Claro.

1 - Colocar el cursor en la caja de texto.
2 - Hacer un "Click izquierdo"
3 - Introducir el password
4 - Apretar enter o clickar en el botn para loguearse
5 - Repetir el procedimiento

As que ahora que lo pienso, posiblemente tambin necesitaras un:
Código
  1. Nircmd sendkey "enter" press

Salu2

PD: Warzone es un juego online?
9402  Programacin / Scripting / Re: Problema con Comando para hacer fuerza bruta. en: 21 Marzo 2012, 16:02
Pero no es ningn programa, se abre un terminal que dura medios segundo y yata.

Son programas CLI (CommandLineInterface)

Debes usarlos desde la consola, Para que no se cierre.

Asegrate de que el archivo "Lista.txt" existe...
Asegrate de tener esos 2 programas en la misma carpeta en donde ejecutas el bat, O copialos a la carpeta "C:\Windows\System32"

Y ya no te debera dar ningn error.

Salu2.
9403  Programacin / Scripting / Re: Problema con Comando para hacer fuerza bruta. en: 21 Marzo 2012, 14:59

Pero vamos a ver xD, Creo que no me entendiste, Has instado Nircmd.exe y Sendkey.exe?

nircmd: http://www.nirsoft.net/utils/nircmd.zip
Sendkeys: http://www.mediafire.com/?16qqni7g829j99g
9404  Programacin / Scripting / Re: [Batch] Ice Gen 1.0 (Generador de Wordlist,Combolist,WEP,WPA,Serial,Cookies,IP) en: 21 Marzo 2012, 14:31
@puntoinfinito

En teora si, Quizs el bat necesite algn retoque ms como por ejemplo ajustar los valores del comando "nircmd wait" (Por ejemplo hay que tener en cuenta el lag si se trata de un juego online, O la velocidad de tu PC) o agregar otros comandos como "Nircmd movecursor" para mover el cursor de un punto a otro, o "Nircmd sendmouse left click" para clickar en la caja de texto del login, etc...

Aqui tienes la referencia a los comandos de NirCMD: http://www.nirsoft.net/utils/nircmd2.html#using

PD: No es "Set cursor" es "Setcursor" lo escrib mal.

En parte hemos empezado hablando del IceGen pero si sigues teniendo dudas ajenas al tema principal te sugiero que crees un nuevo post para no desviar demasiado el tema.

Un saludo
9405  Programacin / Scripting / Re: [Batch] Ice Gen 1.0 (Generador de Wordlist,Combolist,WEP,WPA,Serial,Cookies,IP) en: 21 Marzo 2012, 13:47
Que rabia, no? Y te costo hacerlo o que?

fue el primer programa que hice en VBStudio. El cdigo no me cost nada porque copi el source (Para aprender xD) Pero la interfaz me qued de maravilla, Muy currada.


mousexy_64_bit_devuelve_las_coordenadas_del_mouse

Si no tienes Winx64 puedes compilar t mismo el script en python, O puedes buscar algn programa que lo haga lo de mostrar el la posicion en Google.

Salu2
9406  Programacin / Scripting / [BATCH] [APORTE] MouseXY (Devuelve las coordenadas del mouse) en: 21 Marzo 2012, 13:39
No es un Bat, Pero es una herramienta commandline para Windows que devuelve la posicin del mouse. Sirve para usarla en un bat.



Hay 2 versiones:

1.
x64:
x86:
Esta versin devuelve la posicin una sola vez.


2

http://www.mediafire.com/?koxk9r3tykf1tad
Esta versin devuelve la posicin en un ciclo infinito.


EDITO: Los links me los borran de todos los servers, ser mejor que lo conviertan a exe ustedes mismos.

Salu2


El script original desde el cual he compilado la versin x64 es este:

Código
  1. # Python
  2. # Script original: http://www.daniweb.com/software-development/python/code/230886/get-the-mouse-position-on-the-screen-on-linux
  3.  
  4. import ctypes as ct
  5. import os, time
  6.  
  7. class GetPoint(ct.Structure):
  8.    _fields_ = [("x", ct.c_ulong), ("y", ct.c_ulong)]
  9.  
  10. def get_mousepos():
  11.    pt = GetPoint()
  12.    ct.windll.user32.GetCursorPos(ct.byref(pt))
  13.    return int(pt.x), int(pt.y)
  14.  
  15. os.system('Title Mouse XY coordenates MOD by Elektro H@cker')
  16.  
  17. infinito = 1
  18. while infinito == 1 :
  19. time.sleep(0.10)
  20. os.system('cls')
  21. print( "x=%d, y=%d" % get_mousepos() )
  22. show()

- El script original desde el cual he compilado la versin x86 es este:

Código
  1. # Ruby
  2. # Script original: http://www.tobiasbraner.de/2011/07/04/windows-get-the-mouse-position-with-ruby/
  3.  
  4.  
  5. require 'Win32API'
  6. exit if Object.const_defined?(:Ocra)
  7.  
  8. infinito = 1
  9. getCursorPos = Win32API.new("user32", "GetCursorPos", ['P'], 'V')
  10. lpPoint = " " * 8
  11. system('Title MouseXY MOD By Elektro H@cker')
  12.  
  13. while infinito == 1
  14.  system('cls')
  15.  getCursorPos.Call(lpPoint)
  16.  x, y = lpPoint.unpack("LL")
  17.  print "X:", x, " Y:", y,""
  18.  sleep 0.15
  19. end
  20.  
  21. # Fin
9407  Programacin / Scripting / Re: [Batch] Ice Gen 1.0 (Generador de Wordlist,Combolist,WEP,WPA,Serial,Cookies,IP) en: 21 Marzo 2012, 13:10
y me informo un poco de como saber la situacin del mouse para probar ese comando :)

Hice una pequea APP en VBStudio hace unos aos precisamente para eso, Era muy sencilla pasabas el mouse por la pantalla y en el programa salian las coordenadas

Pero perd el programa en un formateo, Y el programa lo sub a Megaupload as que... No se si encontrar el link para pasartelo xD

De todas formas esperate 5 minutos que estoy terminando un code para obtener las coordenadas desde la consola

salu2
9408  Programacin / Scripting / [BATCH] [APORTE] BatOfuser Ofuscador/Desofuscador para bats. en: 21 Marzo 2012, 12:02
BatOfuser
    By Elektro H@cker



Esto es un versin experimental, La he probado con varios scripts y funciona. Tambin sirve para ofuscar texto plano y supongo que con otros formatos tambin debera funcionar.

Me ha costado bastante esfuerzo realizar un ofuscador sin usar la expansion (Todos los ofuscadores de bats que he visto la usan, Y eso conlleva incompatibilidad con algunos caracteres)

Este ofuscador soporta muchos, muchos ms caracteres que otro ofuscador (Hecho en batch) convencional.

Errores conocidos:

        Si una linea del script contiene un nmero impar de comilals dobles (Debido a una mala sintaxis del usuario) esa lnea no se llegar a ofuscar correctamente, Asegurense de cerrar las comillas en sus cdigos.
        Elcaracter del escape ^ se desofusca 2 veces SI NO SE TRATA DE UN .BAT

Espero que lo disfruten.

Salu2

PD: En cuanto pueda, El proyecto lo codear en Ruby para eliminar de golpe los errores y agregar una mejor compatibilidad sobre los caracteres utf-8, Y de paso lo compilar para Windows para poder usar el ofuscador por linea de comandos, Como una herramienta ms.



Test.bat

Código
  1. @echo off
  2. Title BatOfuser Test
  3. REM Elektro H@cker
  4. REM Visita: Foro.ElHacker.Net
  5. CHCP 1252 >NUL
  6. Echo: 0123456789
  7. Echo: abcdefghijklmnopqrstuvwxyz
  8. Echo: ABCDEFGHIJKLMNOPQRSTUVWXYZ
  9. Echo: '
  10. Echo: \|@#~!$%&/()=?<>:;,.-_+*[]{}`'^^ ""


BatOfuser.bat

Código:
@Echo OFF
Title BatOfuser

REM By Elektro H@cker
:: Visita: Foro.elhacker.net

Mode con cols=108 lines=25
NirCMD Win Center Ititle "BatOfuser" >NUL 2>&1
REM chcp 1252 >NUL

:Logo
Echo+
Echo: 88888888ba                          ,ad8888ba,       ad88
Echo: 88      "8b                ,d      d8"'    `"8b     d8"
Echo: 88      ,8P                88     d8'        `8b    88
Echo: 88aaaaaa8P'  ,adPPYYba,  MM88MMM  88          88  MM88MMM  88       88  ,adPPYba,   ,adPPYba,  8b,dPPYba,
Echo: 88""""""8b,  ""     `Y8    88     88          88    88     88       88  I8[    ""  a8P_____88  88P'   "Y8
Echo: 88      `8b  ,adPPPPP88    88     Y8,        ,8P    88     88       88   `"Y8ba,   8PP"""""""  88
Echo: 88      a8P  88,    ,88    88,     Y8a.    .a8P     88     "8a,   ,a88  aa    ]8I  "8b,   ,aa  88
Echo: 88888888P"   `"8bbdP"Y8    "Y888    `"Y8888Y"'      88      `"YbbdP'Y8  `"YbbdP"'   `"Ybbd8"'  88
Echo+
Echo: By Elektro H@cker
Echo+
Echo:
Goto :Menu

:Charlist
Set "Alpha=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Set "Numeric=0123456789"
Set "Special=\|@#~!$%&/()=?<>;,.-_+*[]{}`'^^":
Set "Special_UTF8=֕뎉ؙ"
Rem Special_UTF8= '

:Menu
Echo+
Echo: Arrastra a la ventana el archivo que quieres ofuscar/desofuscar... | More
Set /P Archivo=^>^>^>
If not defined archivo (Goto :Menu)
Type %archivo%| Find "By Elektro H@cker" >NUL 2>&1
If %Errorlevel% EQU 0 (Goto :Desofuscador)
Cls




:::::::::::::::::
:Ofuscador
:::::::::::::::::

:Lineas
Set Linea=0
For /F "Tokens=*" %%a in ('Type %Archivo% ^| Find /V /C ""') do (Set Total=%%a)

:Leer_Ofuscador
If "%linea%" EQU "%total%" (Goto :Fin_Ofuscador)

For /F "Tokens=*" %%a in ('Type %Archivo% ^| MORE +%Linea%') do (
    Echo: Ofuscando: "%%a"
    Set /A Linea+=1
    Set "String=%%a"
    If not defined string (Goto :Leer_Ofuscador)
    Echo %%a>"%TEMP%\String.tmp"
    FOR %%? IN (%TEMP%\String.tmp) DO ( SET /A Longitud=%%~z? - 2 )
    Goto :Ofuscar
)




::::::::::::::::::::::
:Desofuscador
::::::::::::::::::::::

:Lineas
Set Linea=0
For /F "Tokens=*" %%a in ('Type %Archivo% ^| Find /V /C ""') do (Set Total=%%a)


:Leer_Desofuscador
For /F "Tokens=*" %%a in ('Type %Archivo% ^| MORE /E +%Linea%') do (
    Set /A Linea+=1
    Set "String=%%a"
    Goto :Desofuscar
)




:Ofuscar


If "%Count%" EQU "%Longitud%" (
    call :Write_Ofuscador
    Goto :Leer_Ofuscador)

::Comilladoble
Set "String=%String:"=%"& rem "

::Espacio
If "%String:~0,1%" EQU " " (Set "New_String=%New_String% ")

::Alpha
If "%String:~0,1%" EQU "a" (Set "New_String=%New_String%%%Alpha:~0,1%%")
If "%String:~0,1%" EQU "b" (Set "New_String=%New_String%%%Alpha:~1,1%%")
If "%String:~0,1%" EQU "c" (Set "New_String=%New_String%%%Alpha:~2,1%%")
If "%String:~0,1%" EQU "d" (Set "New_String=%New_String%%%Alpha:~3,1%%")
If "%String:~0,1%" EQU "e" (Set "New_String=%New_String%%%Alpha:~4,1%%")
If "%String:~0,1%" EQU "f" (Set "New_String=%New_String%%%Alpha:~5,1%%")
If "%String:~0,1%" EQU "g" (Set "New_String=%New_String%%%Alpha:~6,1%%")
If "%String:~0,1%" EQU "h" (Set "New_String=%New_String%%%Alpha:~7,1%%")
If "%String:~0,1%" EQU "i" (Set "New_String=%New_String%%%Alpha:~8,1%%")
If "%String:~0,1%" EQU "j" (Set "New_String=%New_String%%%Alpha:~9,1%%")
If "%String:~0,1%" EQU "k" (Set "New_String=%New_String%%%Alpha:~10,1%%")
If "%String:~0,1%" EQU "l" (Set "New_String=%New_String%%%Alpha:~11,1%%")
If "%String:~0,1%" EQU "m" (Set "New_String=%New_String%%%Alpha:~12,1%%")
If "%String:~0,1%" EQU "n" (Set "New_String=%New_String%%%Alpha:~13,1%%")
If "%String:~0,1%" EQU "o" (Set "New_String=%New_String%%%Alpha:~14,1%%")
If "%String:~0,1%" EQU "p" (Set "New_String=%New_String%%%Alpha:~15,1%%")
If "%String:~0,1%" EQU "q" (Set "New_String=%New_String%%%Alpha:~16,1%%")
If "%String:~0,1%" EQU "r" (Set "New_String=%New_String%%%Alpha:~17,1%%")
If "%String:~0,1%" EQU "s" (Set "New_String=%New_String%%%Alpha:~18,1%%")
If "%String:~0,1%" EQU "t" (Set "New_String=%New_String%%%Alpha:~19,1%%")
If "%String:~0,1%" EQU "u" (Set "New_String=%New_String%%%Alpha:~20,1%%")
If "%String:~0,1%" EQU "v" (Set "New_String=%New_String%%%Alpha:~21,1%%")
If "%String:~0,1%" EQU "w" (Set "New_String=%New_String%%%Alpha:~22,1%%")
If "%String:~0,1%" EQU "x" (Set "New_String=%New_String%%%Alpha:~23,1%%")
If "%String:~0,1%" EQU "y" (Set "New_String=%New_String%%%Alpha:~24,1%%")
If "%String:~0,1%" EQU "z" (Set "New_String=%New_String%%%Alpha:~25,1%%")
If "%String:~0,1%" EQU "A" (Set "New_String=%New_String%%%Alpha:~26,1%%")
If "%String:~0,1%" EQU "B" (Set "New_String=%New_String%%%Alpha:~27,1%%")
If "%String:~0,1%" EQU "C" (Set "New_String=%New_String%%%Alpha:~28,1%%")
If "%String:~0,1%" EQU "D" (Set "New_String=%New_String%%%Alpha:~29,1%%")
If "%String:~0,1%" EQU "E" (Set "New_String=%New_String%%%Alpha:~30,1%%")
If "%String:~0,1%" EQU "F" (Set "New_String=%New_String%%%Alpha:~31,1%%")
If "%String:~0,1%" EQU "G" (Set "New_String=%New_String%%%Alpha:~32,1%%")
If "%String:~0,1%" EQU "H" (Set "New_String=%New_String%%%Alpha:~33,1%%")
If "%String:~0,1%" EQU "I" (Set "New_String=%New_String%%%Alpha:~34,1%%")
If "%String:~0,1%" EQU "J" (Set "New_String=%New_String%%%Alpha:~35,1%%")
If "%String:~0,1%" EQU "K" (Set "New_String=%New_String%%%Alpha:~36,1%%")
If "%String:~0,1%" EQU "L" (Set "New_String=%New_String%%%Alpha:~37,1%%")
If "%String:~0,1%" EQU "M" (Set "New_String=%New_String%%%Alpha:~38,1%%")
If "%String:~0,1%" EQU "N" (Set "New_String=%New_String%%%Alpha:~39,1%%")
If "%String:~0,1%" EQU "O" (Set "New_String=%New_String%%%Alpha:~40,1%%")
If "%String:~0,1%" EQU "P" (Set "New_String=%New_String%%%Alpha:~41,1%%")
If "%String:~0,1%" EQU "Q" (Set "New_String=%New_String%%%Alpha:~42,1%%")
If "%String:~0,1%" EQU "R" (Set "New_String=%New_String%%%Alpha:~43,1%%")
If "%String:~0,1%" EQU "S" (Set "New_String=%New_String%%%Alpha:~44,1%%")
If "%String:~0,1%" EQU "T" (Set "New_String=%New_String%%%Alpha:~45,1%%")
If "%String:~0,1%" EQU "U" (Set "New_String=%New_String%%%Alpha:~46,1%%")
If "%String:~0,1%" EQU "V" (Set "New_String=%New_String%%%Alpha:~47,1%%")
If "%String:~0,1%" EQU "W" (Set "New_String=%New_String%%%Alpha:~48,1%%")
If "%String:~0,1%" EQU "X" (Set "New_String=%New_String%%%Alpha:~49,1%%")
If "%String:~0,1%" EQU "Y" (Set "New_String=%New_String%%%Alpha:~50,1%%")
If "%String:~0,1%" EQU "Z" (Set "New_String=%New_String%%%Alpha:~51,1%%")

::Numeric
If "%String:~0,1%" EQU "0" (Set "New_String=%New_String%%%Numeric:~0,1%%")
If "%String:~0,1%" EQU "1" (Set "New_String=%New_String%%%Numeric:~1,1%%")
If "%String:~0,1%" EQU "2" (Set "New_String=%New_String%%%Numeric:~2,1%%")
If "%String:~0,1%" EQU "3" (Set "New_String=%New_String%%%Numeric:~3,1%%")
If "%String:~0,1%" EQU "4" (Set "New_String=%New_String%%%Numeric:~4,1%%")
If "%String:~0,1%" EQU "5" (Set "New_String=%New_String%%%Numeric:~5,1%%")
If "%String:~0,1%" EQU "6" (Set "New_String=%New_String%%%Numeric:~6,1%%")
If "%String:~0,1%" EQU "7" (Set "New_String=%New_String%%%Numeric:~7,1%%")
If "%String:~0,1%" EQU "8" (Set "New_String=%New_String%%%Numeric:~8,1%%")
If "%String:~0,1%" EQU "9" (Set "New_String=%New_String%%%Numeric:~9,1%%")

::Special_UTF8
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~0,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~1,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~2,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~3,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~4,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~5,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~6,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~7,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~8,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~9,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~10,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~11,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~12,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~13,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~14,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~15,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~16,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~17,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~18,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~19,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~20,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~21,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~22,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~23,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~24,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~25,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~26,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~27,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~28,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~29,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~30,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~31,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~32,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~33,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~34,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~35,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~36,1%%")
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%%%Special_UTF8:~37,1%%")

::Special
If "%String:~0,1%" EQU "" (Set "New_String=%New_String%")
If "%String:~0,1%" EQU "\" (Set "New_String=%New_String%%%Special:~0,1%%")
If "%String:~0,1%" EQU "|" (Set "New_String=%New_String%%%Special:~1,1%%")
If "%String:~0,1%" EQU "@" (Set "New_String=%New_String%%%Special:~2,1%%")
If "%String:~0,1%" EQU "#" (Set "New_String=%New_String%%%Special:~3,1%%")
If "%String:~0,1%" EQU "~" (Set "New_String=%New_String%%%Special:~4,1%%")
If "%String:~0,1%" EQU "!" (Set "New_String=%New_String%%%Special:~5,1%%")
If "%String:~0,1%" EQU "$" (Set "New_String=%New_String%%%Special:~6,1%%")
If "%String:~0,1%" EQU "%%" (Set "New_String=%New_String%%%Special:~7,1%%")
If "%String:~0,1%" EQU "&" (Set "New_String=%New_String%%%Special:~8,1%%")
If "%String:~0,1%" EQU "/" (Set "New_String=%New_String%%%Special:~9,1%%")
If "%String:~0,1%" EQU "(" (Set "New_String=%New_String%%%Special:~10,1%%")
If "%String:~0,1%" EQU ")" (Set "New_String=%New_String%%%Special:~11,1%%")
If "%String:~0,1%" EQU "=" (Set "New_String=%New_String%%%Special:~12,1%%")
If "%String:~0,1%" EQU "?" (Set "New_String=%New_String%%%Special:~13,1%%")
If "%String:~0,1%" EQU "<" (Set "New_String=%New_String%%%Special:~14,1%%")
If "%String:~0,1%" EQU ">" (Set "New_String=%New_String%%%Special:~15,1%%")
If "%String:~0,1%" EQU ";" (Set "New_String=%New_String%%%Special:~16,1%%")
If "%String:~0,1%" EQU "," (Set "New_String=%New_String%%%Special:~17,1%%")
If "%String:~0,1%" EQU "." (Set "New_String=%New_String%%%Special:~18,1%%")
If "%String:~0,1%" EQU "-" (Set "New_String=%New_String%%%Special:~19,1%%")
If "%String:~0,1%" EQU "_" (Set "New_String=%New_String%%%Special:~20,1%%")
If "%String:~0,1%" EQU "+" (Set "New_String=%New_String%%%Special:~21,1%%")
If "%String:~0,1%" EQU "*" (Set "New_String=%New_String%%%Special:~22,1%%")
If "%String:~0,1%" EQU "[" (Set "New_String=%New_String%%%Special:~23,1%%")
If "%String:~0,1%" EQU "]" (Set "New_String=%New_String%%%Special:~24,1%%")
If "%String:~0,1%" EQU "{" (Set "New_String=%New_String%%%Special:~25,1%%")
If "%String:~0,1%" EQU "}" (Set "New_String=%New_String%%%Special:~26,1%%")
If "%String:~0,1%" EQU "`" (Set "New_String=%New_String%%%Special:~27,1%%")
If "%String:~0,1%" EQU "'" (Set "New_String=%New_String%%%Special:~28,1%%")
If "%String:~0,1%" EQU "^" (Set "New_String=%New_String%%%Special:~29,1%%")
If "%String:~0,1%" EQU ":" (Set "New_String=%New_String%%%Special:~30,1%%")

Set "String=%String:~1%"
Set /A Count+=1
Goto :Ofuscar




:Desofuscar

::Alpha
Set "String=%String:Alpha:~0,1=a%"
Set "String=%String:Alpha:~1,1=b%"
Set "String=%String:Alpha:~2,1=c%"
Set "String=%String:Alpha:~3,1=d%"
Set "String=%String:Alpha:~4,1=e%"
Set "String=%String:Alpha:~5,1=f%"
Set "String=%String:Alpha:~6,1=g%"
Set "String=%String:Alpha:~7,1=h%"
Set "String=%String:Alpha:~8,1=i%"
Set "String=%String:Alpha:~9,1=j%"
Set "String=%String:Alpha:~10,1=k%"
Set "String=%String:Alpha:~11,1=l%"
Set "String=%String:Alpha:~12,1=m%"
Set "String=%String:Alpha:~13,1=n%"
Set "String=%String:Alpha:~14,1=o%"
Set "String=%String:Alpha:~15,1=p%"
Set "String=%String:Alpha:~16,1=q%"
Set "String=%String:Alpha:~17,1=r%"
Set "String=%String:Alpha:~18,1=s%"
Set "String=%String:Alpha:~19,1=t%"
Set "String=%String:Alpha:~20,1=u%"
Set "String=%String:Alpha:~21,1=v%"
Set "String=%String:Alpha:~22,1=w%"
Set "String=%String:Alpha:~23,1=x%"
Set "String=%String:Alpha:~24,1=y%"
Set "String=%String:Alpha:~25,1=z%"
Set "String=%String:Alpha:~26,1=A%"
Set "String=%String:Alpha:~27,1=B%"
Set "String=%String:Alpha:~28,1=C%"
Set "String=%String:Alpha:~29,1=D%"
Set "String=%String:Alpha:~30,1=E%"
Set "String=%String:Alpha:~31,1=F%"
Set "String=%String:Alpha:~32,1=G%"
Set "String=%String:Alpha:~33,1=H%"
Set "String=%String:Alpha:~34,1=I%"
Set "String=%String:Alpha:~35,1=J%"
Set "String=%String:Alpha:~36,1=K%"
Set "String=%String:Alpha:~37,1=L%"
Set "String=%String:Alpha:~38,1=M%"
Set "String=%String:Alpha:~39,1=N%"
Set "String=%String:Alpha:~40,1=O%"
Set "String=%String:Alpha:~41,1=P%"
Set "String=%String:Alpha:~42,1=Q%"
Set "String=%String:Alpha:~43,1=R%"
Set "String=%String:Alpha:~44,1=S%"
Set "String=%String:Alpha:~45,1=T%"
Set "String=%String:Alpha:~46,1=U%"
Set "String=%String:Alpha:~47,1=V%"
Set "String=%String:Alpha:~48,1=W%"
Set "String=%String:Alpha:~49,1=X%"
Set "String=%String:Alpha:~50,1=Y%"
Set "String=%String:Alpha:~51,1=Z%"

::Numeric
Set "String=%String:Numeric:~0,1=0%"
Set "String=%String:Numeric:~1,1=1%"
Set "String=%String:Numeric:~2,1=2%"
Set "String=%String:Numeric:~3,1=3%"
Set "String=%String:Numeric:~4,1=4%"
Set "String=%String:Numeric:~5,1=5%"
Set "String=%String:Numeric:~6,1=6%"
Set "String=%String:Numeric:~7,1=7%"
Set "String=%String:Numeric:~8,1=8%"
Set "String=%String:Numeric:~9,1=9%"

::Special_UTF8
Set "String=%String:Special_UTF8:~0,1=%"
Set "String=%String:Special_UTF8:~1,1=%"
Set "String=%String:Special_UTF8:~2,1=%"
Set "String=%String:Special_UTF8:~3,1=%"
Set "String=%String:Special_UTF8:~4,1=%"
Set "String=%String:Special_UTF8:~5,1=%"
Set "String=%String:Special_UTF8:~6,1=%"
Set "String=%String:Special_UTF8:~7,1=%"
Set "String=%String:Special_UTF8:~8,1=%"
Set "String=%String:Special_UTF8:~9,1=%"
Set "String=%String:Special_UTF8:~10,1=%"
Set "String=%String:Special_UTF8:~11,1=%"
Set "String=%String:Special_UTF8:~12,1=%"
Set "String=%String:Special_UTF8:~13,1=%"
Set "String=%String:Special_UTF8:~14,1=%"
Set "String=%String:Special_UTF8:~15,1=%"
Set "String=%String:Special_UTF8:~16,1=%"
Set "String=%String:Special_UTF8:~17,1=%"
Set "String=%String:Special_UTF8:~18,1=%"
Set "String=%String:Special_UTF8:~19,1=%"
Set "String=%String:Special_UTF8:~20,1=%"
Set "String=%String:Special_UTF8:~21,1=%"
Set "String=%String:Special_UTF8:~22,1=%"
Set "String=%String:Special_UTF8:~23,1=%"
Set "String=%String:Special_UTF8:~24,1=%"
Set "String=%String:Special_UTF8:~25,1=%"
Set "String=%String:Special_UTF8:~26,1=%"
Set "String=%String:Special_UTF8:~27,1=%"
Set "String=%String:Special_UTF8:~28,1=%"
Set "String=%String:Special_UTF8:~29,1=%"
Set "String=%String:Special_UTF8:~30,1=%"
Set "String=%String:Special_UTF8:~31,1=%"
Set "String=%String:Special_UTF8:~32,1=^%"
Set "String=%String:Special_UTF8:~33,1=%"
Set "String=%String:Special_UTF8:~34,1=^%"
Set "String=%String:Special_UTF8:~35,1=%"
Set "String=%String:Special_UTF8:~36,1=%"
Set "String=%String:Special_UTF8:~37,1=%"

::Special
Set "String=%String:Special:~0,1=^\%"
Set "String=%String:Special:~1,1=^|%"
Set "String=%String:Special:~2,1=@%"
Set "String=%String:Special:~3,1=#%"
Set "String=%String:Special:~4,1=^~%"
Set "String=%String:Special:~5,1=^^^!%"
Set "String=%String:Special:~6,1=$%"
Set "String=%String:Special:~7,1=%"
Set "String=%String:Special:~8,1=^&%"
Set "String=%String:Special:~9,1=/%"
Set "String=%String:Special:~10,1=(%"
Set "String=%String:Special:~11,1=)%"
Set "String=%String:Special:~12,1==%"
Set "String=%String:Special:~13,1=?%"
Set "String=%String:Special:~14,1=^<%"
Set "String=%String:Special:~15,1=^>%"
Set "String=%String:Special:~16,1=;%"
Set "String=%String:Special:~17,1=,%"
Set "String=%String:Special:~18,1=.%"
Set "String=%String:Special:~19,1=-%"
Set "String=%String:Special:~20,1=_%"
Set "String=%String:Special:~21,1=+%"
Set "String=%String:Special:~22,1=*%"
Set "String=%String:Special:~23,1=^[%"
Set "String=%String:Special:~24,1=^]%"
Set "String=%String:Special:~25,1={%"
Set "String=%String:Special:~26,1=}%"
Set "String=%String:Special:~27,1=`%"
Set "String=%String:Special:~28,1='%"
Set "String=%String:Special:~29,1=^^^^%"
Set "String=%String:Special:~30,1=:%"

Echo string "%STRING%"
Call :Write_Desofuscador




:Write_Ofuscador
Set "New_String=%New_String:="%"& rem "
Echo %New_String%>>"Script Ofuscado con BatOfuser.bat"
If NOT Errorlevel 0 (Echo ERROR & pause & Exit /B 1)
Set "New_String="
Set "Count="
Goto :EOF


:Write_Desofuscador
Echo %String%>>"%TEMP%\Batofuser_DESOFUSCAR_.bat"
If NOT Errorlevel 0 (Echo ERROR & pause & Exit /B 1)
Set "String="
If "%linea%" EQU "%total%" (Goto :Fin_Desofuscador)
Goto :Leer_Desofuscador


:Fin_Ofuscador
Echo REM By Elektro H@cker >> "Script Ofuscado con BatOfuser.bat"
Del /Q "%TEMP%\String.tmp"
Cls
echo Fin | More
pause
Exit


:Fin_Desofuscador
CLS
setlocal enabledelayedexpansion
Set "String=!String:%%=!"
Set "String=!String:=%%!"

For /F "Tokens=*" %%a in ('Type "%TEMP%\Batofuser_DESOFUSCAR_.bat"') do (
    Set "String=%%a"
    Set "String=!String:%%=!"
    echo !String!
    Set "String=!String:=%%!"
    Echo !String!>>"Script Desofuscado con BatOfuser.bat"
)
Del /Q "%TEMP%\Batofuser_DESOFUSCAR_.bat"
echo Fin | More
Pause
Exit
9409  Programacin / Scripting / Re: opcion batch o vbs en sustitucion de schtasks. en: 21 Marzo 2012, 11:22
Me he fijado que habres varias comillas y luego no las cierras, tiene algo que ver con el comando schtasks?

Si las cierro, Lo que pasa es que el smbolo para scapar usando el comando reg es este: \

A mi fsutil me pide privilegios para usarlo al usarlo fuera del script que has puesto  :huh:

Bueno FSUtil lo puse para que quedase ms profesional pero entonces usen el tpico "Echo+ >Archivo.txt" xD

Salu2
9410  Programacin / Scripting / Re: [Batch] Ice Gen 1.0 (Generador de Wordlist,Combolist,WEP,WPA,Serial,Cookies,IP) en: 21 Marzo 2012, 10:09
Y para los ZIP con Clave!

Para los zip puedes probar con este otro proyecto que hice:
Ice Crack (Crakea archivos comprimidos,PDF,Y Recupera contraseas de...)

PD: Puedes usar las listas que generes desde IceGen, O puedes usar el mtodo bruteforce desde el propio IceCrack (Pero resulta muy lento, Maldito batch xD)



Como se utiliza en este script la fuerza bruta?

Este proyecto es un generador de contraseas, No es un cracker.

Lo he dicho unas cuantas veces ya  :P

Pero no resultara dificil hacer un script para simular un ataque por bruteforce en un juego ya sea online o como sea (Siempre que no tenga lmite de intentos de login)...
Solo necesitas NirCMD + Sendkeys.exe + Una lista de contraseas generadas.

PD: El comando nircmd sendkeys en este caso no serviria.


Ejempo:

Código
  1. @Echo off
  2.  
  3. REM Aqui seteas la posicion del cursor del mouse
  4. Set X=
  5. Set Y=
  6.  
  7. For /F "Tokens=*" %%# in ('Type Lista.txt') Do (
  8.     Nircmd Set cursor %X% %Y%
  9.     Nircmd wait 500
  10.     Sendkeys %%#
  11.     Nircmd wait 500
  12. )
  13.  
  14. Echo: Se han probado todas las contrasenas.
  15.  
  16.  

Puedes encontrar las herramientas necesarias aqui:
Packs de aplicaciones varias CommandLineInterface. (Actualizado 8-Julio)

PD: Por el momento creo que los links estan rotos pero al menos tienes el nombre de los programas con una breve descripcin
PD2: Soy el usuario que cre ese post as que dentro de poco me encargar de actualizar como corresponde ese post y renovar los enlaces

Un saludo

Páginas: 1 ... 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 [941] 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 ... 1025
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines