SHARE
TWEET

Untitled

a guest Jun 19th, 2017 49 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  4. our @list = ('a' .. 'z', 'A' .. 'Z', 0 .. 9, '`', '~', '!', '@', '#', '$', '%', '^', '&', '*', '(', ')', '-', '_', '=', '+', '[', '{', ']', '}', ';', ':', '\'', '"', '\\', '|', ',', '<', '.', '>', '/', '?');
  5. our $1 = $list[$const1];
  6. our $2 = $list[$const2];
  7. our $3 = $list[$const3];
  8. our $4 = $list[$const4];
  9. our $5 = $list[$const5];
  10. our $6 = $list[$const6];
  11. our $7 = $list[$const7];
  12. our $8 = $list[$const8];
  13. our $9 = $list[$const9];
  14. our $10 = $list[$const10];
  15. our $const1 = 0;
  16. our $const2 = 0;
  17. our $const3 = 0;
  18. our $const4 = 0;
  19. our $const5 = 0;
  20. our $const6 = 0;
  21. our $const7 = 0;
  22. our $const8 = 0;
  23. our $const9 = 0;
  24. our $const10 = 0;
  25. our $total;
  26.  
  27. LOOP:
  28. for ($const1 = $const1; $cosnt1 <= 93; $const1++)
  29.     {
  30.     $total = $10, $9, $8, $7, $6, $5, $4, $3, $2, $1;
  31.     $1 = $list[$const1];
  32.     print $total;
  33.     if ($const1 == 94)
  34.         (
  35.         $const1 = 0;
  36.         $const2++;
  37.         $2 = $list[$const2];
  38.         $total = $10, $9, $8, $7, $6, $5, $4, $3, $2, $1;
  39.         print $total;
  40.             if ($const2 == 94)
  41.                 {
  42.                 $const2 = 0;
  43.                 $const3++
  44.                 $3 = $list[$const3];
  45.                 $total = $10, $9, $8, $7, $6, $5, $4, $3, $2, $1;
  46.                 print $total;
  47.                     if ($const3 == 94)
  48.                     {
  49.                     $const3 = 0;
  50.                     $const4++
  51.                     $4 = $list[$const4];
  52.                     $total = $10, $9, $8, $7, $6, $5, $4, $3, $2, $1;
  53.                     print $total;
  54.                         if ($const4 == 94)
  55.                         {
  56.                         $const4 = 0;
  57.                         $const5++
  58.                         $5 = $list[$const5];
  59.                         $total = $10, $9, $8, $7, $6, $5, $4, $3, $2, $1;
  60.                         print $total;
  61.                             if ($const5 == 94)
  62.                             {
  63.                             $const5 = 0;
  64.                             $const6++
  65.                             $6 = $list[$const6];
  66.                             $total = $10, $9, $8, $7, $6, $5, $4, $3, $2, $1;
  67.                             print $total;
  68.                                 if ($const6 == 94)
  69.                                 {
  70.                                 $const6 = 0;
  71.                                 $const7++
  72.                                 $7 = $list[$const7];
  73.                                 $total = $10, $9, $8, $7, $6, $5, $4, $3, $2, $1;
  74.                                 print $total;
  75.                                     if ($const7 == 94)
  76.                                     {
  77.                                     $const7 = 0;
  78.                                     $const8++
  79.                                     $8 = $list[$const8];
  80.                                     $total = $10, $9, $8, $7, $6, $5, $4, $3, $2, $1;
  81.                                     print $total;
  82.                                         if ($const8 == 94)
  83.                                         {
  84.                                         $const8 = 0;
  85.                                         $const9++
  86.                                         $9 = $list[$const9];
  87.                                         $total = $10, $9, $8, $7, $6, $5, $4, $3, $2, $1;
  88.                                         print $total;
  89.                                             if ($const9 == 94)
  90.                                             {
  91.                                             $const9 = 0;
  92.                                             $const10++
  93.                                             $10 = $list[$const10];
  94.                                             $total = $10, $9, $8, $7, $6, $5, $4, $3, $2, $1;
  95.                                             print $total;
  96.                                                 if ($10 == 93}
  97.                                                     {
  98.                                                     print "Brute complete.\n";
  99.                                                     exit
  100.                                                     }
  101.                                                 else
  102.                                                     {
  103.                                                     goto LOOP;
  104.                                                     }
  105.                                             }
  106.                            
  107.                                         else
  108.                                             {
  109.                                             goto LOOP;
  110.                                             }
  111.                                         }
  112.                        
  113.                                     else
  114.                                         {
  115.                                         goto LOOP;
  116.                                         }
  117.                                     }
  118.                    
  119.                                 else
  120.                                     {
  121.                                     goto LOOP;
  122.                                     }
  123.                                 }
  124.                
  125.                             else
  126.                                 {
  127.                                 goto LOOP;
  128.                                 }
  129.                             }
  130.            
  131.                         else
  132.                             {
  133.                             goto LOOP;
  134.                             }
  135.                         }
  136.        
  137.                     else
  138.                         {
  139.                         goto LOOP;
  140.                         }
  141.                     }
  142.    
  143.                 else
  144.                     {
  145.                     goto LOOP;
  146.                     }
  147.                 }
  148.  
  149.             else
  150.                 {
  151.                 goto LOOP;
  152.                 }
  153.         }
  154.     else
  155.         {
  156.         goto LOOP;
  157.         }
  158.     }
  159. goto LOOP;
RAW Paste Data
Top