send
Grupo de Telegram
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] DH ScreenShoter 0.1

  • 1 Respuestas
  • 1608 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 544
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Octubre 04, 2013, 02:31:25 pm »
Un simple script en perl para sacar un screenshot y subirlo a imageshack.

El codigo :

Código: Perl
  1. #!usr/bin/perl
  2. #DH ScreenShoter 0.1
  3. #Coded By Doddy H
  4. #ppm install http://www.bribes.org/perl/ppm/Win32-GuiTest.ppd
  5. #ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd
  6.  
  7. use Win32::GuiTest
  8.   You are not allowed to view links. Register or Login(GetAsyncKeyState GetForegroundWindow GetWindowText FindWindowLike SetForegroundWindow SendKeys);
  9. use Win32::Clipboard;
  10. use Time::HiRes "usleep";
  11. use LWP::UserAgent;
  12.  
  13. my $nave = LWP::UserAgent->new;
  14. $nave->agent(
  15. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  16. );
  17. $nave->timeout(5);
  18.  
  19. $|++;
  20.  
  21. my $time;
  22. my $nombrefecha;
  23.  
  24. my ( $dia, $mes, $anio, $hora, $minutos, $segundos ) = agarrate_la_hora();
  25.  
  26. $nombrefecha =
  27.     $dia . "_"
  28.   . $mes . "_"
  29.   . $anio . "_"
  30.   . $hora . "_"
  31.   . $minutos . "_"
  32.   . $segundos;
  33.  
  34. my $se = "captures";
  35.  
  36. unless ( -d $se ) {
  37.     You are not allowed to view links. Register or Login( $se, "777" );
  38. }
  39.  
  40. You are not allowed to view links. Register or Login $se;
  41.  
  42. head();
  43.  
  44. You are not allowed to view links. Register or Login "[+] Save Photo with this name : ";
  45. You are not allowed to view links. Register or Login( my $filename = <stdin> );
  46.  
  47. You are not allowed to view links. Register or Login "\n[+] Get Photo in this time : ";
  48. You are not allowed to view links. Register or Login( my $timeop = <stdin> );
  49.  
  50. You are not allowed to view links. Register or Login "\n[+] Open photo after taking it ? : ";
  51. You are not allowed to view links. Register or Login( my $load_image = <stdin> );
  52.  
  53. You are not allowed to view links. Register or Login "\n[+] Upload image to ImageShack ? : ";
  54. You are not allowed to view links. Register or Login( my $imageshack = <stdin> );
  55.  
  56. You are not allowed to view links. Register or Login "\n[+] Taking shot in ";
  57.  
  58. if ( $timeop eq "" ) {
  59.     $time = 1;
  60. }
  61. else {
  62.     $time = $timeop;
  63. }
  64.  
  65. for my $num ( You are not allowed to view links. Register or Login 1 .. $time ) {
  66.     You are not allowed to view links. Register or Login "$num.. ";
  67.     You are not allowed to view links. Register or Login 1;
  68. }
  69.  
  70. if ( $filename eq "" ) {
  71.  
  72.     capturar_pantalla( $nombrefecha . ".jpg" );
  73.  
  74. }
  75. else {
  76.  
  77.     capturar_pantalla($filename);
  78.  
  79. }
  80.  
  81. You are not allowed to view links. Register or Login "\a\a\a";
  82. You are not allowed to view links. Register or Login "\n\n[+] Photo Taken\n";
  83.  
  84. if ( $imageshack =~ /y/ ) {
  85.     if ( $filename eq "" ) {
  86.         subirarchivo( $nombrefecha . ".jpg" );
  87.     }
  88.     else {
  89.         subirarchivo($filename);
  90.     }
  91. }
  92.  
  93. if ( $load_image =~ /y/ ) {
  94.     if ( $filename eq "" ) {
  95.         You are not allowed to view links. Register or Login( $nombrefecha. ".jpg" );
  96.     }
  97.     else {
  98.         You are not allowed to view links. Register or Login($filename);
  99.     }
  100. }
  101.  
  102. copyright();
  103.  
  104. ## Functions
  105.  
  106. sub subirarchivo {
  107.  
  108.     my $your_key = "fuck you";    #Your API Key
  109.  
  110.     You are not allowed to view links. Register or Login "\n[+] Uploading ...\n";
  111.  
  112.     my $code = $nave->post(
  113.         "https://post.imageshack.us/upload_api.php",
  114.         Content_Type => "form-data",
  115.         Content      => [
  116.             key        => $your_key,
  117.             fileupload => [ $_[0] ],
  118.             You are not allowed to view links. Register or Login     => "json"
  119.         ]
  120.     )->content;
  121.  
  122.     if ( $code =~ /"image_link":"(.*?)"/ ) {
  123.         You are not allowed to view links. Register or Login "\n[+] Link : " . $1 . "\n";
  124.     }
  125.     else {
  126.         You are not allowed to view links. Register or Login "\n[-] Error uploading the image\n";
  127.     }
  128. }
  129.  
  130. sub head {
  131.  
  132.     my @logo = (
  133.         "#=============================================#", "\n",
  134.         "#             DH ScreenShoter 0.1             #", "\n",
  135.         "#---------------------------------------------#", "\n",
  136.         "# Written By Doddy H                          #", "\n",
  137.         "# Email: lepuke[at]hotmail[com]               #", "\n",
  138.         "# Website: doddyhackman.webcindario.com       #", "\n",
  139.         "#---------------------------------------------#", "\n",
  140.         "# The End ?                                   #", "\n",
  141.         "#=============================================#", "\n"
  142.     );
  143.  
  144.     You are not allowed to view links. Register or Login "\n";
  145.  
  146.     marquesina(@logo);
  147.  
  148.     You are not allowed to view links. Register or Login "\n\n";
  149.  
  150. }
  151.  
  152. sub copyright {
  153.  
  154.     my @fin = ("-- == (C) Doddy Hackman 2012 == --");
  155.  
  156.     You are not allowed to view links. Register or Login "\n\n";
  157.     marquesina(@fin);
  158.     You are not allowed to view links. Register or Login "\n\n";
  159.  
  160.     <stdin>;
  161.  
  162.     You are not allowed to view links. Register or Login(1);
  163.  
  164. }
  165.  
  166. sub capturar_pantalla {
  167.  
  168.     SendKeys("%{PRTSCR}");
  169.  
  170.     my $a = Win32::Clipboard::GetBitmap();
  171.  
  172.     You are not allowed to view links. Register or Login( FOTO, ">" . $_[0] );
  173.     You are not allowed to view links. Register or Login(FOTO);
  174.     You are not allowed to view links. Register or Login FOTO $a;
  175.     You are not allowed to view links. Register or Login FOTO;
  176.  
  177. }
  178.  
  179. sub marquesina {
  180.  
  181.     #Effect based in the exploits by Jafer Al Zidjali
  182.  
  183.     my @logo = @_;
  184.  
  185.     my $car = "|";
  186.  
  187.     for my $uno (@logo) {
  188.         for my $dos ( You are not allowed to view links. Register or Login //, $uno ) {
  189.  
  190.             $|++;
  191.  
  192.             if ( $car eq "|" ) {
  193.                 mostrar( "\b" . $dos . $car, "/" );
  194.             }
  195.             elsif ( $car eq "/" ) {
  196.                 mostrar( "\b" . $dos . $car, "-" );
  197.             }
  198.             elsif ( $car eq "-" ) {
  199.                 mostrar( "\b" . $dos . $car, "\\" );
  200.             }
  201.             else {
  202.                 mostrar( "\b" . $dos . $car, "|" );
  203.             }
  204.             usleep(40_000);
  205.         }
  206.         You are not allowed to view links. Register or Login "\b ";
  207.     }
  208.  
  209.     sub mostrar {
  210.         You are not allowed to view links. Register or Login $_[0];
  211.         $car = $_[1];
  212.     }
  213.  
  214. }
  215.  
  216. sub agarrate_la_hora {
  217.  
  218.     my ( $a, $b, $c, $d, $e, $f, $g, $h, $i ) = You are not allowed to view links. Register or Login(You are not allowed to view links. Register or Login);
  219.  
  220.     $f += 1900;
  221.     $e++;
  222.  
  223.     You are not allowed to view links. Register or Login (
  224.         $d, $e, $f, $c, $b, $a
  225.  
  226.     );
  227.  
  228. }
  229.  
  230. ## The End ?
  231.  

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 851
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #1 en: Noviembre 17, 2013, 02:08:41 am »
muy buen aporte, gracias por publicar tu código para que lo podamos apreciar todos :)

ultimamente hay una fiebre por hacer este tipo de aplicación y mucha gente está haciendo un código para cumplir esta función.

aunque siempre es bueno ver alternativas.

un saludo :)

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 2854
Ú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: 1325
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 970
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1182
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

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