asp 的DES加密文件

Option Explicit

Redim 作者:softjo,网址:http://www.xinxiw.com,希望能够对大家有所帮助

Public Function bit2byte(s)
Dim s2
Dim x
Dim i, k
Dim ilen
ilen = Len(s)
Dim B()
Dim s1()
ReDim s1(ilen)
ReDim B(ilen * 8)
s2 = ""
For i = 1 To ilen
 x = Mid(s, i, 1)
 s1(i) = Asc(x)

  If s1(i) And &H80 Then
     B(1 + 8 * (i - 1)) = 1
  Else
     B(1 + 8 * (i - 1)) = 0
   End If

  If s1(i) And &H40 Then
      B(2 + 8 * (i - 1)) = 1
   Else
   B(2 + 8 * (i - 1)) = 0
   End If
 
  If s1(i) And &H20 Then
     B(3 + 8 * (i - 1)) = 1
   Else
   B(3 + 8 * (i - 1)) = 0
   End If

If s1(i) And &H10 Then
      B(4 + 8 * (i - 1)) = 1
   Else
   B(4 + 8 * (i - 1)) = 0
   End If

 
If s1(i) And &H8 Then
     B(5 + 8 * (i - 1)) = 1
   Else
   B(5 + 8 * (i - 1)) = 0
   End If
 
If s1(i) And &H4 Then
     B(6 + 8 * (i - 1)) = 1
   Else
   B(6 + 8 * (i - 1)) = 0
   End If
 
If s1(i) And &H2 Then
    B(7 + 8 * (i - 1)) = 1
   Else
   B(7 + 8 * (i - 1)) = 0
   End If
 
If s1(i) And "1" Then
     B(8 + 8 * (i - 1)) = 1
Else
   B(8 + 8 * (i - 1)) = 0
   End If
 
Next

For k = 1 To ilen * 8
 s2 = s2 & B(k)
  If k Mod 8 = 0 Then
     s2 = s2
  End If
 Next
bit2byte = s2
End Function

Public Function byte2bit(s)
Dim i, k, ilen
Dim by()
Dim B()
ilen = Len(s)
ReDim by(ilen)
ReDim B(ilen / 8)
For k = 1 To ilen
 by(k) = Mid(s, k, 1)
 Next
For i = 1 To (ilen / 8)
If by(1 + 8 * (i - 1)) = "1" Then
B(i) = B(i) Or &H80
Else
B(i) = B(i) And &H7F
 End If
If by(2 + 8 * (i - 1)) = "1" Then
 B(i) = B(i) Or &H40
 Else
  B(i) = B(i) And &HBF
End If
 If by(3 + 8 * (i - 1)) = "1" Then
 B(i) = B(i) Or &H20
 Else
  B(i) = B(i) And &HDF
End If
 If by(4 + 8 * (i - 1)) = "1" Then
 B(i) = B(i) Or &H10
 Else
 B(i) = B(i) And &HEF
  End If
 If by(5 + 8 * (i - 1)) = "1" Then
 B(i) = B(i) Or &H8
 Else
 B(i) = B(i) And &HF7
End If
 If by(6 + 8 * (i - 1)) = "1" Then
 B(i) = B(i) Or &H4
 Else
 B(i) = B(i) And &HFB
End If
  If by(7 + 8 * (i - 1)) = "1" Then
  B(i) = B(i) Or &H2
  Else
 B(i) = B(i) And &HFD
 End If
If by(8 + 8 * (i - 1)) = "1" Then
 B(i) = B(i) Or "1"
 Else
 B(i) = B(i) And &HFE
End If
byte2bit = byte2bit & Chr(B(i))

 Next
End Function

Public Function byte2hex(s)
Dim i, k, ilen
Dim by(), s1 , s3 , s4
Dim B()
ilen = Len(s)
ReDim by(ilen)
ReDim B(ilen / 4)
For k = 1 To ilen
 by(k) = Mid(s, k, 1)
 Next
For i = 1 To ilen / 4
B(i) = by(4 * i - 3) * 2 ^ 3 + by(4 * i - 2) * 2 ^ 2 + by(4 * i - 1) * 2 ^ 1 + by(4 * i) * 2 ^ 0
s1 = s1 & Hex(B(i))

If i Mod 4 = 0 Then
s1 = "&h" + s1
s3 = s3 & CStr(Hex(s1))
s1 = ""

s3 = "&h" + s3
s4 = s4 + Chr(s3)
s3 = ""
End If
Next

byte2hex = byte2hex & s4
End Function

Public Function hex2byte(s )
Dim s2
Dim x
Dim i , k
Dim s3()
Dim ilen
ilen = Len(s)
Dim B()
Dim s1()
ReDim s1(ilen)
ReDim B(ilen * 16)
s2 = ""
For i = 1 To ilen
 x = Mid(s, i, 1)
 s1(i) = "&h" + Hex(Asc(x))
If s1(i) And &H8000 Then
     B(1 + 16 * (i - 1)) = 1
  Else
     B(1 + 16 * (i - 1)) = 0
   End If
 If s1(i) And &H4000 Then
      B(2 + 16 * (i - 1)) = 1
   Else
   B(2 + 16 * (i - 1)) = 0
   End If
  If s1(i) And &H2000 Then
     B(3 + 16 * (i - 1)) = 1
   Else
   B(3 + 16 * (i - 1)) = 0
   End If
If s1(i) And &H1000 Then
      B(4 + 16 * (i - 1)) = 1
   Else
   B(4 + 16 * (i - 1)) = 0
   End If
If s1(i) And &H800 Then
     B(5 + 16 * (i - 1)) = 1
   Else
   B(5 + 16 * (i - 1)) = 0
   End If
  If s1(i) And &H400 Then
     B(6 + 16 * (i - 1)) = 1
   Else
   B(6 + 16 * (i - 1)) = 0
   End If
  If s1(i) And &H200 Then
    B(7 + 16 * (i - 1)) = 1
   Else
   B(7 + 16 * (i - 1)) = 0
   End If
  If s1(i) And &H100 Then
     B(8 + 16 * (i - 1)) = 1
  Else
   B(8 + 16 * (i - 1)) = 0
   End If
   If s1(i) And &H80 Then
     B(9 + 16 * (i - 1)) = 1
  Else
     B(9 + 16 * (i - 1)) = 0
   End If
 If s1(i) And &H40 Then
      B(10 + 16 * (i - 1)) = 1
   Else
   B(10 + 16 * (i - 1)) = 0
   End If
  If s1(i) And &H20 Then
     B(11 + 16 * (i - 1)) = 1
   Else
   B(11 + 16 * (i - 1)) = 0
   End If
If s1(i) And &H10 Then
      B(12 + 16 * (i - 1)) = 1
   Else
   B(12 + 16 * (i - 1)) = 0
   End If
If s1(i) And &H8 Then
     B(13 + 16 * (i - 1)) = 1
   Else
   B(13 + 16 * (i - 1)) = 0
   End If
  If s1(i) And &H4 Then
     B(14 + 16 * (i - 1)) = 1
   Else
   B(14 + 16 * (i - 1)) = 0
   End If
  If s1(i) And &H2 Then
    B(15 + 16 * (i - 1)) = 1
   Else
   B(15 + 16 * (i - 1)) = 0
   End If
  If s1(i) And "1" Then
     B(16 + 16 * (i - 1)) = 1
Else
   B(16 + 16 * (i - 1)) = 0
   End If
  Next
For k = 1 To ilen * 16
 s2 = s2 & B(k)
 Next
hex2byte = s2
End Function

Public Function sbox(A )
Dim B(7) , A1(7)  , row(7) , col(7)
Dim i , temp1(7) , temp2(7) , j , k
Dim s(7, 3, 15)
    s(0, 0, 0) = 14: s(0, 0, 1) = 4: s(0, 0, 2) = 13: s(0, 0, 3) = 1: s(0, 0, 4) = 2: s(0, 0, 5) = 15: s(0, 0, 6) = 11: s(0, 0, 7) = 8: s(0, 0, 8) = 3: s(0, 0, 9) = 10: s(0, 0, 10) = 6: s(0, 0, 11) = 12: s(0, 0, 12) = 5: s(0, 0, 13) = 9: s(0, 0, 14) = 0: s(0, 0, 15) = 7
    s(0, 1, 0) = 0: s(0, 1, 1) = 15: s(0, 1, 2) = 7: s(0, 1, 3) = 4: s(0, 1, 4) = 14: s(0, 1, 5) = 2: s(0, 1, 6) = 13: s(0, 1, 7) = 1: s(0, 1, 8) = 10: s(0, 1, 9) = 6: s(0, 1, 10) = 12: s(0, 1, 11) = 11: s(0, 1, 12) = 9: s(0, 1, 13) = 5: s(0, 1, 14) = 3: s(0, 1, 15) = 8
    s(0, 2, 0) = 4: s(0, 2, 1) = 1: s(0, 2, 2) = 14: s(0, 2, 3) = 8: s(0, 2, 4) = 13: s(0, 2, 5) = 6: s(0, 2, 6) = 2: s(0, 2, 7) = 11: s(0, 2, 8) = 15: s(0, 2, 9) = 12: s(0, 2, 10) = 9: s(0, 2, 11) = 7: s(0, 2, 12) = 3: s(0, 2, 13) = 10: s(0, 2, 14) = 5: s(0, 2, 15) = 0
    s(0, 3, 0) = 15: s(0, 3, 1) = 12: s(0, 3, 2) = 8: s(0, 3, 3) = 2: s(0, 3, 4) = 4: s(0, 3, 5) = 9: s(0, 3, 6) = 1: s(0, 3, 7) = 7: s(0, 3, 8) = 5: s(0, 3, 9) = 11: s(0, 3, 10) = 3: s(0, 3, 11) = 14: s(0, 3, 12) = 10: s(0, 3, 13) = 0: s(0, 3, 14) = 6: s(0, 3, 15) = 13
    s(1, 0, 0) = 15: s(1, 0, 1) = 1: s(1, 0, 2) = 8: s(1, 0, 3) = 14: s(1, 0, 4) = 6: s(1, 0, 5) = 11: s(1, 0, 6) = 3: s(1, 0, 7) = 4: s(1, 0, 8) = 9: s(1, 0, 9) = 7: s(1, 0, 10) = 2: s(1, 0, 11) = 13: s(1, 0, 12) = 12: s(1, 0, 13) = 0: s(1, 0, 14) = 5: s(1, 0, 15) = 10
    s(1, 1, 0) = 3: s(1, 1, 1) = 13: s(1, 1, 2) = 4: s(1, 1, 3) = 7: s(1, 1, 4) = 15: s(1, 1, 5) = 2: s(1, 1, 6) = 8: s(1, 1, 7) = 14: s(1, 1, 8) = 12: s(1, 1, 9) = 0: s(1, 1, 10) = 1: s(1, 1, 11) = 10: s(1, 1, 12) = 6: s(1, 1, 13) = 9: s(1, 1, 14) = 11: s(1, 1, 15) = 5
    s(1, 2, 0) = 0: s(1, 2, 1) = 14: s(1, 2, 2) = 7: s(1, 2, 3) = 11: s(1, 2, 4) = 10: s(1, 2, 5) = 4: s(1, 2, 6) = 13: s(1, 2, 7) = 1: s(1, 2, 8) = 5: s(1, 2, 9) = 8: s(1, 2, 10) = 12: s(1, 2, 11) = 6: s(1, 2, 12) = 9: s(1, 2, 13) = 3: s(1, 2, 14) = 2: s(1, 2, 15) = 15
    s(1, 3, 0) = 13: s(1, 3, 1) = 8: s(1, 3, 2) = 10: s(1, 3, 3) = 1: s(1, 3, 4) = 3: s(1, 3, 5) = 15: s(1, 3, 6) = 4: s(1, 3, 7) = 2: s(1, 3, 8) = 11: s(1, 3, 9) = 6: s(1, 3, 10) = 7: s(1, 3, 11) = 12: s(1, 3, 12) = 0: s(1, 3, 13) = 5: s(1, 3, 14) = 14: s(1, 3, 15) = 9
    s(2, 0, 0) = 10: s(2, 0, 1) = 0: s(2, 0, 2) = 9: s(2, 0, 3) = 14: s(2, 0, 4) = 6: s(2, 0, 5) = 3: s(2, 0, 6) = 15: s(2, 0, 7) = 5: s(2, 0, 8) = 1: s(2, 0, 9) = 13: s(2, 0, 10) = 12: s(2, 0, 11) = 7: s(2, 0, 12) = 11: s(2, 0, 13) = 4: s(2, 0, 14) = 2: s(2, 0, 15) = 8
    s(2, 1, 0) = 13: s(2, 1, 1) = 7: s(2, 1, 2) = 0: s(2, 1, 3) = 9: s(2, 1, 4) = 3: s(2, 1, 5) = 4: s(2, 1, 6) = 6: s(2, 1, 7) = 10: s(2, 1, 8) = 2: s(2, 1, 9) = 8: s(2, 1, 10) = 5: s(2, 1, 11) = 14: s(2, 1, 12) = 12: s(2, 1, 13) = 11: s(2, 1, 14) = 15: s(2, 1, 15) = 1
    s(2, 2, 0) = 13: s(2, 2, 1) = 6: s(2, 2, 2) = 4: s(2, 2, 3) = 9: s(2, 2, 4) = 8: s(2, 2, 5) = 15: s(2, 2, 6) = 3: s(2, 2, 7) = 0: s(2, 2, 8) = 11: s(2, 2, 9) = 1: s(2, 2, 10) = 2: s(2, 2, 11) = 12: s(2, 2, 12) = 5: s(2, 2, 13) = 10: s(2, 2, 14) = 14: s(2, 2, 15) = 7
    s(2, 3, 0) = 1: s(2, 3, 1) = 10: s(2, 3, 2) = 13: s(2, 3, 3) = 0: s(2, 3, 4) = 6: s(2, 3, 5) = 9: s(2, 3, 6) = 8: s(2, 3, 7) = 7: s(2, 3, 8) = 4: s(2, 3, 9) = 15: s(2, 3, 10) = 14: s(2, 3, 11) = 3: s(2, 3, 12) = 11: s(2, 3, 13) = 5: s(2, 3, 14) = 2: s(2, 3, 15) = 12
    s(3, 0, 0) = 7: s(3, 0, 1) = 13: s(3, 0, 2) = 14: s(3, 0, 3) = 3: s(3, 0, 4) = 0: s(3, 0, 5) = 6: s(3, 0, 6) = 9: s(3, 0, 7) = 10: s(3, 0, 8) = 1: s(3, 0, 9) = 2: s(3, 0, 10) = 8: s(3, 0, 11) = 5: s(3, 0, 12) = 11: s(3, 0, 13) = 12: s(3, 0, 14) = 4: s(3, 0, 15) = 15
    s(3, 1, 0) = 13: s(3, 1, 1) = 8: s(3, 1, 2) = 11: s(3, 1, 3) = 5: s(3, 1, 4) = 6: s(3, 1, 5) = 15: s(3, 1, 6) = 0: s(3, 1, 7) = 3: s(3, 1, 8) = 4: s(3, 1, 9) = 7: s(3, 1, 10) = 2: s(3, 1, 11) = 12: s(3, 1, 12) = 1: s(3, 1, 13) = 10: s(3, 1, 14) = 14: s(3, 1, 15) = 9
    s(3, 2, 0) = 10: s(3, 2, 1) = 6: s(3, 2, 2) = 9: s(3, 2, 3) = 0: s(3, 2, 4) = 12: s(3, 2, 5) = 11: s(3, 2, 6) = 7: s(3, 2, 7) = 13: s(3, 2, 8) = 15: s(3, 2, 9) = 1: s(3, 2, 10) = 3: s(3, 2, 11) = 14: s(3, 2, 12) = 5: s(3, 2, 13) = 2: s(3, 2, 14) = 8: s(3, 2, 15) = 4
    s(3, 3, 0) = 3: s(3, 3, 1) = 15: s(3, 3, 2) = 0: s(3, 3, 3) = 6: s(3, 3, 4) = 10: s(3, 3, 5) = 1: s(3, 3, 6) = 13: s(3, 3, 7) = 8: s(3, 3, 8) = 9: s(3, 3, 9) = 4: s(3, 3, 10) = 5: s(3, 3, 11) = 11: s(3, 3, 12) = 12: s(3, 3, 13) = 7: s(3, 3, 14) = 2: s(3, 3, 15) = 14
    s(4, 0, 0) = 2: s(4, 0, 1) = 12: s(4, 0, 2) = 4: s(4, 0, 3) = 1: s(4, 0, 4) = 7: s(4, 0, 5) = 10: s(4, 0, 6) = 11: s(4, 0, 7) = 6: s(4, 0, 8) = 8: s(4, 0, 9) = 5: s(4, 0, 10) = 3: s(4, 0, 11) = 15: s(4, 0, 12) = 13: s(4, 0, 13) = 0: s(4, 0, 14) = 14: s(4, 0, 15) = 9
    s(4, 1, 0) = 14: s(4, 1, 1) = 11: s(4, 1, 2) = 2: s(4, 1, 3) = 12: s(4, 1, 4) = 4: s(4, 1, 5) = 7: s(4, 1, 6) = 13: s(4, 1, 7) = 1: s(4, 1, 8) = 5: s(4, 1, 9) = 0: s(4, 1, 10) = 15: s(4, 1, 11) = 10: s(4, 1, 12) = 3: s(4, 1, 13) = 9: s(4, 1, 14) = 8: s(4, 1, 15) = 6
    s(4, 2, 0) = 4: s(4, 3, 2) = 2: s(4, 2, 2) = 1: s(4, 2, 3) = 11: s(4, 2, 4) = 10: s(4, 2, 5) = 13: s(4, 2, 6) = 7: s(4, 2, 7) = 8: s(4, 2, 8) = 15: s(4, 2, 9) = 9: s(4, 2, 10) = 12: s(4, 2, 11) = 5: s(4, 2, 12) = 6: s(4, 2, 13) = 3: s(4, 2, 14) = 0: s(4, 2, 15) = 14
    s(4, 3, 0) = 11: s(4, 3, 1) = 8: s(4, 3, 2) = 12: s(4, 3, 3) = 7: s(4, 3, 4) = 1: s(4, 3, 5) = 14: s(4, 3, 6) = 2: s(4, 3, 7) = 13: s(4, 3, 8) = 6: s(4, 3, 9) = 15: s(4, 3, 10) = 0: s(4, 3, 11) = 9: s(4, 3, 12) = 10: s(4, 3, 13) = 4: s(4, 3, 14) = 5: s(4, 3, 15) = 3
    s(5, 0, 0) = 12: s(5, 0, 1) = 1: s(5, 0, 2) = 10: s(5, 0, 3) = 15: s(5, 0, 4) = 9: s(5, 0, 5) = 2: s(5, 0, 6) = 6: s(5, 0, 7) = 8: s(5, 0, 8) = 0: s(5, 0, 9) = 13: s(5, 0, 10) = 3: s(5, 0, 11) = 4: s(5, 0, 12) = 14: s(5, 0, 13) = 7: s(5, 0, 14) = 5: s(5, 0, 15) = 11
    s(5, 1, 0) = 10: s(5, 1, 1) = 15: s(5, 1, 2) = 4: s(5, 1, 3) = 2: s(5, 1, 4) = 7: s(5, 1, 5) = 12: s(5, 1, 6) = 9: s(5, 1, 7) = 5: s(5, 1, 8) = 6: s(5, 1, 9) = 1: s(5, 1, 10) = 13: s(5, 1, 11) = 14: s(5, 1, 12) = 0: s(5, 1, 13) = 11: s(5, 1, 14) = 3: s(5, 1, 15) = 8
    s(5, 2, 0) = 9: s(5, 2, 1) = 14: s(5, 2, 2) = 15: s(5, 2, 3) = 5: s(5, 2, 4) = 2: s(5, 2, 5) = 8: s(5, 2, 6) = 12: s(5, 2, 7) = 3: s(5, 2, 8) = 7: s(5, 2, 9) = 0: s(5, 2, 10) = 4: s(5, 2, 11) = 10: s(5, 2, 12) = 1: s(5, 2, 13) = 13: s(5, 2, 14) = 11: s(5, 2, 15) = 6
    s(5, 3, 0) = 4: s(5, 3, 1) = 3: s(5, 3, 2) = 2: s(5, 3, 3) = 12: s(5, 3, 4) = 9: s(5, 3, 5) = 5: s(5, 3, 6) = 15: s(5, 3, 7) = 10: s(5, 3, 8) = 11: s(5, 3, 9) = 14: s(5, 3, 10) = 1: s(5, 3, 11) = 7: s(5, 3, 12) = 6: s(5, 3, 13) = 0: s(5, 3, 14) = 8: s(5, 3, 15) = 13
    s(6, 0, 0) = 4: s(6, 0, 1) = 11: s(6, 0, 2) = 2: s(6, 0, 3) = 14: s(6, 0, 4) = 15: s(6, 0, 5) = 0: s(6, 0, 6) = 8: s(6, 0, 7) = 13: s(6, 0, 8) = 3: s(6, 0, 9) = 12: s(6, 0, 10) = 9: s(6, 0, 11) = 7: s(6, 0, 12) = 5: s(6, 0, 13) = 10: s(6, 0, 14) = 6: s(6, 0, 15) = 1
    s(6, 1, 0) = 13: s(6, 1, 1) = 0: s(6, 1, 2) = 11: s(6, 1, 3) = 7: s(6, 1, 4) = 4: s(6, 1, 5) = 9: s(6, 1, 6) = 1: s(6, 1, 7) = 10: s(6, 1, 8) = 14: s(6, 1, 9) = 3: s(6, 1, 10) = 5: s(6, 1, 11) = 12: s(6, 1, 12) = 2: s(6, 1, 13) = 15: s(6, 1, 14) = 8: s(6, 1, 15) = 6
    s(6, 2, 0) = 1: s(6, 2, 1) = 4: s(6, 2, 2) = 11: s(6, 2, 3) = 13: s(6, 2, 4) = 12: s(6, 2, 5) = 3: s(6, 2, 6) = 7: s(6, 2, 7) = 14: s(6, 2, 8) = 10: s(6, 2, 9) = 15: s(6, 2, 10) = 6: s(6, 2, 11) = 8: s(6, 2, 12) = 0: s(6, 2, 13) = 5: s(6, 2, 14) = 9: s(6, 2, 15) = 2
    s(6, 3, 0) = 6: s(6, 3, 1) = 11: s(6, 3, 2) = 13: s(6, 3, 3) = 8: s(6, 3, 4) = 1: s(6, 3, 5) = 4: s(6, 3, 6) = 10: s(6, 3, 7) = 7: s(6, 3, 8) = 9: s(6, 3, 9) = 5: s(6, 3, 10) = 0: s(6, 3, 11) = 15: s(6, 3, 12) = 14: s(6, 3, 13) = 2: s(6, 3, 14) = 3: s(6, 3, 15) = 12
    s(7, 0, 0) = 13: s(7, 0, 1) = 2: s(7, 0, 2) = 8: s(7, 0, 3) = 4: s(7, 0, 4) = 6: s(7, 0, 5) = 15: s(7, 0, 6) = 11: s(7, 0, 7) = 1: s(7, 0, 8) = 10: s(7, 0, 9) = 9: s(7, 0, 10) = 3: s(7, 0, 11) = 14: s(7, 0, 12) = 5: s(7, 0, 13) = 0: s(7, 0, 14) = 12: s(7, 0, 15) = 7
    s(7, 1, 0) = 1: s(7, 1, 1) = 15: s(7, 1, 2) = 13: s(7, 1, 3) = 8: s(7, 1, 4) = 10: s(7, 1, 5) = 3: s(7, 1, 6) = 7: s(7, 1, 7) = 4: s(7, 1, 8) = 12: s(7, 1, 9) = 5: s(7, 1, 10) = 6: s(7, 1, 11) = 11: s(7, 1, 12) = 0: s(7, 1, 13) = 14: s(7, 1, 14) = 9: s(7, 1, 15) = 2
    s(7, 2, 0) = 7: s(7, 2, 1) = 11: s(7, 2, 2) = 4: s(7, 2, 3) = 1: s(7, 2, 4) = 9: s(7, 2, 5) = 12: s(7, 2, 6) = 14: s(7, 2, 7) = 2: s(7, 2, 8) = 0: s(7, 2, 9) = 6: s(7, 2, 10) = 10: s(7, 2, 11) = 13: s(7, 2, 12) = 15: s(7, 2, 13) = 3: s(7, 2, 14) = 5: s(7, 2, 15) = 8
    s(7, 3, 0) = 2: s(7, 3, 1) = 1: s(7, 3, 2) = 14: s(7, 3, 3) = 7: s(7, 3, 4) = 4: s(7, 3, 5) = 10: s(7, 3, 6) = 8: s(7, 3, 7) = 13: s(7, 3, 8) = 15: s(7, 3, 9) = 12: s(7, 3, 10) = 9: s(7, 3, 11) = 0: s(7, 3, 12) = 3: s(7, 3, 13) = 5: s(7, 3, 14) = 6: s(7, 3, 15) = 11
    For i = 0 To 7
    col(i) = 0: row(i) = 0
     Next
     For k = 0 To 7
      A1(k) = Mid(A, 6 * k + 1, 6)
      temp1(k) = Mid(A1(k), 1, 1) & Mid(A1(k), 6, 1)
     temp2(k) = Mid(A1(k), 2, 4)
     row(k) = (CInt(Mid(temp1(k), 1, 1))) * 2 + CInt((Mid(temp1(k), 2, 1)))
     col(k) = CInt(Mid(temp2(k), 1, 1)) * 2 ^ 3 + CInt(Mid(temp2(k), 2, 1)) * 2 ^ 2 + CInt(Mid(temp2(k), 3, 1)) * 2 ^ 1 + CInt(Mid(temp2(k), 4, 1)) * 2 ^ 0 + col(k)
    Next
    For i = 0 To 7
   B(i) = s(i, row(i), col(i))
    If B(i) And &H8 Then
     sbox = sbox & 1
    Else
      sbox = sbox & 0
    End If
    If B(i) And &H4 Then
     sbox = sbox & 1
    Else
      sbox = sbox & 0
    End If
    If B(i) And &H2 Then
     sbox = sbox & 1
    Else
      sbox = sbox & 0
    End If
    If B(i) And &H1 Then
     sbox = sbox & 1
    Else
      sbox = sbox & 0
    End If
    Next
End Function

Public Function sk(s )
Dim s1 : Dim ls(16) : Dim pc_2(48) : Dim pc_1(56) , s2_byte1(56)
Dim i , c(28) , d(28) , s2(64) , j , s2_byte(56) , k , temp
Dim m_bit(64)
    ls(1) = 1: ls(2) = 1: ls(3) = 2: ls(4) = 2: ls(5) = 2: ls(6) = 2: ls(7) = 2: ls(8) = 2: ls(9) = 1: ls(10) = 2: ls(11) = 2: ls(12) = 2: ls(13) = 2: ls(14) = 2: ls(15) = 2: ls(16) = 1
    pc_2(1) = 14: pc_2(2) = 17: pc_2(3) = 11: pc_2(4) = 24: pc_2(5) = 1: pc_2(6) = 5
    pc_2(7) = 3: pc_2(8) = 28: pc_2(9) = 15: pc_2(10) = 6: pc_2(11) = 21: pc_2(12) = 10
    pc_2(13) = 23: pc_2(14) = 19: pc_2(15) = 12: pc_2(16) = 4: pc_2(17) = 26: pc_2(18) = 8
    pc_2(19) = 16: pc_2(20) = 7: pc_2(21) = 27: pc_2(22) = 20: pc_2(23) = 13: pc_2(24) = 2
    pc_2(25) = 41: pc_2(26) = 52: pc_2(27) = 31: pc_2(28) = 37: pc_2(29) = 47: pc_2(30) = 55
    pc_2(31) = 30: pc_2(32) = 40: pc_2(33) = 51: pc_2(34) = 45: pc_2(35) = 33: pc_2(36) = 48
    pc_2(37) = 44: pc_2(38) = 49: pc_2(39) = 39: pc_2(40) = 56: pc_2(41) = 34: pc_2(42) = 53
    pc_2(43) = 46: pc_2(44) = 42: pc_2(45) = 50: pc_2(46) = 36: pc_2(47) = 29: pc_2(48) = 32
    pc_1(1) = 57: pc_1(2) = 49: pc_1(3) = 41: pc_1(4) = 33: pc_1(5) = 25: pc_1(6) = 17: pc_1(7) = 9
    pc_1(8) = 1: pc_1(9) = 58: pc_1(10) = 50: pc_1(11) = 42: pc_1(12) = 34: pc_1(13) = 26: pc_1(14) = 18
    pc_1(15) = 10: pc_1(16) = 2: pc_1(17) = 59: pc_1(18) = 51: pc_1(19) = 43: pc_1(20) = 35: pc_1(21) = 27
    pc_1(22) = 19: pc_1(23) = 11: pc_1(24) = 3: pc_1(25) = 60: pc_1(26) = 52: pc_1(27) = 44: pc_1(28) = 36
    pc_1(29) = 63: pc_1(30) = 55: pc_1(31) = 47: pc_1(32) = 39: pc_1(33) = 31: pc_1(34) = 23: pc_1(35) = 15
    pc_1(36) = 7: pc_1(37) = 62: pc_1(38) = 54: pc_1(39) = 46: pc_1(40) = 38: pc_1(41) = 30: pc_1(42) = 22
    pc_1(43) = 14: pc_1(44) = 6: pc_1(45) = 61: pc_1(46) = 53: pc_1(47) = 45: pc_1(48) = 37: pc_1(49) = 29
    pc_1(50) = 21: pc_1(51) = 13: pc_1(52) = 5: pc_1(53) = 28: pc_1(54) = 20: pc_1(55) = 12: pc_1(56) = 4
s1 = bit2byte(s)
For i = 1 To 64
 s2(i) = CInt(Mid(s1, i, 1))
Next
For i = 1 To 56
  s2_byte(i) = s2(pc_1(i))
  Next
For i = 1 To 28
 c(i) = s2_byte(i)
 d(i) = s2_byte(i + 28)
 Next
 For i = 1 To 16
  For j = 1 To ls(i)
    temp = c(1)
    For k = 1 To 27
     c(k) = c(k + 1)
     Next
     c(28) = temp
     temp = d(1)
     For k = 1 To 27
      d(k) = d(k + 1)
      Next
      d(28) = temp
     Next
     For k = 1 To 28
      s2_byte1(k) = c(k)
      s2_byte1(k + 28) = d(k)
      Next
      For k = 1 To 48
       sk = sk & s2_byte1(pc_2(k))
      Next
    Next
End Function
Dim ens,destr
ens=Encrypt("ղ","12345678")
MsgBox(ens)
destr=decrypt(ens,"12345678")
MsgBox(destr)
Public Function Encrypt(s , key )
Dim ip(64) , e(48) , s1(64) , s2(16) , s10(64) , m_byte1(64) , key1
Dim i , j , l(17, 32) , r(17, 32) , er(48) , m_byte(64) , s_b
Dim k(16, 48) , A , bs , B(32) , p(32) , x(32) , ip_1(64)
Dim ilen
    p(1) = 16: p(2) = 7: p(3) = 20: p(4) = 21: p(5) = 29: p(6) = 12: p(7) = 28: p(8) = 17
    p(9) = 1: p(10) = 15: p(11) = 23: p(12) = 26: p(13) = 5: p(14) = 18: p(15) = 31: p(16) = 10
    p(17) = 2: p(18) = 8: p(19) = 24: p(20) = 14: p(21) = 32: p(22) = 27: p(23) = 3: p(24) = 9
    p(25) = 19: p(26) = 13: p(27) = 30: p(28) = 6: p(29) = 22: p(30) = 11: p(31) = 4: p(32) = 25
    ip_1(1) = 40: ip_1(2) = 8: ip_1(3) = 48: ip_1(4) = 16: ip_1(5) = 56: ip_1(6) = 24: ip_1(7) = 64: ip_1(8) = 32
    ip_1(9) = 39: ip_1(10) = 7: ip_1(11) = 47: ip_1(12) = 15: ip_1(13) = 55: ip_1(14) = 23: ip_1(15) = 63: ip_1(16) = 31
    ip_1(17) = 38: ip_1(18) = 6: ip_1(19) = 46: ip_1(20) = 14: ip_1(21) = 54: ip_1(22) = 22: ip_1(23) = 62: ip_1(24) = 30
    ip_1(25) = 37: ip_1(26) = 5: ip_1(27) = 45: ip_1(28) = 13: ip_1(29) = 53: ip_1(30) = 21: ip_1(31) = 61: ip_1(32) = 29
    ip_1(33) = 36: ip_1(34) = 4: ip_1(35) = 44: ip_1(36) = 12: ip_1(37) = 52: ip_1(38) = 20: ip_1(39) = 60: ip_1(40) = 28
    ip_1(41) = 35: ip_1(42) = 3: ip_1(43) = 43: ip_1(44) = 11: ip_1(45) = 51: ip_1(46) = 19: ip_1(47) = 59: ip_1(48) = 27
    ip_1(49) = 34: ip_1(50) = 2: ip_1(51) = 42: ip_1(52) = 10: ip_1(53) = 50: ip_1(54) = 18: ip_1(55) = 58: ip_1(56) = 26
    ip_1(57) = 33: ip_1(58) = 1: ip_1(59) = 41: ip_1(60) = 9: ip_1(61) = 49: ip_1(62) = 17: ip_1(63) = 57: ip_1(64) = 25
    ip(1) = 58: ip(2) = 50: ip(3) = 42: ip(4) = 34: ip(5) = 26: ip(6) = 18: ip(7) = 10: ip(8) = 2
    ip(9) = 60: ip(10) = 52: ip(11) = 44: ip(12) = 36: ip(13) = 28: ip(14) = 20: ip(15) = 12: ip(16) = 4
    ip(17) = 62: ip(18) = 54: ip(19) = 46: ip(20) = 38: ip(21) = 30: ip(22) = 22: ip(23) = 14: ip(24) = 6
    ip(25) = 64: ip(26) = 56: ip(27) = 48: ip(28) = 40: ip(29) = 32: ip(30) = 24: ip(31) = 16: ip(32) = 8
    ip(33) = 57: ip(34) = 49: ip(35) = 41: ip(36) = 33: ip(37) = 25: ip(38) = 17: ip(39) = 9: ip(40) = 1
    ip(41) = 59: ip(42) = 51: ip(43) = 43: ip(44) = 35: ip(45) = 27: ip(46) = 19: ip(47) = 11: ip(48) = 3
    ip(49) = 61: ip(50) = 53: ip(51) = 45: ip(52) = 37: ip(53) = 29: ip(54) = 21: ip(55) = 13: ip(56) = 5
    ip(57) = 63: ip(58) = 55: ip(59) = 47: ip(60) = 39: ip(61) = 31: ip(62) = 23: ip(63) = 15: ip(64) = 7
    e(1) = 32: e(2) = 1: e(3) = 2: e(4) = 3: e(5) = 4: e(6) = 5
    e(7) = 4: e(8) = 5: e(9) = 6: e(10) = 7: e(11) = 8: e(12) = 9
    e(13) = 8: e(14) = 9: e(15) = 10: e(16) = 11: e(17) = 12: e(18) = 13
    e(19) = 12: e(20) = 13: e(21) = 14: e(22) = 15: e(23) = 16: e(24) = 17
    e(25) = 16: e(26) = 17: e(27) = 18: e(28) = 19: e(29) = 20: e(30) = 21
    e(31) = 20: e(32) = 21: e(33) = 22: e(34) = 23: e(35) = 24: e(36) = 25
    e(37) = 24: e(38) = 25: e(39) = 26: e(40) = 27: e(41) = 28: e(42) = 29
    e(43) = 28: e(44) = 29: e(45) = 30: e(46) = 31: e(47) = 32: e(48) = 31
 key1 = sk(key)
 For i = 1 To 16
 s2(i) = Mid(key1, 48 * i - 47, 48)
 Next
 For i = 1 To 16
  For j = 1 To 48
  k(i, j) = CInt(Mid(s2(i), j, 1))
  Next
  Next
  s_b = hex2byte(s)
 ilen = Len(s_b)
 'MsgBox s_b&"-"&ilen
 For i = 1 To ilen-1
    s1(i) = CInt(Mid(s_b, i, 1))
    'MsgBox(s1(i)&"---"&i)
Next
For i = 1 To 64
 s10(i) = s1(ip(i))
Next
   For i = 1 To 32
     l(1, i) = s10(i)
     r(1, i) = s10(i + 32)
   Next
 For j = 1 To 16
  A = ""
  For i = 1 To 48
   er(i) = r(j, e(i))
  Next
  For i = 1 To 48
    A = A & (er(i) Xor k(j, i))
  Next
  bs = sbox(A)
  For i = 1 To 32
   B(i) = CInt(Mid(bs, i, 1))
  Next
   For i = 1 To 32
    x(i) = B(p(i))
   Next
    For i = 1 To 32
 r(j + 1, i) = l(j, i) Xor x(i)
  l(j + 1, i) = r(j, i)
 Next
Next
For i = 1 To 32
 m_byte(i) = l(17, i)
 m_byte(i + 32) = r(17, i)
Next
     For i = 1 To 64
  m_byte1(i) = m_byte(ip_1(i))
   Encrypt = Encrypt & m_byte1(i)
 Next
End Function

Public Function decrypt(sm , key )
Dim p(32) , ip_1(64) , ip(64) , e(48) , s10(64) , er(48)
Dim j , key1 , s2(16) , k(16, 48) , s1(64) , l(17, 32) , r(17, 32)
Dim i , A , bs , B(32) , x(32) , e_byte(64) , e_byte1(64)
Dim ilen
    p(1) = 16: p(2) = 7: p(3) = 20: p(4) = 21: p(5) = 29: p(6) = 12: p(7) = 28: p(8) = 17
    p(9) = 1: p(10) = 15: p(11) = 23: p(12) = 26: p(13) = 5: p(14) = 18: p(15) = 31: p(16) = 10
    p(17) = 2: p(18) = 8: p(19) = 24: p(20) = 14: p(21) = 32: p(22) = 27: p(23) = 3: p(24) = 9
    p(25) = 19: p(26) = 13: p(27) = 30: p(28) = 6: p(29) = 22: p(30) = 11: p(31) = 4: p(32) = 25
    ip_1(1) = 40: ip_1(2) = 8: ip_1(3) = 48: ip_1(4) = 16: ip_1(5) = 56: ip_1(6) = 24: ip_1(7) = 64: ip_1(8) = 32
    ip_1(9) = 39: ip_1(10) = 7: ip_1(11) = 47: ip_1(12) = 15: ip_1(13) = 55: ip_1(14) = 23: ip_1(15) = 63: ip_1(16) = 31
    ip_1(17) = 38: ip_1(18) = 6: ip_1(19) = 46: ip_1(20) = 14: ip_1(21) = 54: ip_1(22) = 22: ip_1(23) = 62: ip_1(24) = 30
    ip_1(25) = 37: ip_1(26) = 5: ip_1(27) = 45: ip_1(28) = 13: ip_1(29) = 53: ip_1(30) = 21: ip_1(31) = 61: ip_1(32) = 29
    ip_1(33) = 36: ip_1(34) = 4: ip_1(35) = 44: ip_1(36) = 12: ip_1(37) = 52: ip_1(38) = 20: ip_1(39) = 60: ip_1(40) = 28
    ip_1(41) = 35: ip_1(42) = 3: ip_1(43) = 43: ip_1(44) = 11: ip_1(45) = 51: ip_1(46) = 19: ip_1(47) = 59: ip_1(48) = 27
    ip_1(49) = 34: ip_1(50) = 2: ip_1(51) = 42: ip_1(52) = 10: ip_1(53) = 50: ip_1(54) = 18: ip_1(55) = 58: ip_1(56) = 26
    ip_1(57) = 33: ip_1(58) = 1: ip_1(59) = 41: ip_1(60) = 9: ip_1(61) = 49: ip_1(62) = 17: ip_1(63) = 57: ip_1(64) = 25
    ip(1) = 58: ip(2) = 50: ip(3) = 42: ip(4) = 34: ip(5) = 26: ip(6) = 18: ip(7) = 10: ip(8) = 2
    ip(9) = 60: ip(10) = 52: ip(11) = 44: ip(12) = 36: ip(13) = 28: ip(14) = 20: ip(15) = 12: ip(16) = 4
    ip(17) = 62: ip(18) = 54: ip(19) = 46: ip(20) = 38: ip(21) = 30: ip(22) = 22: ip(23) = 14: ip(24) = 6
    ip(25) = 64: ip(26) = 56: ip(27) = 48: ip(28) = 40: ip(29) = 32: ip(30) = 24: ip(31) = 16: ip(32) = 8
    ip(33) = 57: ip(34) = 49: ip(35) = 41: ip(36) = 33: ip(37) = 25: ip(38) = 17: ip(39) = 9: ip(40) = 1
    ip(41) = 59: ip(42) = 51: ip(43) = 43: ip(44) = 35: ip(45) = 27: ip(46) = 19: ip(47) = 11: ip(48) = 3
    ip(49) = 61: ip(50) = 53: ip(51) = 45: ip(52) = 37: ip(53) = 29: ip(54) = 21: ip(55) = 13: ip(56) = 5
    ip(57) = 63: ip(58) = 55: ip(59) = 47: ip(60) = 39: ip(61) = 31: ip(62) = 23: ip(63) = 15: ip(64) = 7
    e(1) = 32: e(2) = 1: e(3) = 2: e(4) = 3: e(5) = 4: e(6) = 5
    e(7) = 4: e(8) = 5: e(9) = 6: e(10) = 7: e(11) = 8: e(12) = 9
    e(13) = 8: e(14) = 9: e(15) = 10: e(16) = 11: e(17) = 12: e(18) = 13
    e(19) = 12: e(20) = 13: e(21) = 14: e(22) = 15: e(23) = 16: e(24) = 17
    e(25) = 16: e(26) = 17: e(27) = 18: e(28) = 19: e(29) = 20: e(30) = 21
    e(31) = 20: e(32) = 21: e(33) = 22: e(34) = 23: e(35) = 24: e(36) = 25
    e(37) = 24: e(38) = 25: e(39) = 26: e(40) = 27: e(41) = 28: e(42) = 29
    e(43) = 28: e(44) = 29: e(45) = 30: e(46) = 31: e(47) = 32: e(48) = 31
  key1 = sk(key)
  For i = 1 To 16
   s2(i) = Mid(key1, 48 * i - 47, 48)
  Next
  For i = 1 To 16
   For j = 1 To 48
    k(i, j) = CInt(Mid(s2(i), j, 1))
   Next
  Next
  ilen = Len(sm)
  For i = 1 To ilen
    s1(i) = CInt(Mid(sm, i, 1))
  Next
  For i = 1 To 64
    s10(i) = s1(ip(i))
  Next
  For i = 1 To 32
     l(1, i) = s10(i + 32)
     r(1, i) = s10(i)
   Next
  For j = 1 To 16
  A = ""
   For i = 1 To 32
    l(j + 1, i) = r(j, i)
    Next
  For i = 1 To 48
   er(i) = r(j, e(i))
  Next
  For i = 1 To 48
    A = A & (er(i) Xor k(17 - j, i))
  Next
  bs = sbox(A)
  For i = 1 To 32
   B(i) = CInt(Mid(bs, i, 1))
  Next
   For i = 1 To 32
    x(i) = B(p(i))
   Next
    For i = 1 To 32
 r(j + 1, i) = l(j, i) Xor x(i)
 Next
 Next
For i = 1 To 32
 e_byte(i) = r(17, i)
 e_byte(i + 32) = l(17, i)
Next
For i = 1 To 64
    e_byte1(i) = e_byte(ip_1(i))
    decrypt = decrypt & e_byte1(i)
 Next
End Function