comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl] Come on Spam Now 0.1

  • 0 Respuestas
  • 1423 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Diciembre 31, 2013, 06:42:30 pm »
Un simple script que hice para trolear hasta el infinito en juegos online u otras cosas en las cuales mandan un mensaje por cada enter.

El codigo

Código: Perl
  1. #!usr/bin/perl
  2. #Come on Spam Now 0.1
  3. #Coded By Doddy H
  4. #ppm install http://www.bribes.org/perl/ppm/Win32-GuiTest.ppd
  5.  
  6. use Win32::GuiTest No tienes permisos para ver links. Registrate o Entra con tu cuenta(SendKeys);
  7. use Time::HiRes "usleep";
  8.  
  9. $|++;
  10.  
  11. head();
  12.  
  13. my $tiempo_final;
  14.  
  15. my $tiemponow = No tienes permisos para ver links. Registrate o Entra con tu cuenta;
  16.  
  17. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Text to Flood : ";
  18. No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $your_text = <stdin> );
  19. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Duration of attack : ";
  20. No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $hasta = <stdin> );
  21. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Sleep Time : ";
  22. No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $tiempo = <stdin> );
  23.  
  24. $hasta = $hasta + 10;
  25.  
  26. if ( $tiempo ne "" ) {
  27.     $tiempo_final = $tiempo;
  28. }
  29. else {
  30.     $tiempo_final = 0;
  31. }
  32.  
  33. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Select the window to destroy\n";
  34. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Wait 5 seconds\n";
  35. No tienes permisos para ver links. Registrate o Entra con tu cuenta(5);
  36. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Come on Spam Now !!!!!!!\n";
  37.  
  38. while ( No tienes permisos para ver links. Registrate o Entra con tu cuenta - $tiemponow < $hasta ) {
  39.  
  40.     No tienes permisos para ver links. Registrate o Entra con tu cuenta($tiempo_final);
  41.     SendKeys($your_text);
  42.     SendKeys("{ENTER}");
  43.  
  44. }
  45.  
  46. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Finished\n";
  47.  
  48. copyright();
  49.  
  50. #Functions
  51.  
  52. sub head {
  53.  
  54.     my @logo = (
  55.         "#=============================================#", "\n",
  56.         "#           Come On Spam Now 0.1              #", "\n",
  57.         "#---------------------------------------------#", "\n",
  58.         "# Written By Doddy H                          #", "\n",
  59.         "# Email: lepuke[at]hotmail[com]               #", "\n",
  60.         "# Website: doddyhackman.webcindario.com       #", "\n",
  61.         "#---------------------------------------------#", "\n",
  62.         "# The End ?                                   #", "\n",
  63.         "#=============================================#", "\n"
  64.     );
  65.  
  66.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n";
  67.  
  68.     marquesina(@logo);
  69.  
  70.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n";
  71.  
  72. }
  73.  
  74. sub copyright {
  75.  
  76.     my @fin = ("-- == (C) Doddy Hackman 2013 == --");
  77.  
  78.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n";
  79.     marquesina(@fin);
  80.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n";
  81.  
  82.     <stdin>;
  83.  
  84.     No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  85.  
  86. }
  87.  
  88. sub marquesina {
  89.  
  90.     #Effect based in the exploits by Jafer Al Zidjali
  91.  
  92.     my @logo = @_;
  93.  
  94.     my $car = "|";
  95.  
  96.     for my $uno (@logo) {
  97.         for my $dos ( No tienes permisos para ver links. Registrate o Entra con tu cuenta //, $uno ) {
  98.  
  99.             $|++;
  100.  
  101.             if ( $car eq "|" ) {
  102.                 mostrar( "\b" . $dos . $car, "/" );
  103.             }
  104.             elsif ( $car eq "/" ) {
  105.                 mostrar( "\b" . $dos . $car, "-" );
  106.             }
  107.             elsif ( $car eq "-" ) {
  108.                 mostrar( "\b" . $dos . $car, "\\" );
  109.             }
  110.             else {
  111.                 mostrar( "\b" . $dos . $car, "|" );
  112.             }
  113.             usleep(40_000);
  114.         }
  115.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\b ";
  116.     }
  117.  
  118.     sub mostrar {
  119.         No tienes permisos para ver links. Registrate o Entra con tu cuenta $_[0];
  120.         $car = $_[1];
  121.     }
  122.  
  123. }
  124.  
  125. #The End ?
  126.  

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3164
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1477
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1105
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1372
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1605
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d