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

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  BATCH - Función máquina de escribir
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: BATCH - Función máquina de escribir  (Leído 6,893 veces)
carlitos.dll

Desconectado Desconectado

Mensajes: 266



Ver Perfil
BATCH - Función máquina de escribir
« en: 27 Agosto 2008, 07:24 am »

Código
  1.  
  2. ::autor CarlitoS.dll
  3. @echo off
  4. mode con cols=100
  5. mode con lines=20
  6.  
  7. call:tpwrtr CarlitoS.dll presenta:
  8. call:sleep 2
  9. call:tpwrtr el efecto maquina de escribir ...
  10. call:tpwrtr OpenBSD es un sistema operativo libre tipo Unix, multiplataforma, basado en 4.4BSD.
  11. call:sleep 3
  12. call:tpwrtr Es un descendiente de NetBSD, con un foco especial en la seguridad y la criptografia.
  13.  
  14. pause>nul
  15. goto:eof
  16.  
  17.  
  18. :tpwrtr
  19. set palabra=%*
  20. if not defined palabra (goto:eof)
  21. set palabra=%palabra: =_%
  22. call:length %palabra%
  23. set /a contt=0
  24. :loopt
  25. call :tpwrtr1 %%palabra:~%contt%,1%%
  26. set /a contt +=1
  27. if %contt% leq %tam% (goto:loopt)
  28. goto:eof
  29. :tpwrtr1
  30. set char=%1
  31. if [%char%]==[_] (set char= )
  32. <nul (set /p msg=%char%)
  33. ping -n 1 127.0.0.0 -w 1>nul 2>&1
  34. goto:eof
  35. :length
  36. set argl=%*
  37. if not defined argl (goto :eof)
  38. set wordl=%argl%
  39. set /a contl=0
  40. :loopl
  41. if not defined wordl (goto endl)
  42. set wordl=%wordl:~1%
  43. set /a contl +=1
  44. goto loopl
  45. :endl
  46. set tam=%contl%
  47. goto :eof
  48.  
  49. :sleep
  50. if "%1"=="" (goto :eof)
  51. set /a limit=0
  52. set /a limit=%1
  53. if %limit% LEQ 0 (goto :eof)
  54. set /a cont=0
  55. :time
  56. set mirror1=%time:~-4,1%
  57. :increment
  58. set mirror2=%time:~-4,1%
  59. if not %mirror2%==%mirror1% (goto count)
  60. goto increment
  61. :count
  62. set /a cont +=1
  63. if "%cont%"=="%limit%" (goto :eof)
  64. goto time
  65. goto :eof
  66.  
  67.  


En línea

Darioxhcx


Desconectado Desconectado

Mensajes: 2.292


Ver Perfil
Re: BATCH - Función máquina de escribir
« Respuesta #1 en: 27 Agosto 2008, 08:50 am »

ahhhh boeeeee
muy bueno
kedo muy bueno enserio XD
que groso man , me re gusto xD

saludos


En línea

kraszic

Desconectado Desconectado

Mensajes: 277


Ver Perfil
Re: BATCH - Función máquina de escribir
« Respuesta #2 en: 28 Agosto 2008, 23:33 pm »

no se me habia ocurrido, muy buena idea carlitos, a seguir aportando a la comunidad.

un saludo!
En línea

-/lnkx/-

Desconectado Desconectado

Mensajes: 115



Ver Perfil WWW
Re: BATCH - Función máquina de escribir
« Respuesta #3 en: 3 Octubre 2008, 22:17 pm »

Hola es muy buneo mola... :xD
Pero una cosa todas las funciones que llamas con el call... me podrias contar un poco com funcionan lo del tpwrtr i eso... porfavor...
Esque las entiendo a medias....
Saludos
lnkxnet84
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines