Imports Microsoft.Win32
'Variable declaration
Dim regTap As RegistryKey
Dim tap0901 As Boolean = False
Dim regTmp As RegistryKey
Dim regTmpVal As String
'Let's try to open the "NET" key
regTap = Registry.LocalMachine.OpenSubKey("SYSTEM\\CurrentControlSet\\Enum\\Root\\NET", False)
'Does "NET" key exist?
If regTap Is Nothing Then
'If it doesn't then...
GoTo NoTap
Else
'If it does then...
'Each virtual adapters are placed inside a key and are named starting from 0000(0001,0002, on so on). Let's read each subkey inside "NET" key so we can check if there's a TAP installed.
For Each x As String In regTap .GetSubKeyNames
'Open each subkey.
regTmp = Registry.LocalMachine.OpenSubKey("SYSTEM\\CurrentControlSet\\Enum\\Root\\NET\\" & x.Trim, False)
'Our main interest is "HardwareID" the value of it will serve as our keyword if the subkey being checked is a TAP driver or not
regTmpVal = regTmp.GetValue("HardwareID")(0)
'tap0901 by default is false
If tap0901 = False Then
'if "HardwareID" is equals to "tap0901" which is the ID of TAP then set our v ariable tap0901 to true :)
If regTmpVal = "tap0901" Then
tap0901 = True
End If
End If
regTmpVal = ""
Next
End If
NoTap:
'Some codes here
AT+ZUSIM=?After sending these commands successfully you can now use your modem to do other tasks like send/receive sms, phonebook, etc. To check if our modem really did initialize let's try getting the signal strength.
AT+CPBS="SM"
AT+CPBR=?
AT+CPBS="SM"
AT+CPMS="SM","SM","
AT+CGSN
AT
AT+ZSEC=?
AT+ZOPRT?
AT+GMR
AT+CGSN
AT+CGMM
AT+GMR
AT+CGSN
AT+CGMM
AT+CPIN?
AT+ZECC?
AT+ZSEC?
AT+ZSTART
ATE0
AT+ZPAS?
AT+ZDON?
AT+CSQ
AT+ZDON?
AT+ZPAS?
AT+CLCK="SC"
AT+CPMS=?
AT+CLVL?
AT+CGDCONT=1,"IP","internet",,0,0
AT+ZBANDI?
AT+CSCA?
AT+ZSMSD?
AT+ZSNT?
AT+ZBANDI?
AT+ZUSIM=?
AT+CPBS="SM"
AT+CPBR=?
AT+ZCPBR=?
AT+CPBR=1,20
AT+CPBR=21,40
AT+CPBR=41,60
AT+CPBR=61,80
AT+CPBR=81,100
AT+CPBR=101,120
AT+CPBR=121,140
AT+CPBR=141,160
AT+CPBR=161,180
AT+CPBR=181,200
AT+CPBR=201,220
AT+CPBR=221,240
AT+CPBR=241,250
AT+CSCS="IRA"
AT+CLVL?
AT+CLIP=1
AT+CMGF=0
AT+CNMI=3,1,0,2,0
AT+CSQ
AT+ZDON?
AT+ZPAS?
AT+CPMS="ME","ME",""
AT+CMGL=4
AT+CPMS="SM","SM",""
AT+CMGL=4
AT+CSQ
AT+ZDON?
AT+ZPAS?
AT+CSQ
AT+ZDON?
AT+ZPAS?
AT+CSQ
AT+ZDON?
AT+ZPAS?
AT+ZCSPOWER
AT+CSQSending these commands to the modem will give you the signal strength in this format "+CSQ:18,99" where 18 is the signal strength. The signal strength/quality value range from 2-30(30 = excellent quality) and has a corresponding dBm value. In my example 18 means -77 dBm(30 = -53 dBm). You can use the following table as reference.
AT+ZDON?
AT+ZDON?
Dim CDROMDeviceQuery As New SelectQuery("Win32_CDROMDrive")
Dim CDROMDeviceSearch As New ManagementObjectSearcher(CDROMDeviceQuery)
Dim CDROMDeviceInfo As ManagementObject
For Each CDROMDeviceInfo In CDROMDeviceSearch.Get()
If CDROMDeviceInfo("caption").ToString.Contains("ZTE") Then
Dim tst As New VolumeEject
tst.Eject(CDROMDeviceInfo("drive").ToString.Replace(":", ""))
End If
Next
Dim serialport As New IO.Ports.SerialPort
With serialport
.PortName = "COM14"
.BaudRate = 96000
.Parity = Parity.None
.DataBits = 8
.StopBits = StopBits.One
.Handshake = Handshake.RequestToSend
.ReadTimeout = 300
.WriteTimeout = 300
.Encoding = Encoding.GetEncoding("iso-8859-1")
.DtrEnable = True
.RtsEnable = True
.NewLine = vbCrLf
End With
serialport.Open()
using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Diagnostics;
namespace CodeMonkey
{
class AmountToWords
{
static void Main()
{
Console.WriteLine("Enter amount: ");
string amnt = Console.ReadLine();
Console.WriteLine("{0} = {1}", amnt, NumToText(amnt));
Console.ReadKey();
}
static string Ones(string strNum)
{
string tmp = "";
switch (strNum) {
case "1":
tmp = "One";
break;
case "2":
tmp = "Two";
break;
case "3":
tmp = "Three";
break;
case "4":
tmp = "Four";
break;
case "5":
tmp = "Five";
break;
case "6":
tmp = "Six";
break;
case "7":
tmp = "Seven";
break;
case "8":
tmp = "Eight";
break;
case "9":
tmp = "Nine";
break;
default:
tmp = "";
break;
}
return tmp;
}
static string Tens(string strNum)
{
string tmp = "";
string tst = Convert.ToInt32(strNum).ToString();
switch (tst) {
case "10":
tmp = "Ten";
break;
case "11":
tmp = "Eleven";
break;
case "12":
tmp = "Twelve";
break;
case "13":
tmp = "Thirteen";
break;
case "14":
tmp = "Fourteen";
break;
case "15":
tmp = "Fifteen";
break;
case "16":
tmp = "Sixteen";
break;
case "17":
tmp = "Seventeen";
break;
case "18":
tmp = "Eighteen";
break;
case "19":
tmp = "Nineteen";
break;
default:
tmp = Ones(Convert.ToInt32(strNum).ToString());
break;
}
return tmp;
}
static string Ties(string strNum)
{
string tmp = "";
string tst = Convert.ToInt32(strNum.Substring(0, 1)).ToString();
switch (tst) {
case "2":
tmp = "Twenty";
break;
case "3":
tmp = "Thirty";
break;
case "4":
tmp = "Forty";
break;
case "5":
tmp = "Fifty";
break;
case "6":
tmp = "Sixty";
break;
case "7":
tmp = "Seventy";
break;
case "8":
tmp = "Eighty";
break;
case "9":
tmp = "Ninety";
break;
default:
tmp = Ones(Convert.ToInt32(strNum).ToString());
break;
}
tmp = tmp + " " + Ones(strNum.Substring(1, 1));
return tmp;
}
static string Hundreds(string strNum)
{
string tmp = "";
if (strNum.Length == 0)
tmp = "";
int ln = strNum.Length;
if (ln == 3) {
tmp = Ones(Convert.ToString(strNum[0])) + " Hundred ";
int twos = Convert.ToInt32(strNum.Substring(1, 2));
if (twos > 19) {
tmp = tmp + Ties(Convert.ToString(twos));
} else {
tmp = tmp + Tens(Convert.ToString(twos));
}
} else if (ln == 2) {
if (Convert.ToInt32(strNum) > 19) {
tmp = Ties(strNum);
} else {
tmp = Tens(strNum);
}
} else {
tmp = Ones(strNum);
}
return tmp;
}
static string NumToText(string strNum)
{
string tmp = "";
int iLen = 0;
string sCents = null;
string sCentsText = "";
bool isCent = false;
string _tens = null;
strNum = strNum.Replace(",","");
if (strNum.Contains(".")) {
string[] spl = CustomSplit(strNum);
sCents = spl[1];
strNum = spl[0];
iLen = strNum.Length;
isCent = true;
if (Convert.ToInt32(sCents) > 19) {
sCentsText = Ties(sCents);
} else {
sCentsText = Tens(sCents);
}
} else {
iLen = strNum.Length;
strNum = Convert.ToInt32(strNum).ToString();
}
switch (iLen) {
case 1:
tmp = Ones(strNum);
break;
case 2:
if (Convert.ToInt32(strNum) > 19) {
_tens = Ties(Convert.ToInt32(strNum).ToString("D"));
} else {
_tens = Tens(Convert.ToInt32(strNum).ToString("D"));
}
tmp = _tens + " Pesos";
if (isCent) {
tmp = tmp + " And " + sCentsText + " Cents";
}
break;
case 3:
tmp = Hundreds(Convert.ToInt32(strNum).ToString("D")) + " Pesos";
if (isCent) {
tmp = tmp + " And " + sCentsText + " Cents";
}
break;
case 4:
tmp = Ones(Convert.ToInt32(strNum.Substring(0, 1)).ToString("D")) + " Thousand " + Hundreds(Convert.ToInt32(strNum.Substring(1, 3)).ToString("D")) + " Pesos";
if (isCent) {
tmp = tmp + " And " + sCentsText + " Cents";
}
break;
case 5:
if (Convert.ToInt32(strNum.Substring(0, 2)) > 19) {
_tens = Ties(Convert.ToInt32(strNum.Substring(0, 2)).ToString("D"));
} else {
_tens = Tens(Convert.ToInt32(strNum.Substring(0, 2)).ToString("D"));
}
tmp = _tens + " Thousand " + Hundreds(Convert.ToInt32(strNum.Substring(2, 3)).ToString("D")) + " Pesos";
if (isCent) {
tmp = tmp + " And " + sCentsText + " Cents";
}
break;
case 6:
tmp = Hundreds(Convert.ToInt32(strNum.Substring(0, 3)).ToString("D")) + " Thousand " + Hundreds(Convert.ToInt32(strNum.Substring(2, 3)).ToString("D")) + " Pesos";
if (isCent) {
tmp = tmp + " And " + sCentsText + " Cents";
}
break;
}
return tmp;
}
static string[] CustomSplit(string str)
{
int pos = str.IndexOf(".");
string[] tmp = new string[3];
tmp[0] = str.Substring(0, pos);
tmp[1] = str.Substring(pos + 1, str.Length - (tmp[0].Length + 1));
return tmp;
}
}
}
Or you can try it online via Programmr
Class HelloWorld
Shared Sub Main
Dim sMD5 As String
Dim sBit(15) As Integer
Dim X, y As Short
Dim sT, sF, sS, sFt As Integer
Dim sKey As String
Dim temp As Integer
Dim s_Unlock As String
Dim s_Flash As String
Dim s_IMEI As String
Top:
System.Console.WriteLine("Credits to the original author of the algo" & vbCrLf & "Enter your 15 Digit IMEI Code: ")
System.Console.SetCursorPosition(31, 0)
s_IMEI = System.Console.ReadLine
If s_IMEI.Length <> 15 Then
System.Console.WriteLine("Invalid IMEI...")
GoTo Top
End If
sMD5 = getMD5Hash(s_IMEI & "5e8dd316726b0335")
y = 1
For X = 0 To 15
Dim bit As String = Mid(sMD5, y, 2)
sBit(X) = Int32.Parse(bit, Globalization.NumberStyles.HexNumber)
y = y + 2
Next
sF = sBit(0) Xor sBit(4) Xor sBit(8) Xor sBit(12)
sS = sBit(1) Xor sBit(5) Xor sBit(9) Xor sBit(13)
sT = sBit(2) Xor sBit(6) Xor sBit(10) Xor sBit(14)
sFt = sBit(3) Xor sBit(7) Xor sBit(11) Xor sBit(15)
sKey = sF.ToString("x2") & sS.ToString("x2") & sT.ToString("x2") & sFt.ToString("x2")
temp = Int32.Parse(sKey, Globalization.NumberStyles.HexNumber) And 33554431 Or 33554432
s_Unlock = CStr(temp)
'----------------------------------
sMD5 = getMD5Hash(s_IMEI & "97b7bc6be525ab44")
y = 1
For X = 0 To 15
Dim bit As String = Mid(sMD5, y, 2)
sBit(X) = Int32.Parse(bit, Globalization.NumberStyles.HexNumber)
y = y + 2
Next
sF = sBit(0) Xor sBit(4) Xor sBit(8) Xor sBit(12)
sS = sBit(1) Xor sBit(5) Xor sBit(9) Xor sBit(13)
sT = sBit(2) Xor sBit(6) Xor sBit(10) Xor sBit(14)
sFt = sBit(3) Xor sBit(7) Xor sBit(11) Xor sBit(15)
sKey = sF.ToString("x2") & sS.ToString("x2") & sT.ToString("x2") & sFt.ToString("x2")
temp = Int32.Parse(sKey, Globalization.NumberStyles.HexNumber) And 33554431 Or 33554432
s_Flash = CStr(temp)
System.Console.WriteLine("Unlock Code: {0}", s_Unlock)
System.Console.WriteLine("Flash Code: {0}", s_Flash)
System.Console.ReadKey()
System.Console.Clear()
GoTo Top
End Sub
Shared Function getMD5Hash(ByVal strToHash As String) As String
Dim md5Obj As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)
bytesToHash = md5Obj.ComputeHash(bytesToHash)
Dim strResult As String = ""
For Each b As Byte In bytesToHash
strResult += b.ToString("x2")
Next
Return strResult
End Function
End Class
Copyright 2017 Code Monkey
