$let = "0123456789abcdefghijklmnopqrstuvwxyz" 
$file = FileOpen("output.txt", 2) 
$counter = 1 
If $file = -1 Then Exit 
For $a = 1 To StringLen($let) 
   For $b = 1 To StringLen($let) 
      For $c = 1 To StringLen($let) 
  For $d = 1 To StringLen($let) 
         $out = StringStripWS(StringMid($let, $a, 1) & StringMid($let, $b, 1) & StringMid($let, $c, 1) & StringMid($let, $d, 1),8) ;& StringMid($let, $e, 1) & StringMid($let, $f, 1) & StringMid($let, $g, 1), 8) 
         If StringLen($out) > 4 Then Exit 
         FileWriteLine($file, $out) 
   $counter = $counter + 1 
   tooltip($counter) 
      Next 
   Next 
Next 
next

my $data = '0123456789abcdefghijklmnopqrstuvwxyz';   
my @list = split //, $data;   
  
for my $i (@list) {   
 for my $j (@list) {   
  for my $k (@list) {   
   for my $l (@list) {   
    print "$i $j $k $l\n";   
   }   
  }   
 }   
}

 $oHTTP = ObjCreate("winhttp.winhttprequest.5.1") 
$oHTTP.Open("POST", "http://www.sampleaddress.com/cookieprotection/index.php?action=login") 
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded") 
$oHTTP.Send("loginname=user&password=demo") 
If StringInStr($oHTTP.ResponseText, "Protected Page") Then 
MsgBox(0,"yay it worked",) 
EndIf