endec.dfm

This source code in Delphi 7.0. Have function to decoding and encoding PDU format to ASCII and from

    0000840400007B00000084000000840000008400000084000000840000008400
    0000840000008400000084000000840000008400000084000000840000008400
    000084000000840000008400000084000000840008007B000000840008008400
    000084000000840000008400000073000000840000008C0000007B0000007B00
    00009C4142007B2C29007B00000084000000730000007B0000007B0000008408
    08008404080084494200FFFFF700CE9E94006B0400009C181800840000007B04
    00007B0000007B0000007B0000007B0000007B0000007B0000007B0000007B00
    00007B0000007B0000007B0000007B0000007B0000007B0000007B0000007B00
    00007B0000007B0000007B0000007B0000007B0000007B0000007B0000007B00
    00007B0000007B0000007B0000007B0000007B0000007B0000007B0000007B00
    00007B000000730000007304000073000000840000006B000000844D42008C2C
    29007B0000008C00080084000000840000008400000094080800840408008C45
    4200FFF7EF00D69A9400730000009C141800840000007B000000840000008400
    0000840000008400000084000000840000008400000084000000840000008400
    0000840000008400000084000000840000008400000084000000840000008400
    0000840000008400000084000000840000008400000084000000840000008400
    00008400000084000000840000008400000084000000840000008C0000007B00
    00007B000000840000009400080073000000944542008C3439006B0000007300
    080073000800730000007B000000730000006B0000007B414200FFEBE700C696
    94005A00000073040800630000006B0400007300000073000000730000007300
    0000730000007300000073000000730000007300000073000000730000007300
    0000730000007300000073000000730000007300000073000000730000007300
    0000730000007300000073000000730000007300000073000000730000007300
    0000730000007300000073000000730000007B00000073000000730000007B00
    08007B000800630000008C414200CE9E9C00A5656300945D5A008C5D5A009C61
    6300AD696B009C616300A5696B00B59E9C00FFFFFF00E7CFCE009C696300A565
    63009C616300A5696B009C6163009C6163009C6163009C6163009C6163009C61
    63009C6163009C6163009C6163009C6163009C6163009C6163009C6163009C61
    63009C6163009C6163009C6163009C6163009C6163009C6163009C6163009C61
    63009C6163009C6163009C6163009C6163009C6163009C6163009C6163009C61
    63009C6163009C616300A5615A009C616300A5656300A5616300AD656B00A569
    6B00BD9A9C000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 0
    Width = 350
    Height = 18
    Caption = '_PDU CONVERTER_______Herlambang.InC'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'Courier New'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object isisms: TMemo
    Left = 8
    Top = 56
    Width = 297
    Height = 89
    Hint = 'Isi SMS yang akan dikirim'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      'Herlambang.InC')
    ParentFont = False
    ParentShowHint = False
    ScrollBars = ssVertical
    ShowHint = True
    TabOrder = 0
  end
  object NoPengirim: TEdit
    Left = 8
    Top = 24
    Width = 169
    Height = 24
    Hint = 
      'Nomor tujuan SMS Bagian awal nomor harus (62) untuk wilayah Indo' +
      'nesia'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    Text = '6281328828042'
  end
  object HasilPDU: TEdit
    Left = 8
    Top = 152
    Width = 297
    Height = 24
    Hint = 'Hasil Coding (PDU siap dikirim)'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
  end
  object encodeSMS: TButton
    Left = 184
    Top = 24
    Width = 121
    Height = 25
    Hint = 'SMS Encoder.. Hasil PDU siap untuk dikirim '
    Caption = 'ENCODE SMS'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = encodeSMSClick
  end
  object InputPDU: TEdit
    Left = 8
    Top = 184
    Width = 297
    Height = 24
    Hint = 'Input PDU dari inbox HP'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    Text = 
      '06912618010000040D91261823888240F200008060615031958255C8B29C1D6E' +
      '8BC3EE3328284F8BDFF7B70B449C8192EE395D5E6F97DDF4F03C0D2287DDA022' +
      'BBBCA6CBDFEEF43A0CAABAD3F6B27C9EA687E720621AFE7697CF6FF91B342DB7' +
      'C3F2B0FBEC02'
  end
  object HslisiSMS: TMemo
    Left = 8
    Top = 248
    Width = 297
    Height = 89
    Hint = 'Hasil Decode (Isi Pesan)'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ScrollBars = ssVertical
    ShowHint = True
    TabOrder = 5
  end
  object HslNoPengirim: TEdit
    Left = 8
    Top = 216
    Width = 169
    Height = 24
    Hint = 'Hasil Decode (Nomor Pengirim)'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
  end
  object decodeSMS: TButton
    Left = 184
    Top = 216
    Width = 121
    Height = 25
    Hint = 
      'SMS Decoder.. Input dari inbox (Format PDU) dan Hasil merupakan ' +
      'isi SMS'
    Caption = 'DECODE SMS'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    OnClick = decodeSMSClick
  end
  object hslPDU: TMemo
    Left = 312
    Top = 56
    Width = 297
    Height = 121
    Hint = 'Hasil PDU (Murni PDU)'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ScrollBars = ssVertical
    ShowHint = True
    TabOrder = 8
  end
  object Button1: TButton
    Left = 488
    Top = 24
    Width = 121
    Height = 25
    Hint = 'Konversi ASCHII ke PDU (Hasil Murni PDU)'
    Caption = 'ASCHII TO PDU'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    OnClick = Button1Click
  end
  object aschii: TEdit
    Left = 312
    Top = 24
    Width = 169
    Height = 24
    Hint = 'Input ASCHII untuk dikonversi..'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 10
    Text = 'aschii harus di isi ya...!'
  end
  object hslAschii: TMemo
    Left = 312
    Top = 216
    Width = 297
    Height = 121
    Hint = 'Hasil konversi (ASCHII)'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ScrollBars = ssVertical
    ShowHint = True
    TabOrder = 11
  end
  object pdu: TEdit
    Left = 312
    Top = 184
    Width = 169
    Height = 24
    Hint = 'Input (Murni PDU)'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 12
    Text = '506215840ECBEB7310390D4ACFD3A07CD8E5728500'
  end
  object Button2: TButton
    Left = 488
    Top = 184
    Width = 121
    Height = 25
    Hint = 'Konversi PDU ke ASCHII (Input Murni PDU)'
    Caption = 'PDU TO ASCHII'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 13
    OnClick = Button2Click
  end
  object SMSCODEC: TSMSCODEC
    Top = 32
  end
end