Wimax Password Generator (editable script )

Wimax Password Generator (editable script )

This portable script  by yyyxyyyz :) it can generate password  for wimax package date 2009 to 2010

 This is 100%  clean!!

Sample Code  you can put your name on it , Change the color RED text then save as any name.wsf

NOTE: file extension is .wsf   NOT . vbs

<job>
<script language="jscript">
var add=[12,2,17,5,16,31,28,10,16,20,22,1];
var subst={58:122,59:121,60:120,61:119,62:118,63:117,64:116,91:115,92:114,93:113,94:112,45:111,96:110};

function generatePassword(input){
var inputMac=input.replace(/:/g,"").toUpperCase();
var macPassword="";
if((inputMac.search(/^[A-F0-9]{12}$/)==-1) || (inputMac =="000000000000")){
    return macPassword="invalid"}
else{
    var b;
    var a;
    var c="";
    for(b=0;b<12;b++){
        a=inputMac.charCodeAt(b)+add[b];
        if(subst[a]){
            a=subst[a]
        }
        c+=String.fromCharCode(a)
    }
    return macPassword="2008"+c+"";
    }
};
</script>

<script  language="vbscript">
Dim out,sMac,passWord
Do
sMac = InputBox( vbCr & vbLf & "Supported device:" & vbCr & vbLf & "   Bm622 2009-2010, Bm622i 2010" & vbCr & vbLf & "" & vbCr & vbLf & "Please enter a valid MAC Address!" , "Password Generator [Script by: blogmytuts] ")
If TypeName(sMac) = "Empty" Then
    MsgBox  vbCr & vbLf & " Operation Canceled! ",16,"Goodbye... [Script by: blogmytuts] "
     WScript.Quit
End If

If Len(Trim(sMac)) = 0   Then
     MsgBox "Please Enter valid MAC Address!",16,"Status Window [Script by: blogmytuts] "
End If
passWord =generatePassword(sMac)
Loop While (passWord="invalid")

If (passWord="invalid") Then
MsgBox "Script by: blogmytuts"  & vbCr & vbLf & "Invalid MAC",48,"Status Window"
ELSE
OutPass = InputBox( vbCr & vbLf & "Supported device:" & vbCr & vbLf & "   Bm622 2009-2010, Bm622i 2010" & vbCr & vbLf & "" & vbCr & vbLf & "MAC: " & sMac & vbCr & vbLf & "MAC password is: " & passWord  , "Generated Password [Script by: blogmytuts] " ,passWord)
END If
</script>
</job>


Screen shoot:









    Blogger Comment
    Facebook Comment

1 comments: