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

 

 


Tema destacado: Curso de javascript por TickTack


  Mostrar Mensajes
Páginas: 1 ... 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 [1139] 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 ... 1236
11381  Programación / Scripting / Re: Errores de Identacion en python en: 30 Marzo 2012, 15:35 pm
El intérprete de Python te dice donde está el error y la linea que debes indentar.

Citar
  File "TEST.Py", line 19
    time.sleep(0.10)
       ^
IndentationError: expected an indented block

Salu2.
11382  Sistemas Operativos / Windows / Re: Claves WPA Registro de windows en: 30 Marzo 2012, 04:16 am
Cita de: PabloStriker en 29 Marzo 2012, 23:35 pm
Lo he intentado con el wirelesskeyview pero no me reconoce ninguna clave.

Prueba esto, Si no te reconoce la clave no intentes buscarla más: [Batch] Ice Crack (Crakea archivos comprimidos,PDF,Y Recupera contraseñas de...)

PD: http://www.nirsoft.net/utils/wireless_key.html

Salu2.
11383  Sistemas Operativos / Windows / Re: notepad win7, ? en: 30 Marzo 2012, 04:09 am
Cita de: dato000 en 30 Marzo 2012, 03:38 am
ummm dejando el trolleo, me pregunto, no les sale a veces ese desktop.ini??? siempre me ha parecido inofensivo, no le veo nada raro, pero a veces esta y a veces no.

Es un archivo oculto (por defecto), Quizás solo te lo encuentras cuando activas los archivos ocultos... no se, Pero sin lugar a dudas es inofensivo, Yo lo uso para cambiarle el icono a la carpeta.

Salu2.
11384  Programación / Scripting / Re: Abrir lectora con .bat en: 30 Marzo 2012, 04:02 am
No se reviven temas de hace 2 años.

Salu2.

PD:
http://www.rjlsoftware.com/software/utility/open_cd/
Código:
OPEN_CD.EXE {open or close} {cd-rom drive letter}

PD2:
http://www.nirsoft.net/utils/nircmd.html
Código:
nircmd.exe cdrom open (cd-rom drive letter):
11385  Programación / Scripting / [BATCH/RUBY] [APORTE] REG2BAT (Convierte archivos REG a BAT) en: 30 Marzo 2012, 01:28 am


Un simple programa por línea de comandos que convierte archivos de registro (.REG) a archivos por lotes (.BAT)

 Modo de empleo:
Código:
REG2BAT.exe [Archivo]

 Ejemplos:
Código:
REG2BAT.exe Archivo.reg
REG2BAT.exe *.reg
REG2BAT.exe *

Ahora con un sencillo instalador!
Convierte archivos con un solo click del ratón! ::)

(Hecho especialmente para aquellos Batcheros que no disponen del intérprete de Ruby  :-[)



Nota:
Esta version solamente es compatible con archivos de registro en codificación Unicode, debido a las mejoras para evitar los bugs corregidos.


Test.reg
(Un simple archivo de registro para que puedan testear el programa.)

Código:
Windows Registry Editor Version 5.00

# Delete test:
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]
"my key"=-
[-HKEY_CURRENT_USER\test]

# Add Test
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]
"Binary Test"=hex:da,da,d2,dd,d0
"Dword Test"=dword:23523626
"Expand SZ Test"=hex(2):25,00,77,00,69,00,6e,00,64,00,69,00,72,00,25,00,00,00
"Multi SZ Test"=hex(7):22,00,63,00,3a,00,5c,00,70,00,72,00,6f,00,67,00,72,00,\
  61,00,6d,00,20,00,66,00,69,00,6c,00,65,00,73,00,5c,00,74,00,65,00,73,00,74,\
  00,2e,00,65,00,78,00,65,00,22,00,00,00,00,00
"Qword Test"=hex(b):2f,3b,00,00,00,00,00,00
"SZ Test"="Wscript.exe \"C:\\Program Files (x86)\\RUN.vbs\""

La conversión del test.reg:

Código
  1. REG DELETE "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /V "my key" /F 
  2. REG DELETE "HKCU\test" /F 
  3. REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /V "Binary Test" /T "REG_BINARY" /D dadad2ddd0 /F 
  4. REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /V "Dword Test" /T "REG_DWORD" /D 0x23523626 /F 
  5. REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /V "Expand SZ Test" /T "REG_EXPAND_SZ" /D "%%windir%%" /F 
  6. REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /V "Qword Test" /T "REG_QWORD" /D "0x0000000000003b2f" /F 
  7. REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /V "Multi SZ Test" /T "REG_MULTI_SZ" /D "\"c:\program files\test.exe\"" /F 
  8. REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /V "SZ Test" /T "REG_SZ" /D "Wscript.exe \"C:\Program Files (x86)\RUN.vbs\"" /F


REG2BAT.rb

Versión 0.3

Soporte para convertir lineas de comentario a comentario de Batch
Se ha mejorado la eficacia de conversión para evitar al 100% problemas con claves de varias lineas.

Bugs corregidos:
 - Error al intentar convertir una clave binaria de varias lineas
 - Error al convertir claves predeterminadas

Versión 0.2
Ahora soporta el uso del comodín *
Código:
REG2BAT *
REG2BAT *.reg

Código:
# -*- coding: UTF-8 -*-


# # # # # # # # # # # # # # # # # # #

#           REG2BAT v0.3            #          

#         By Elektro H@cker         #

#  Tested with REGEDIT 5.0 version  #

# # # # # # # # # # # # # # # # # # #


require 'tmpdir'
exit if Object.const_defined?(:Ocra)

def logo
  puts "
 _  .-')     ('-.                              .-. .-')     ('-.     .-') _    
( \\( -O )  _(  OO)                             \\  ( OO )   ( OO ).-.(  OO) )   
 ,------. (,------. ,----.         .-----.      ;-----.\\   / . --. //     '._  
 |   /`. ' |  .---''  .-./-')     / ,-.   \\     | .-.  |   | \\-.  \\ |'--...__) 
 |  /  | | |  |    |  |_( O- )    '-'  |  |     | '-' /_).-'-'  |  |'--.  .--' 
 |  |_.' |(|  '--. |  | .--, \\       .'  /      | .-. `.  \\| |_.'  |   |  |    
 |  .  '.' |  .--'(|  | '. (_/     .'  /__      | |  \\  |  |  .-.  |   |  |    
 |  |\\  \\  |  `---.|  '--'  |     |       |     | '--'  /  |  | |  |   |  |    
 `--' '--' `------' `------'      `-------'     `------'   `--' `--'   `--'    
  "

  puts "

                          Coded by Elektro H@cker

                      ▄                        ▄█████  
                      ███▄▄        ▄▄▄▄▄▄▄▄█████████▀  
                      ██████▀ ▄▄████████████████████   
                      ▀████ ▄███████████████████████▄  
                       ███ ▄███████████████████████████
                       ▀█ █████████████████▀▀   ██ ████
                      ▄▄█████████████████▀      ██ ████
                      ███▀▀████████████▀       ▄█  ████
                      ███▄    ▀▀█████▀ ▄▀▄    ▄█  ▄████
                       ███▄▄  ▄▀▄ ▀███▄▀▀  ▄▄▀█▀  █████
                      ▄▄█▄▀█▄▄ ▀▀████████▀███  ▄ ██████
                      ▀████▄▀▀▀██▀▀██▀▀██  ▀█  █▄█████ 
                        ▀▀███▄ ▀█  ▀█   ▀ █   ▄██████ ▄
                      ████▄▄▀██▄ █  ▄  █▄ ███ ████▀▀ ▄█
                      █▀▀▀▀▀▀ █████▄█▄▄████████▀ ▄▄ ▄██
                       ▄▄█▀▀   ▀█▀██████████▀ ▄███  █▀ 
                      ██▀   ▄▄▀  ▄ ▀▀▀████▀ ▄████      
                      █ ▄██  ▄██      ▀█  ████  ▄███▄
                        ▄███ ▄███            ▀▀  ▄   ▀▀
  "
  sleep 0.5
end

def help()
  print "\n How to use:\n\n"
  print "  " + __FILE__.split('/').last + " [File]\n\n"
  print "\n Examples:\n\n"
  print "  " + __FILE__.split('/').last + " File.reg\n\n"
  print "  " + __FILE__.split('/').last + " *.reg\n\n"
  print "  " + __FILE__.split('/').last + " *\n\n"
  Process.exit
end

def expand(string)

# Comment line
  if string[0].eql? (';')
      $key = string
      print "[COMMENT] #{string}\n"
      write_comment()
      $key = ''
  end # Comment line

# Key to delete
  if string[0..1].eql? ('[-')
    $key = string[2..-2]
    $key = $key.gsub('HKEY_CLASSES_ROOT', 'HKCR').gsub('HKEY_CURRENT_USER', 'HKCU').gsub('HKEY_LOCAL_MACHINE', 'HKLM').gsub('HKEY_USERS', 'HKU')
    $subkey = ''
    print "IN: [-#{$key}]\n\n"
    write_delete()
    $key = ''

# Key to add
  elsif string[0..0].eql? ('[') and string[-1].eql? (']')
    $key = string[1..-2]
    $key = $key.gsub('HKEY_CLASSES_ROOT', 'HKCR').gsub('HKEY_CURRENT_USER', 'HKCU').gsub('HKEY_LOCAL_MACHINE', 'HKLM').gsub('HKEY_USERS', 'HKU')
    print "IN: #{string}\n\n"

#Subkey to delete
  elsif string[-1].eql? ('-')
    $subkey = string
    $subkey = $subkey[0..-3]
    print "[REG] #{string}\n"
    write_delete
    $key = ''

#Subkey to add
  elsif string.include? '"'
    if not $key.eql? ''

      $subkey = string
      $subkey = $subkey.gsub('\\\\', '\\')
      $subkey = $subkey.gsub(      '@=' , ' "" /D '                )
      $subkey = $subkey.gsub(   '=hex:' , ' /T "REG_BINARY" /D '   )
      $subkey = $subkey.gsub('=hex(2):' , ' /T "REG_EXPAND_SZ" /D ')
      $subkey = $subkey.gsub('=hex(7):' , ' /T "REG_MULTI_SZ" /D ' )
      $subkey = $subkey.gsub('=hex(b):' , ' /T "REG_QWORD" /D '    )
      $subkey = $subkey.gsub( '=dword:' , ' /T "REG_DWORD" /D '    )
      $subkey = $subkey.gsub(     '"="' ,'" /T "REG_SZ" /D "'      )

      # BIANRY
        if $subkey.include? 'REG_BINARY'
           $subkey = $subkey.gsub(',' , '')
        end # BINARY

      # DWORD
        if $subkey.include? 'REG_DWORD'
           $DWORD_data = $subkey.split('/D').last
           $New_DWORD_data =  ' 0x' + $DWORD_data[1..-1]
           $subkey = $subkey.gsub($DWORD_data, $New_DWORD_data)
        end # DWORD

      # QWORD
        if $subkey.include? 'REG_QWORD'
           $QWORD_data = $subkey.split('/D').last.gsub(',','').gsub(' ', '')
           hex_string_len = $QWORD_data.length
           $New_QWORD_data = ''
           min = -2
           until min < -hex_string_len
             hex_string_block = $QWORD_data[min,2]
             $New_QWORD_data << hex_string_block
             min -= 2
           end # until
           $subkey = $subkey.split('/D').first + '/D "0x' + $New_QWORD_data + '"'
        end # QWORD

      # EXPAND
      #   &
      # MULTI
        if $subkey.include? 'REG_EXPAND_SZ' or $subkey.include? 'REG_MULTI_SZ'
           hex_string = $subkey.split('/D').last.gsub(' ', '').gsub('\\', '').gsub(',00', '').gsub('00,', '').gsub(',', '')
           hex_string_len = hex_string.length
           $New_hex_data = ''
           min = 0
           until min == hex_string_len
             $New_hex_data << hex_string[min,2].hex.chr
             min += 2
           end # until
           $New_hex_data = $New_hex_data.gsub('"', '\"').gsub('%', '%%')
           $subkey = $subkey.split('/D').first + '/D "' + $New_hex_data + '"'
        end # EXPAND & MULTI

      print "[REG] #{string}\n"
      write_add()
      $subkey = ''
    end # if not $key.eql? ''
  end # if & elsifs
end

def write_delete()
  if not $subkey.eql? ""
    File.open(ARGV[$num][0..-4] + "bat", 'a+') do |file|	
      file.print "REG DELETE \"#{$key}\" /V #{$subkey} /F \n"
      print "[BAT] REG DELETE \"#{$key}\" /V #{$subkey} /F \n\n"
    end # file (1)
  elsif
    File.open(ARGV[$num][0..-4] + "bat", 'a+') do |file|  
      file.print "REG DELETE \"#{$key}\" /F \n"
      print "[BAT] REG DELETE \"#{$key}\" /F \n\n"
    end # file (2)
  end # if & elsifs
end

def write_add()
  File.open(ARGV[$num][0..-4] + "bat", 'a+') do |file|  
    file.print "REG ADD \"#{$key}\" /V #{$subkey} /F \n"
    print "[BAT] REG ADD \"#{$key}\" /V #{$subkey} /F \n\n"
  end # file
end

def write_comment()
  File.open(ARGV[$num][0..-4] + "bat", 'a+') do |file|  
    file.print "REM #{$key}\n"
  end # file
end

def args()
  if ARGV.empty? or ARGV[$num] == "/?"
    help()
  elsif ARGV[$num] == nil
    print "Finished.\n"
    Process.exit
  elsif not File.exist? (ARGV[$num])
    print "\n ERROR.               File doesn't exist...\n\n"
    help()
  elsif not ARGV[$num].split('.').last.eql? "reg" and not ARGV[$num].split('.').last.eql? "REG"
    print "\n ERROR.               File " + ARGV[$num] + " is not a valid registry...\n\n"
    $num += 1
    if ARGV.length == 1
      print "Finished.\n"
      Process.exit
    end # ARGV.length
  args()
  end # if & elsifs
end

########################################################################################################

string = ''
$string_hex = ''
$num = 0
$regcode = ''

logo()
args()

while not $num == ARGV.length or $num < ARGV.length
  args()
  File.open(ARGV[$num], "r:utf-16le:UTF-8").each_line { |line|
    if line[0..1].eql?   "  "  then line = line[2..-1] end
    if line[-3..-2].eql? ",\\" then line = line[0..-3] end
    $regcode = $regcode + line
  }
  File.open("#{Dir.tmpdir}/#{ARGV[$num].split('\\').last}", 'a+') { |file| file.puts $regcode }
  File.open("#{Dir.tmpdir}/#{ARGV[$num].split('\\').last}", "r").each_line { |string| expand(string[0..-2]) and string = ''}
  File.open("#{Dir.tmpdir}/#{ARGV[$num].split('\\').last}", "w") { |delete| delete.print "" }
  $regcode = ''
  $num += 1
end # while

puts "Finished.\n"
__END__




Saludos  :D
11386  Programación / Scripting / Re: Problema con Comando para hacer fuerza bruta. en: 29 Marzo 2012, 21:49 pm
Cita de: DefaultUser en 29 Marzo 2012, 21:10 pm
Por favor intenta explicarme lo mas que puedas si me dices pasar a .bat no se como hacer eso :(

intenta decirme como se hace,

Intenta leer antes de preguntar.

Lo que Puntoinfinito intenta decirte es que copies el código, en el bloc de notas, y lo guardes con extension ".bat".
En este mismo topic tienes el code de ejemplo.

Si no sabes hacer el resto, Lee un tutorial de iniciación en Batch para aprender lo básico, No hay otra manera.

Puntoinfinito ya te lo explicó con detalles, Pero nosotros solo te podemos ayudar a orientarte, Porque con "4 cosas" que te digamos, Y aunque te expliquen la manera de hacerlo no vas a aprender a hacerlo (Ya lo has visto). LEE y Aprende lo básico de Batch compañero.

Salu2.  
11387  Sistemas Operativos / Windows / Re: notepad win7, ? en: 27 Marzo 2012, 21:08 pm
Cita de: puntoinfinito en 26 Marzo 2012, 21:18 pm
Me sale en inicio al buscar archivo xd

lol, pero tio como te rallas por eso! xD

Cita de: kub0x en 27 Marzo 2012, 02:25 am
Simplemente estás dando nombre a un nuevo archivo de texto plano.
Es decir, si escribes en la barra de buscar notepad, encontrarás el Bloc de Notas... pero si añades notepad + "algo".txt estarás creando un archivo de nombre ese "algo".

No es del todo correcto.

Lo que está haciendo es pasarle un argumento al ejecutable del notepad.

Un ejemplo muy claro, escribir en la barra de búsqueda:
Código:
cmd /k echo hola

Y se abrirá la cmd con los argumentos/parámetros indicados.

Otro ejemplo, Sobre el notepad. Si creamos el archivo:
Código:
C:\Users\USUARIO\win7.txt

Entonces ya podemos ejecutar (Desde la barra de búsqueda) el notepad y abrirá el archivo "win7.txt":
Código:
notepad win7


Salu2.
11388  Sistemas Operativos / Windows / Re: notepad win7, ? en: 26 Marzo 2012, 18:42 pm
Cita de: puntoinfinito en 15 Marzo 2012, 19:29 pm
Hoy navegando por mi ordenador he encontrado un .txt llamado "notepad win7.txt"

En que ruta tienes ese archivo?.

Salu2
11389  Programación / Scripting / Re: opcion batch o vbs en sustitucion de schtasks. en: 26 Marzo 2012, 07:26 am
 - Para la fecha, puedes usar este code que devuelve la fecha de mañana:

PD: No lo hice yo.

Código
  1. @echo off
  2.  
  3. set /a d=%date:~0,2%
  4. set /a m=%date:~3,2%
  5. set /a y=%date:~6,4%
  6.  
  7. :loop
  8.    set /a d+=1
  9.  
  10.    if %d% gtr 31 (
  11.       set d=1
  12.       set /a m+=1
  13.  
  14.       if %m% gtr 12 (
  15.          set m=1
  16.          set /a y+=1
  17.       )
  18.    )
  19.  
  20. Echo %m:~0,1%| Findstr "[1]" >NUL
  21. If not %errorlevel% equ 0 (set m=0%m%)
  22. Set "Fecha=%d%/%m%/%y%"
  23. echo %Fecha%
  24.  


 - Sobre la tarea, No puedo probar los ejemplos que te voy dando para comprobar donde está el fallo, porque tengo esa característica "capada" en windows, Lo siento  :-\, Pero estoy casi seguro que el problema es que no inicias la instancia de la cmd (al principio), prueba así:

Código
  1. SCHTASKS /Create /SC ONCE /TN "Test" /RU Root /RP 0123 /TR "cmd /C start /W C:\temp\wait_10seg.cmd & fsutil file createnew C:\Task.tmp 1 & exit" /ST 01:13:00 /SD %Fecha%

PD: Asegurate de que en el primer .CMD finalizas el script con la linea del comando "EXIT".
PD2: Si necesitas escribir una ruta con espacios en SCHTAKS, hay que escapar las comillas dobles de esta manera:

Código
  1. /tr "cmd /C start /W \"C:\carpeta con espacios\wait_10seg.cmd\" & fsutil file createnew \"C:\carpeta con espacios\Task.tmp\" 1 & exit"


- Sobre lo de troyanos y puertas traseras también podría intentar ayudarte pero no es un tema relacionado con el scripting :P
   (Que raro, El Darkcomet abre los puertos necesarios automáticamente... O al menos eso promete xD)
   Prueba con tus dudas en el subforo de "dudas generales", o "Análisis y Diseño de Malware (Antes llamado Troyanos y Virus)"


Ya nos contarás si te sirvieron los codes...

Salu2.
11390  Programación / Scripting / Re: [Batch] [APORTE] Windows 7 x64 Xtreme Cleaner v3.4 en: 26 Marzo 2012, 06:14 am
Cita de: Maxmalow en 26 Marzo 2012, 05:05 am
kon este programa kitas todo lo que lleva windows 7 de serie?

Hola Maxmalow

Contestando a la pregunta... NO, Para ese tipo de cosas ya está el RT 7 lite :P

Este script no elimina ningún componente y/o característica de Windows 7 x64, Solamente borra estos archivos adicionales de serie.

Cita de: EleKtro H@cker
3. - Elimina cursores por defecto de Windows (Menos el que usar por defecto).

 4. - Elimina las fuentes de texto true type no usadas por el sistema (No borra fuentes agregadas manualmente).

 5. - Elimina algunos gadgets de Windows (Solamente Clock, CPU, Currency, picturepuzzle y RSSFeed)

 6. - Elimina imagenes por defecto de Windows, como las imagenes de usuario, y algunas de unos gadgets de windows.

 7. - Elimina los salvapantallas de windows (Menos el ssText3d.scr, el salvapantallas de Texto flotante).

 8. - Elimina TODOS los temas de sonidos por defecto de windows, no elimina temas/sonidos instalados manualmente.

 9. - Elimina todos los temas visuales (Menos AERO de Windows), no elimina temas instalados manualmente.

 10. - Elimina videos varios de la instalación d windows, a la vez que algunos ringtones... que no se que pintan en la instalación de Windows -.-

 11. - Elimina los fondos de pantalla por defecto, además de los fondos ocultos. No elimina fondos agregados manualmente.

 12. - Elimina idiomas adicionales de la instalación de windows. (Excepto Inglés y Castellano)

 13. - Comprueba si el Service pack 1 está instalado, y elimina el backup de la instalación.

Aparte de eso, Hace un limpieza exhaustiva de archivos temporales, registro, etc..., puedes leer el resto de la descripción en el comentario principal.

PD: No elimina drivers ni codecs, nada semejante.

Salu2!
Páginas: 1 ... 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 [1139] 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 ... 1236
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines