PDU Encoding And Decoding

[noorsoft]

نمونه کد را براتون میزارم امیدوارم گویا باشه
یک Picturebox روی فرمتون بزارین و یک File

Autoredraw=true

scalemode=3  'pixel

این هم زیر برنامش

Private Sub OpenOta()

  Dim a As String

  Dim i As Integer

  Dim h As Integer, w As Integer

  Dim j As Integer

  Dim X As Integer, Y As Integer

 

  Open File1.Path & "\" & File1.FileName For Binary As #1

  a = Input$(256, 1)

  

  On Error GoTo err

  

  w = Asc(Mid(a, 2, 1))

  h = Asc(Mid(a, 3, 1))

  X = w

  Y = h

  

  Picture1.ForeColor = vbBlack

  Picture1.Picture = LoadPicture()

  Picture1.Cls

  

  For i = 256 To 5 Step -1

    j = Asc(Mid(a, i, 1))

    

    If j And 1 Then Picture1.PSet (X, Y)

    X = X - 1

    

    If j And 2 Then Picture1.PSet (X, Y)

    X = X - 1

    

    If j And 4 Then Picture1.PSet (X, Y)

    X = X - 1

    

    If j And 8 Then Picture1.PSet (X, Y)

    X = X - 1

    

    If j And 16 Then Picture1.PSet (X, Y)

    X = X - 1

    

    If j And 32 Then Picture1.PSet (X, Y)

    X = X - 1

    

    If j And 64 Then Picture1.PSet (X, Y)

    X = X - 1

    

    If j And 128 Then Picture1.PSet (X, Y)

    X = X - 1

    

    If X = 0 Then

       X = w

       Y = Y - 1

    End If

   

  Next

  

err:

  Close

End Sub