VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00FFFF80&
   Caption         =   "Интерпритатор-кодировщик текста - v1.00"
   ClientHeight    =   2310
   ClientLeft      =   3300
   ClientTop       =   3015
   ClientWidth     =   5295
   FillColor       =   &H80000012&
   Icon            =   "INKT_V1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   2310
   ScaleWidth      =   5295
   Begin VB.TextBox Text2 
      Height          =   915
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   5
      ToolTipText     =   "Код"
      Top             =   1320
      Width           =   3375
   End
   Begin VB.TextBox Text1 
      Height          =   855
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   2
      ToolTipText     =   "Текст"
      Top             =   360
      Width           =   3375
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H0000C000&
      Caption         =   "Инт&ерпретировать"
      Default         =   -1  'True
      Height          =   495
      Left            =   3600
      MaskColor       =   &H80000012&
      Style           =   1  'Graphical
      TabIndex        =   1
      ToolTipText     =   "Для кодировки текста нажмите кнопку ""Интерпретировать""."
      Top             =   1080
      Width           =   1575
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H008080FF&
      Cancel          =   -1  'True
      Caption         =   "В&ыход"
      Height          =   495
      Left            =   3600
      MaskColor       =   &H80000012&
      Style           =   1  'Graphical
      TabIndex        =   0
      ToolTipText     =   "Для завершения работы программы нажмите кнопку ""Выход""."
      Top             =   1680
      Width           =   1575
   End
   Begin VB.Line Line5 
      BorderWidth     =   2
      DrawMode        =   16  'Merge Pen
      X1              =   5280
      X2              =   5280
      Y1              =   0
      Y2              =   2280
   End
   Begin VB.Line Line4 
      BorderWidth     =   2
      DrawMode        =   16  'Merge Pen
      X1              =   0
      X2              =   0
      Y1              =   0
      Y2              =   2280
   End
   Begin VB.Line Line3 
      BorderWidth     =   2
      DrawMode        =   16  'Merge Pen
      X1              =   0
      X2              =   5280
      Y1              =   2280
      Y2              =   2280
   End
   Begin VB.Line Line2 
      BorderWidth     =   2
      DrawMode        =   16  'Merge Pen
      X1              =   0
      X2              =   5280
      Y1              =   240
      Y2              =   240
   End
   Begin VB.Line Line1 
      BorderWidth     =   2
      DrawMode        =   16  'Merge Pen
      X1              =   0
      X2              =   5280
      Y1              =   0
      Y2              =   0
   End
   Begin VB.Label Label2 
      BackColor       =   &H00FFFF80&
      Caption         =   "Введите текст и нажмите кнопку ""Инт&ерпретировать""."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   0
      Width           =   5055
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFFF80&
      Caption         =   "Интерпритатор - кодировщик текста.    Версия: 1.00"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00404000&
      Height          =   855
      Left            =   3600
      TabIndex        =   3
      Top             =   240
      Width           =   1575
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim text, code, v As String
Dim k() As Integer
Dim c() As Integer

Private Sub Command1_Click()
text = Text1.text
s = 0
v = ""
code = ""
n = Len(text)
ReDim k(1 To n) As Integer
ReDim c(1 To n) As Integer
For i = 1 To n
k(i) = Asc(Right(text, n - s))
s = s + 1
Next
For i = 1 To n
Select Case k(i)
Case Is = 48
c(i) = 244
Case Is = 49
c(i) = 249
Case Is = 50
c(i) = 250
Case Is = 51
c(i) = 251
Case Is = 52
c(i) = 252
Case Is = 53
c(i) = 253
Case Is = 54
c(i) = 254
Case Is = 55
c(i) = 255
Case Is = 56
c(i) = 242
Case Is = 57
c(i) = 243
Case Is = 224
c(i) = 245
Case Is = 225
c(i) = 246
Case Is = 226
c(i) = 247
Case Is = 227
c(i) = 248
Case Is = 228
c(i) = 235
Case Is = 229
c(i) = 236
Case Is = 230
c(i) = 237
Case Is = 231
c(i) = 238
Case Is = 232
c(i) = 239
Case Is = 233
c(i) = 240
Case Is = 234
c(i) = 241
Case Is = 244
c(i) = 48
Case Is = 249
c(i) = 49
Case Is = 250
c(i) = 50
Case Is = 251
c(i) = 51
Case Is = 252
c(i) = 52
Case Is = 253
c(i) = 53
Case Is = 254
c(i) = 54
Case Is = 255
c(i) = 55
Case Is = 242
c(i) = 56
Case Is = 243
c(i) = 57
Case Is = 245
c(i) = 224
Case Is = 246
c(i) = 225
Case Is = 247
c(i) = 226
Case Is = 248
c(i) = 227
Case Is = 235
c(i) = 228
Case Is = 236
c(i) = 229
Case Is = 237
c(i) = 230
Case Is = 238
c(i) = 231
Case Is = 239
c(i) = 232
Case Is = 240
c(i) = 233
Case Is = 241
c(i) = 234
Case Else
c(i) = k(i)
End Select
Next
For i = 1 To n
v = Chr(c(i))
code = code & v
Next
Text2.text = code
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Text1_DblClick()
Text1 = ""
End Sub

Private Sub Text2_DblClick()
Text2 = ""
End Sub