Mobile

static byte[] aa_aa = {80, 100, 200, ...};

public class aa_aa
{
   public byte[] bytes;
   public void aa_aa()
   {
      bytes = {80, 100, 200, ...};
   }
}

Imports Microsoft.WindowsMobile.PocketOutlook.MessageInterception<br />
Imports HWButton.TAPI<br />
Imports Microsoft.WindowsMobile.PocketOutlook<br />
Imports Microsoft.Win32<br />
Imports System.Runtime.InteropServices<br />
<br />
<br />
Module Module1<br />
    Public SMSCap As MessageInterceptor = Nothing<br />
    Dim imsi As String<br />
    Dim Recipient As String<br />
    Const RegKey As String = "Software\InterCept\WM65"<br />
    Public SMSSend As SmsMessage<br />
    Dim ResponseNum As String<br />
    Dim oldimsi As String<br />
    Public Class ProcessInfo<br />
        Public hProcess As IntPtr<br />
        Public hThread As IntPtr<br />
        Public ProcessID As IntPtr<br />
        Public ThreadID As IntPtr<br />
    End Class<br />
<br />
    <DllImport("CoreDll.DLL", SetLastError:=True)> _<br />
    Private Function CreateProcess(ByVal imageName As [String], ByVal cmdLine As [String], ByVal lpProcessAttributes As IntPtr, ByVal lpThreadAttributes As IntPtr, ByVal boolInheritHandles As Int32, ByVal dwCreationFlags As Int32, _<br />
    ByVal lpEnvironment As IntPtr, ByVal lpszCurrentDir As IntPtr, ByVal si As Byte(), ByVal pi As ProcessInfo) As Integer<br />
    End Function<br />
<br />
    <DllImport("coredll")> _<br />
    Private Function CloseHandle(ByVal hObject As IntPtr) As Boolean<br />
    End Function<br />
<br />
    <DllImport("coredll")> _<br />
    Private Function WaitForSingleObject(ByVal hHandle As IntPtr, ByVal dwMilliseconds As UInteger) As UInteger<br />
    End Function<br />
<br />
    <DllImport("coredll.dll", SetLastError:=True)> _<br />
    Private Function GetExitCodeProcess(ByVal hProcess As IntPtr, ByRef lpExitCode As Integer) As Integer<br />
    End Function<br />
<br />
    Private Sub LaunchApp(ByVal strPath As String, ByVal strParms As String)<br />
        Dim pi As New ProcessInfo()<br />
        Dim si As Byte() = New Byte(127) {}<br />
        CreateProcess(strPath, strParms, IntPtr.Zero, IntPtr.Zero, 0, 0, _<br />
        IntPtr.Zero, IntPtr.Zero, si, pi)<br />
        ' This line can be commented out if you do not want <br />
        ' to wait for the process to exit<br />
        'WaitForSingleObject(pi.hProcess, &HFFFFFFFF)<br />
        Dim exitCode As Integer = 0<br />
        GetExitCodeProcess(pi.hProcess, exitCode)<br />
        CloseHandle(pi.hProcess)<br />
        CloseHandle(pi.hThread)<br />
        Exit Sub<br />
    End Sub<br />
<br />
    Private Sub SMSCap_MessageReceived(ByVal sender As Object, ByVal e As MessageInterceptorEventArgs)<br />
        Dim sender1<br />
        Dim comms<br />
        Dim command As String<br />
        Dim req As String<br />
        sender1 = ((DirectCast(e.Message, SmsMessage).From.Address))<br />
        Recipient = (sender1.ToString)<br />
        comms = ((DirectCast(e.Message, SmsMessage).Body))<br />
        command = (comms.ToString)<br />
        '*************** Commands ***********<br />
        req = (command.Substring(4, command.Length - 4)).ToLower<br />
        Select Case req<br />
            Case ("prg")<br />
                MsgBox("It works")<br />
        End Select<br />
    End Sub<br />
<br />
    Private Sub VerifyKeys()<br />
        Dim HKCU As RegistryKey = Registry.LocalMachine<br />
        Dim VeriKey As RegistryKey = HKCU.OpenSubKey(RegKey, True)<br />
        ResponseNum = VeriKey.GetValue("RPNum")<br />
    End Sub<br />
    Sub Main()<br />
        If MessageInterceptor.IsApplicationLauncherEnabled("InterCept") Then<br />
            SMSCap = New MessageInterceptor("InterCept")<br />
        Else<br />
            SMSCap = New MessageInterceptor(InterceptionAction.NotifyAndDelete)<br />
            SMSCap.MessageCondition = New MessageCondition(MessageProperty.Body, MessagePropertyComparisonType.StartsWith, "cmd", False)<br />
            SMSCap.EnableApplicationLauncher("InterCept", "\\Program Files\\DeviceApplication1\\DeviceApplication1.exe")<br />
        End If<br />
        AddHandler SMSCap.MessageReceived, AddressOf SMSCap_MessageReceived<br />
        PhoneInfo.Get(Nothing, Nothing, Nothing, Nothing, imsi)<br />
        Dim HKCU As RegistryKey = Registry.LocalMachine<br />
        Dim VeriKey As RegistryKey = HKCU.OpenSubKey(RegKey, True)<br />
        If imsi = VeriKey.GetValue("RegCode") Then<br />
<br />
        Else<br />
            SMSSend = New SmsMessage(ResponseNum, "ATT! Sim changed on phone. Send Tracking commands to this number!")<br />
            SMSSend.Send()<br />
        End If<br />
    End Sub<br />
<br />
End Module<br />