BM622M - 2013 INITIAL TUT AS OF OCTOBER 2014

SNIFERZED Monday, October 13, 2014
Edit
BM622M CHANGE MAC TOOL INITIAL RELEASED. As blogger we're still waiting for final modification from our source but this script are 100% working as tested by our group please use at your own risk. the source code released below. Instruction open notepad and modify it according to your needs and save as BM622M2013.WSF or else you can download the full script HERE


 DOWNLOD THE TOOL HERE

for best result of editing you can use notepad ++ you can download HERE




<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+"";
    }
};
function doMath(hexValue1,hexValue2) {
var outHex;
var stringHex1 = parseInt(hexValue1,16);
var stringHex2 = parseInt(hexValue2,16);
var number = stringHex1;
var number2 = stringHex2;
var hexaddansv = eval(number) + eval(number2);
outHex = (hexaddansv);
return outHex = Number(hexaddansv).toString(16);
}
</script>

<script  language="vbscript">
'Dim out


Dim telnetUserName, telnetPassword, telnetHost,sMac,genPassOut,sM,colun1,colun2,colun3,colun4,colun5
Set cloner = CreateObject("WScript.Shell")


'===Server settings===

telnetUserName = "mt7109"
telnetPassword = "wimax"
telnetHost = "10.1.1.254"

'===End server settings===

'connectToHost(telnetHost)

If Ping(telnetHost) Then
    connectToHost(telnetHost)   
Else
     MsgBox vbCr & vbLf & "Failed to connect! Please check your WIMAX IP!!! and TRY AGAIN...",16,"Status Window [Script by: SHADOW046] "
    WScript.Quit 
End If

'Function check Host if reachable
Function Ping(Target)
Dim results

    On Error Resume Next

    Set shell = CreateObject("WScript.Shell")
   
    ' Send 1 echo request, waiting 2 seconds for result
    Set exec = shell.Exec("ping -n 1 -w 2000 " & Target)
    results = LCase(exec.StdOut.ReadAll)
   
    Ping = (InStr(results, "reply from") > 0)
End Function

Function getBaseMacFourtOctetSixTTm(macFull)
Dim mac,baseMac
mac =  macFull
baseMacValue = Mid(mac,1,12)
getBaseMacFourtOctetSixTTm =baseMacValue
'inputMacBase.value = baseMac
Set mac = Nothing
Set baseMac = Nothing
End Function 'end getbaseMac

''Begin IncrementMAC by One
Function IncrementMacbyOne (lanMAc)
Dim mac, lastHex, lastHexRange,inc,incTest,newMac,genMethodString
mac =  lanMAc
fullNewMAc = "30:87:30:C6:83:18"
''LogContents.value =  "Generating MAC started..."
intNumberofMAc = CLng(Trim(1))
inc = 1
genMethodString = "Increment"
howManyMac = 0
getNewBaseMac = UCase(getBaseMacFourtOctetSixTTm(mac))
Do
myCurrenMacFifthHex = Mid(mac,13,2)
myCurrenMacSixthHex =  Mid(mac,16,2)
fifthAndSixthMac = myCurrenMacFifthHex & myCurrenMacSixthHex
howManyMac = howManyMac + 1
incTest = doMath(fifthAndSixthMac,inc)
newMac = incTest
If incTest < "0000" Then
''DisplayLogMacGenScan genMethodString & " is out of range... Try use INCREMENT method."
Exit do
End If
If Len(incTest) = 3  Then
newMac = "0" & newMac
ElseIf Len(incTest) = 2 Then
newMac = "00" & newMac
ElseIf Len(incTest) = 1 Then
newMac = "000" & newMac
ElseIf Len(incTest) >4  Then
''DisplayLogMacGenScan genMethodString & " is out of range... Try use DECREMENT method."
Exit Do
End If
newMacFifth  = Mid(newMac,1,2)
newMacSixth  = Mid(newMac,3,2)
newMac = newMacFifth &":"& newMacSixth
fullNewMAc =  getNewBaseMac & UCase(newMac)
mac = fullNewMAc
Loop While howManyMac <> intNumberofMAc
IncrementMacbyOne = fullNewMAc
End Function
''End IncrementMAC by one

'Ask MAc and Connect to telnet
Sub connectToHost(hostAddress)
Do
sMac = InputBox( vbCr & vbLf & "Supported device:" & vbCr & vbLf & "   BM622M2K12-13 WITH GREENPACKET FIRMWARE, DV235T" & vbCr & vbLf & "" & vbCr & vbLf & "NOTE: DO NOT CLICK/RUN anything after PRESSING OK!!!" & vbCr & vbLf & "When TELNET windows open it SHOULD be ACTIVE!!! " & vbCr & vbLf & "" & vbCr & vbLf & "Please enter a VALID MAC Address! EX. 00:11:22:33:44:55"  , "WIMAX MAC Changer [Script by: SHADOW046]")

If TypeName(sMac) = "Empty" Then
    MsgBox  vbCr & vbLf & " Operation Canceled! ",16,"Goodbye... [Script by: SHADOW046] "
     WScript.Quit
End If

lowerS = LCase(sMac)
start1 = Mid(lowerS, 1, 2)

If start1 = "34" then
    MsgBox "Your mac address is bm622m series... Please avoid Series of mac starts with 34, C8, E8, 0C",16,"Status Window [Script by: SHADOW046] "
WScript.Quit
    End If
If start1 = "c8" then
    MsgBox "Your mac address is bm622m series... Please avoid Series of mac starts with 34, C8, E8, 0C",16,"Status Window [Script by: SHADOW046] "
WScript.Quit
    End If
If start1 = "e8" then
    MsgBox "Your mac address is bm622m series... Please avoid Series of mac starts with 34, C8, E8, 0C",16,"Status Window [Script by: SHADOW046] "
WScript.Quit
    End If
If start1 = "0c" then
    MsgBox "Your mac address is bm622m series... Please avoid Series of mac starts with 34, C8, E8, 0C",16,"Status Window [Script by: SHADOW046] "
WScript.Quit
End If   

lngLen = Len(sMac)

colun1 = Mid(sMac, 3, 1)
colun2 = Mid(sMac, 6, 1)
colun3 = Mid(sMac, 9, 1)
colun4 = Mid(sMac, 12, 1)
colun5 = Mid(sMac, 15, 1)

If colun1 <> ":" And colun2 <> ":" And colun3 <> ":" And colun4 <> ":" And colun5 <> ":" then
    MsgBox "Please Enter valid MAC Address! WITH (:) ",16,"Status Window [Script by: SHADOW046] "
    WScript.Quit
End If

If lngLen <> 17 then
    MsgBox "Please Enter valid MAC Address! Your mac is more than 17 character",16,"Status Window [Script by: SHADOW046] "
    WScript.Quit
End If
   

If Len(Trim(sMac)) = 0   Then
     MsgBox "Please Enter valid MAC Address!!!!",16,"Status Window [Script by: SHADOW046] "
End If

MsgBox "Bawal po galawin ang mouse after mong iclick itong :OK:",16,"Status Window [Script by: SHADOW046] "
passWord =generatePassword(sMac)
Loop While (passWord="invalid")
wanMacEntry = Replace(sMac ,":","")
currentMacAddOne = IncrementMacbyOne(sMac)

cloner.run "Telnet " & hostAddress & " -f c:\telnetshadow"
WScript.Sleep 2000

cloner.SendKeys telnetUserName
cloner.SendKeys("{Enter}")
WScript.Sleep 2000

cloner.SendKeys telnetPassword
cloner.SendKeys("{Enter}")
WScript.Sleep 2000

cloner.SendKeys"sncfg dset ADMIN_NAME admin"
cloner.SendKeys("{Enter}")
WScript.Sleep 400

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 400

cloner.SendKeys"sncfg dset ADMIN_PASSWD '$1$k2I9hJe4$OkHKF43oTmjvv3zJtrEZ4.'"
cloner.SendKeys("{Enter}")
WScript.sleep 400

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 400

cloner.SendKeys"sncfg dset WMX_IGNORE_CERT 1"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg dset WMX_EAP_Mode 1"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg dset WMX_INNER_MODE 0"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg dset WMX_AUTH_MODE 1"
cloner.SendKeys("{Enter}")
WScript.Sleep 100


cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg dset WAN_MAC_ENCRY " & wanMacEntry
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg dset WAN_MAC " & sMac
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg dset LAN_MAC " & currentMacAddOne
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg dset WMX_USER_NAME " & passWord & "@globelines.com.ph"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg dset WMX_PASSW " & passWord
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg dset WMX_ANONYMOUS_ID " & wanMacEntry & "@globelines.com.ph"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg dset WMX_FREQ_LIST 2507500,2602000,2612000,2638000,2622000,2505000,2510000"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg dset WMX_SAME_EAP_OUTER_ID disable"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg dset WMX_MAC_IN_OUTER_ID disable"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg dset WMX_RANDOM_OUTER_ID disable"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg dset MGMT_WEB_WAN disable"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg dset MGMT_TELNET_WAN disable"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg dset MGMT_TELNET_WAN disable"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg dset MGMT_SSH_WAN disable"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg dset SSHD_Enable 0{Enter}"
WScript.Sleep 180

cloner.SendKeys"sncfg dset NETFILTER_DDOS_PINGFROMWAN 1{Enter}"
WScript.Sleep 180

cloner.SendKeys"sncfg dset NETFILTER_DDOS_PINGOFDEATH 1{Enter}"
WScript.Sleep 180

cloner.SendKeys"sncfg dset NETFILTER_DDOS_ICMPREDIRECT 1{Enter}"
WScript.Sleep 180

cloner.SendKeys"sncfg dset NETFILTER_DDOS_IPSPOOF 1{Enter}"
WScript.Sleep 180

cloner.SendKeys"sncfg dset NETFILTER_DDOS_LANDATTACK 1{Enter}"
WScript.Sleep 180

cloner.SendKeys"sncfg dset NETFILTER_DDOS_PORTSCAN 1{Enter}"
WScript.Sleep 180

cloner.SendKeys"sncfg dset NETFILTER_DDOS_ICMPFLOOD 1{Enter}"
WScript.Sleep 180

cloner.SendKeys"sncfg dset NETFILTER_DDOS_UDPFLOOD 1{Enter}"
WScript.Sleep 180

cloner.SendKeys"sncfg dset NETFILTER_DDOS_SYNFLOOD 1{Enter}"
WScript.Sleep 180


cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"sncfg commit"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"clear"
cloner.SendKeys("{Enter}")
WScript.Sleep 100

cloner.SendKeys"/factoryreset.sh"
cloner.SendKeys("{Enter}")
WScript.quit


end sub
Sub tymsg(hostadd)
MsgBox "Script by: SHADOW046"  & vbCr & vbLf & out,48,"Status Window"
end sub
</script>

</job>









Posted by SNIFERZED at

8 comments

  1. UnknownOctober 13, 2014 at 9:26 AM

    TS bakit ayaw po mag palit ng mac ko? katapos lumitaw ng cmd 10.1.1.254 mawawala tas pag check ko po ung gui wala po dpo nagchange thx ts.

    ReplyDelete
    Replies
    1. AnonymousMarch 30, 2022 at 11:09 PM

      Bm622M - 2013 Initial Tut As Of October 2014 >>>>> Download Now

      >>>>> Download Full

      Bm622M - 2013 Initial Tut As Of October 2014 >>>>> Download LINK

      >>>>> Download Now

      Bm622M - 2013 Initial Tut As Of October 2014 >>>>> Download Full

      >>>>> Download LINK ek

      Delete
  2. UnknownOctober 13, 2014 at 9:31 AM

    anu po need gawin thx mga master :)

    ReplyDelete
  3. UnknownOctober 13, 2014 at 10:18 PM

    Ts meron napo ako netong tools pero ayaw din magchange :(

    ReplyDelete
  4. AnonymousOctober 13, 2014 at 10:53 PM

    sa model year ang problema nyan bka 2012 yan or other impossible nmn po hindi xa mkapag change ng mac

    ReplyDelete
  5. UnknownOctober 14, 2014 at 5:01 AM

    thankyou ts baka sa lappy kolang try ko reformat kasi ung isang 2012 na bm622m ko nagagamit ko sa iba un lang 2013 ang hndi :)

    ReplyDelete
  6. SNIFERZEDOctober 15, 2014 at 4:36 AM

    anu na?

    ReplyDelete
  7. AnonymousMarch 30, 2022 at 11:09 PM

    Bm622M - 2013 Initial Tut As Of October 2014 >>>>> Download Now

    >>>>> Download Full

    Bm622M - 2013 Initial Tut As Of October 2014 >>>>> Download LINK

    >>>>> Download Now

    Bm622M - 2013 Initial Tut As Of October 2014 >>>>> Download Full

    >>>>> Download LINK

    ReplyDelete

Subscribe to: Post Comments ( Atom )

ads