form1.frm

来自「加密与解码——密码技术剖析与实战应用中的一个例子」· FRM 代码 · 共 57 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'  1ch=28   3a=58

Dim A(9)

OUT& H70, 28
P = INP(&H71)
OUT& H70, 29
Q = INP(&H71)
X = 256 * Q + P

I = 0
J = 0
N = 0

130 Y = X + I * 65535

Do
140 Z = Int(3 * Y / (4 ^ (N + 1) - 1))
150 If Z <= 126 Then
        Exit Do 'goto 190
    End If
160 N = N + 1
170 Loop Until N >= 8

180 I = I + 1: J = 0: N = 0: X = 16 ^ 2 * Q + P: Y = X + I * 65535
Loop

190 If Z < 32 Then GoTo 180
200 A(J) = Z: J = J + 1: A = Y - Z * 4 ^ N
210 If A = 0 Then GoTo 230
220 N = N - 1: Y = A: GoTo 140

230 For K = 0 To J
240 Print Chr$(A(K));
250 Next