亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關(guān)于我們
? 蟲蟲下載站

?? frmdis.frm

?? DES算法單機(jī)版
?? FRM
字號(hào): 
VERSION 5.00
Begin VB.Form frmdis 
   Caption         =   "解密運(yùn)算"
   ClientHeight    =   3945
   ClientLeft      =   1635
   ClientTop       =   2250
   ClientWidth     =   6690
   LinkTopic       =   "Form1"
   ScaleHeight     =   3945
   ScaleWidth      =   6690
   Begin VB.CommandButton Command2 
      BackColor       =   &H80000013&
      Caption         =   "取消"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   450
      Left            =   3240
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   3240
      Width           =   855
   End
   Begin VB.CommandButton Command3 
      BackColor       =   &H80000013&
      Caption         =   "確定"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   450
      Left            =   2040
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   3240
      Width           =   855
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   1920
      TabIndex        =   1
      Top             =   1320
      Width           =   2175
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   1920
      TabIndex        =   0
      Top             =   2400
      Width           =   2175
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "高三十二位代碼："
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   2040
      TabIndex        =   5
      Top             =   840
      Width           =   2280
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "低三十二位代碼："
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   1920
      TabIndex        =   4
      Top             =   1920
      Width           =   2280
   End
End
Attribute VB_Name = "frmdis"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command2_Click()
Unload Me
frmmain.Show
End Sub

Private Sub Command3_Click()
Dim mingh, mingl, l0, r0 As Variant
'mingh = Val(Text1.Text)
'mingl = Val(Text2.Text)
mingh = gethh
mingl = getll
Dim hibit As Byte, lowbit As Byte
If (mingh >= 2 ^ 31) Then
    hibit = 1
    mingh = mingh - 2 ^ 31
Else
    hibit = 0
End If
If (mingl >= 2 ^ 31) Then
    lowbit = 1
    mingl = mingl - 2 ^ 31
Else
    lowbit = 0
End If
l0 = Int((mingh Mod (2 ^ 25)) / 2 ^ 24) * (2 ^ 0) + Int((mingh Mod (2 ^ 17)) / 2 ^ 16) * (2 ^ 1) _
+ Int((mingh Mod (2 ^ 9)) / 2 ^ 8) * (2 ^ 2) + Int((mingh Mod (2 ^ 1)) / 2 ^ 0) * (2 ^ 3) _
+ Int((mingl Mod (2 ^ 25)) / 2 ^ 24) * (2 ^ 4) + Int((mingl Mod (2 ^ 17)) / 2 ^ 16) * (2 ^ 5) _
+ Int((mingl Mod (2 ^ 9)) / 2 ^ 8) * (2 ^ 6) + Int((mingl Mod (2 ^ 1)) / 2 ^ 0) * (2 ^ 7) _
+ Int((mingh Mod (2 ^ 27)) / 2 ^ 26) * (2 ^ 8) + Int((mingh Mod (2 ^ 19)) / 2 ^ 18) * (2 ^ 9) _
+ Int((mingh Mod (2 ^ 11)) / 2 ^ 10) * (2 ^ 10) + Int((mingh Mod (2 ^ 3)) / 2 ^ 2) * (2 ^ 11) _
+ Int((mingl Mod (2 ^ 27)) / 2 ^ 26) * (2 ^ 12) + Int((mingl Mod (2 ^ 19)) / 2 ^ 18) * (2 ^ 13) _
+ Int((mingl Mod (2 ^ 11)) / 2 ^ 10) * (2 ^ 14) + Int((mingl Mod (2 ^ 3)) / 2 ^ 2) * (2 ^ 15) _
+ Int((mingh Mod (2 ^ 29)) / 2 ^ 28) * (2 ^ 16) + Int((mingh Mod (2 ^ 21)) / 2 ^ 20) * (2 ^ 17) _
+ Int((mingh Mod (2 ^ 13)) / 2 ^ 12) * (2 ^ 18) + Int((mingh Mod (2 ^ 5)) / 2 ^ 4) * (2 ^ 19) _
+ Int((mingl Mod (2 ^ 29)) / 2 ^ 28) * (2 ^ 20) + Int((mingl Mod (2 ^ 21)) / 2 ^ 20) * (2 ^ 21) _
+ Int((mingl Mod (2 ^ 13)) / 2 ^ 12) * (2 ^ 22) + Int((mingl Mod (2 ^ 5)) / 2 ^ 4) * (2 ^ 23) _
+ Int(mingh / 2 ^ 30) * (2 ^ 24) + Int((mingh Mod (2 ^ 23)) / 2 ^ 22) * (2 ^ 25) _
+ Int((mingh Mod (2 ^ 15)) / 2 ^ 14) * (2 ^ 26) + Int((mingh Mod (2 ^ 7)) / 2 ^ 6) * (2 ^ 27) _
+ Int(mingl / 2 ^ 30) * (2 ^ 28) + Int((mingl Mod (2 ^ 23)) / 2 ^ 22) * (2 ^ 29) _
+ Int((mingl Mod (2 ^ 15)) / 2 ^ 14) * (2 ^ 30) + Int((mingl Mod (2 ^ 7)) / 2 ^ 6) * (2 ^ 31)


r0 = Int((mingh Mod (2 ^ 26)) / 2 ^ 25) * (2 ^ 0) + Int((mingh Mod (2 ^ 18)) / 2 ^ 17) * (2 ^ 1) _
+ Int((mingh Mod (2 ^ 10)) / 2 ^ 9) * (2 ^ 2) + Int((mingh Mod (2 ^ 2)) / 2 ^ 1) * (2 ^ 3) _
+ Int((mingl Mod (2 ^ 26)) / 2 ^ 25) * (2 ^ 4) + Int((mingl Mod (2 ^ 18)) / 2 ^ 17) * (2 ^ 5) _
+ Int((mingl Mod (2 ^ 10)) / 2 ^ 9) * (2 ^ 6) + Int((mingl Mod (2 ^ 2)) / 2 ^ 1) * (2 ^ 7) _
+ Int((mingh Mod (2 ^ 28)) / 2 ^ 27) * (2 ^ 8) + Int((mingh Mod (2 ^ 20)) / 2 ^ 19) * (2 ^ 9) _
+ Int((mingh Mod (2 ^ 12)) / 2 ^ 11) * (2 ^ 10) + Int((mingh Mod (2 ^ 4)) / 2 ^ 3) * (2 ^ 11) _
+ Int((mingl Mod (2 ^ 28)) / 2 ^ 27) * (2 ^ 12) + Int((mingl Mod (2 ^ 20)) / 2 ^ 19) * (2 ^ 13) _
+ Int((mingl Mod (2 ^ 12)) / 2 ^ 11) * (2 ^ 14) + Int((mingl Mod (2 ^ 4)) / 2 ^ 3) * (2 ^ 15) _
+ Int((mingh Mod (2 ^ 30)) / 2 ^ 29) * (2 ^ 16) + Int((mingh Mod (2 ^ 22)) / 2 ^ 21) * (2 ^ 17) _
+ Int((mingh Mod (2 ^ 14)) / 2 ^ 13) * (2 ^ 18) + Int((mingh Mod (2 ^ 6)) / 2 ^ 5) * (2 ^ 19) _
+ Int((mingl Mod (2 ^ 30)) / 2 ^ 29) * (2 ^ 20) + Int((mingl Mod (2 ^ 22)) / 2 ^ 21) * (2 ^ 21) _
+ Int((mingl Mod (2 ^ 14)) / 2 ^ 13) * (2 ^ 22) + Int((mingl Mod (2 ^ 6)) / 2 ^ 5) * (2 ^ 23) _
+ hibit * (2 ^ 24) + Int((mingh Mod (2 ^ 24)) / 2 ^ 23) * (2 ^ 25) _
+ Int((mingh Mod (2 ^ 16)) / 2 ^ 15) * (2 ^ 26) + Int((mingh Mod (2 ^ 8)) / 2 ^ 7) * (2 ^ 27) _
+ lowbit * (2 ^ 28) + Int((mingl Mod (2 ^ 24)) / 2 ^ 23) * (2 ^ 29) _
+ Int((mingl Mod (2 ^ 16)) / 2 ^ 15) * (2 ^ 30) + Int((mingl Mod (2 ^ 8)) / 2 ^ 7) * (2 ^ 31)


Dim ii As Byte
Dim trankk, tranval, fval As Variant
Dim l0h As Long, l0l As Long, fh As Long, fl As Long
For ii = 1 To 16
    tranval = r0
    trankk = kk(17 - ii)
    fval = ff(r0, trankk)
    l0h = Int(l0 / 2 ^ 16)
    l0l = l0 - l0h * 2 ^ 16
    fh = Int(fval / 2 ^ 16)
    fl = fval - fh * 2 ^ 16
    r0 = (fh Xor l0h) * 2 ^ 16 + (fl Xor l0l)
    l0 = tranval
Next ii

If (r0 >= 2 ^ 31) Then
    hibit = 1
    r0 = r0 - 2 ^ 31
Else
    hibit = 0
End If

If (l0 >= 2 ^ 31) Then
    lowbit = 1
    l0 = l0 - 2 ^ 31
Else
    lowbit = 0
End If

Dim mh, ml As Variant
mh = Int((r0 Mod (2 ^ 4)) / 2 ^ 3) * (2 ^ 0) + Int((l0 Mod (2 ^ 4)) / 2 ^ 3) * (2 ^ 1) _
+ Int((r0 Mod (2 ^ 12)) / 2 ^ 11) * (2 ^ 2) + Int((l0 Mod (2 ^ 12)) / 2 ^ 11) * (2 ^ 3) _
+ Int((r0 Mod (2 ^ 20)) / 2 ^ 19) * (2 ^ 4) + Int((l0 Mod (2 ^ 20)) / 2 ^ 19) * (2 ^ 5) _
+ Int((r0 Mod (2 ^ 28)) / 2 ^ 27) * (2 ^ 6) + Int((l0 Mod (2 ^ 28)) / 2 ^ 27) * (2 ^ 7) _
+ Int((r0 Mod (2 ^ 3)) / 2 ^ 2) * (2 ^ 8) + Int((l0 Mod (2 ^ 3)) / 2 ^ 2) * (2 ^ 9) _
+ Int((r0 Mod (2 ^ 11)) / 2 ^ 10) * (2 ^ 10) + Int((l0 Mod (2 ^ 11)) / 2 ^ 10) * (2 ^ 11) _
+ Int((r0 Mod (2 ^ 19)) / 2 ^ 18) * (2 ^ 12) + Int((l0 Mod (2 ^ 19)) / 2 ^ 18) * (2 ^ 13) _
+ Int((r0 Mod (2 ^ 27)) / 2 ^ 26) * (2 ^ 14) + Int((l0 Mod (2 ^ 27)) / 2 ^ 26) * (2 ^ 15) _
+ Int((r0 Mod (2 ^ 2)) / 2 ^ 1) * (2 ^ 16) + Int((l0 Mod (2 ^ 2)) / 2 ^ 1) * (2 ^ 17) _
+ Int((r0 Mod (2 ^ 10)) / 2 ^ 9) * (2 ^ 18) + Int((l0 Mod (2 ^ 10)) / 2 ^ 9) * (2 ^ 19) _
+ Int((r0 Mod (2 ^ 18)) / 2 ^ 17) * (2 ^ 20) + Int((l0 Mod (2 ^ 18)) / 2 ^ 17) * (2 ^ 21) _
+ Int((r0 Mod (2 ^ 26)) / 2 ^ 25) * (2 ^ 22) + Int((l0 Mod (2 ^ 26)) / 2 ^ 25) * (2 ^ 23) _
+ Int((r0 Mod (2 ^ 1)) / 2 ^ 0) * (2 ^ 24) + Int((l0 Mod (2 ^ 1)) / 2 ^ 0) * (2 ^ 25) _
+ Int((r0 Mod (2 ^ 9)) / 2 ^ 8) * (2 ^ 26) + Int((l0 Mod (2 ^ 9)) / 2 ^ 8) * (2 ^ 27) _
+ Int((r0 Mod (2 ^ 17)) / 2 ^ 16) * (2 ^ 28) + Int((l0 Mod (2 ^ 17)) / 2 ^ 16) * (2 ^ 29) _
+ Int((r0 Mod (2 ^ 25)) / 2 ^ 24) * (2 ^ 30) + Int((l0 Mod (2 ^ 25)) / 2 ^ 24) * (2 ^ 31)


ml = Int((r0 Mod (2 ^ 8)) / 2 ^ 7) * (2 ^ 0) + Int((l0 Mod (2 ^ 8)) / 2 ^ 7) * (2 ^ 1) _
+ Int((r0 Mod (2 ^ 16)) / 2 ^ 15) * (2 ^ 2) + Int((l0 Mod (2 ^ 16)) / 2 ^ 15) * (2 ^ 3) _
+ Int((r0 Mod (2 ^ 24)) / 2 ^ 23) * (2 ^ 4) + Int((l0 Mod (2 ^ 24)) / 2 ^ 23) * (2 ^ 5) _
+ hibit * (2 ^ 6) + lowbit * (2 ^ 7) _
+ Int((r0 Mod (2 ^ 7)) / 2 ^ 6) * (2 ^ 8) + Int((l0 Mod (2 ^ 7)) / 2 ^ 6) * (2 ^ 9) _
+ Int((r0 Mod (2 ^ 15)) / 2 ^ 14) * (2 ^ 10) + Int((l0 Mod (2 ^ 15)) / 2 ^ 14) * (2 ^ 11) _
+ Int((r0 Mod (2 ^ 23)) / 2 ^ 22) * (2 ^ 12) + Int((l0 Mod (2 ^ 23)) / 2 ^ 22) * (2 ^ 13) _
+ Int(r0 / 2 ^ 30) * (2 ^ 14) + Int(l0 / 2 ^ 30) * (2 ^ 15) _
+ Int((r0 Mod (2 ^ 6)) / 2 ^ 5) * (2 ^ 16) + Int((l0 Mod (2 ^ 6)) / 2 ^ 5) * (2 ^ 17) _
+ Int((r0 Mod (2 ^ 14)) / 2 ^ 13) * (2 ^ 18) + Int((l0 Mod (2 ^ 14)) / 2 ^ 13) * (2 ^ 19) _
+ Int((r0 Mod (2 ^ 22)) / 2 ^ 21) * (2 ^ 20) + Int((l0 Mod (2 ^ 22)) / 2 ^ 21) * (2 ^ 21) _
+ Int((r0 Mod (2 ^ 30)) / 2 ^ 29) * (2 ^ 22) + Int((l0 Mod (2 ^ 30)) / 2 ^ 29) * (2 ^ 23) _
+ Int((r0 Mod (2 ^ 5)) / 2 ^ 4) * (2 ^ 24) + Int((l0 Mod (2 ^ 5)) / 2 ^ 4) * (2 ^ 25) _
+ Int((r0 Mod (2 ^ 13)) / 2 ^ 12) * (2 ^ 26) + Int((l0 Mod (2 ^ 13)) / 2 ^ 12) * (2 ^ 27) _
+ Int((r0 Mod (2 ^ 21)) / 2 ^ 20) * (2 ^ 28) + Int((l0 Mod (2 ^ 21)) / 2 ^ 20) * (2 ^ 29) _
+ Int((r0 Mod (2 ^ 29)) / 2 ^ 28) * (2 ^ 30) + Int((l0 Mod (2 ^ 29)) / 2 ^ 28) * (2 ^ 31)

MsgBox (mh)
MsgBox (ml)
Unload Me
frmmain.Show
End Sub

Private Sub Text1_Change()
If (Val(Text1.Text) < 2 ^ 32 And Val(Text2.Text) < 2 ^ 32 And (Val(Text1.Text) > 0 Or Val(Text2.Text) > 0)) Then
    Command3.Enabled = True
Else
    Command3.Enabled = False
End If
End Sub

Private Sub Text2_Change()
If (Val(Text1.Text) < 2 ^ 32 And Val(Text2.Text) < 2 ^ 32 And (Val(Text1.Text) > 0 Or Val(Text2.Text) > 0)) Then
    Command3.Enabled = True
Else
    Command3.Enabled = False
End If

End Sub

?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
亚洲人被黑人高潮完整版| 日韩欧美资源站| 色噜噜偷拍精品综合在线| 欧美日本一区二区三区| 欧美激情在线观看视频免费| 午夜久久福利影院| eeuss鲁片一区二区三区在线看| 欧美精品自拍偷拍| 中文字幕人成不卡一区| 精品一区二区影视| 欧美精品在线观看一区二区| 人禽交欧美网站| 91电影在线观看| 偷窥国产亚洲免费视频| 91麻豆精品国产91久久久久久久久 | 丝袜美腿成人在线| 成人国产亚洲欧美成人综合网| 日韩欧美中文一区二区| 国产一区欧美二区| 欧美一区二区三区日韩视频| 亚洲国产一二三| 91在线免费看| 中文字幕一区av| 在线看日本不卡| 一区二区不卡在线播放| 91小视频在线免费看| 中文欧美字幕免费| 国产精品一区二区果冻传媒| 日韩免费电影网站| 久久精品免费看| 欧美va天堂va视频va在线| 男人的天堂久久精品| 久久亚洲精精品中文字幕早川悠里| 蜜桃久久av一区| 日韩欧美视频在线| www.久久久久久久久| 午夜电影久久久| 欧美经典一区二区| 欧美三级中文字| 三级欧美在线一区| 国产精品视频一区二区三区不卡| 欧美在线视频不卡| 国产成人精品免费一区二区| 亚洲国产激情av| 欧美一区二区三区四区高清| 成人av中文字幕| 亚洲成人av在线电影| 欧美精品自拍偷拍| av午夜一区麻豆| 久久国产精品72免费观看| 伊人色综合久久天天| 欧美日韩免费电影| 成人国产在线观看| 久久国产精品色婷婷| 亚洲国产成人va在线观看天堂| 国产日韩av一区二区| 不卡av电影在线播放| 国模大尺度一区二区三区| 国产欧美精品一区二区色综合朱莉| 亚洲国产高清aⅴ视频| 欧美二区三区的天堂| 在线视频一区二区三| 波波电影院一区二区三区| 青青草国产精品97视觉盛宴 | 在线电影一区二区三区| 丁香激情综合国产| 亚洲品质自拍视频| 国产精品妹子av| 久久精品综合网| 日本精品视频一区二区三区| 成人丝袜视频网| 国产精品一区二区三区乱码| 狠狠色丁香九九婷婷综合五月| 视频一区国产视频| 午夜欧美视频在线观看| 一区二区三区色| 亚洲另类中文字| 亚洲免费在线观看| 亚洲伦理在线免费看| 亚洲色图欧洲色图| www国产精品av| 欧美电视剧在线看免费| 日韩一区二区三区免费看 | 国内精品免费**视频| 免费不卡在线观看| 毛片一区二区三区| 久久99国产精品免费网站| 麻豆专区一区二区三区四区五区| 美女www一区二区| 国产在线播放一区三区四| 国产在线观看免费一区| 国产成人免费av在线| 成人黄色小视频| 在线免费亚洲电影| 欧美日韩视频不卡| 日韩三级.com| 国产欧美日韩精品在线| 国产精品护士白丝一区av| 欧美精品一区二区高清在线观看| 色婷婷一区二区| 成人污视频在线观看| 色综合久久久久综合99| 欧美性做爰猛烈叫床潮| 91捆绑美女网站| 欧美视频中文字幕| 欧美一区二区国产| 久久青草国产手机看片福利盒子 | 午夜久久久久久久久久一区二区| 日本欧美一区二区| 亚洲国产精品一区二区www| 日韩精品电影一区亚洲| 午夜av区久久| 亚洲天堂中文字幕| 亚洲第一激情av| 精品一区二区免费| 国产99久久久精品| 亚洲v精品v日韩v欧美v专区| 蜜桃av一区二区| 99热国产精品| 8v天堂国产在线一区二区| 久久久99久久| 一区二区三区高清在线| 久久成人免费日本黄色| 91丨porny丨中文| 日韩一区二区在线看| 国产精品久久久久婷婷| 石原莉奈一区二区三区在线观看| 国产精品一级黄| 欧美少妇一区二区| 天堂在线一区二区| 国产黄色精品网站| 日韩你懂的在线播放| 欧美一级专区免费大片| 中文字幕av一区二区三区免费看 | 五月婷婷激情综合| 福利电影一区二区| 欧美一区二区三区在线观看视频| 国产精品不卡在线| 麻豆视频观看网址久久| 日本道精品一区二区三区| 精品国产乱码久久久久久浪潮 | 水蜜桃久久夜色精品一区的特点| 国产成人h网站| 日韩欧美自拍偷拍| 亚洲国产一区二区在线播放| 成人av动漫在线| 久久一日本道色综合| 亚洲18影院在线观看| 一本大道久久a久久综合| 久久精品免视看| 热久久免费视频| 欧美三级欧美一级| 亚洲精品一二三| 成人国产精品免费观看动漫| 欧美激情艳妇裸体舞| 欧美本精品男人aⅴ天堂| 亚洲欧美视频在线观看| 国产一区在线看| 一区二区三区四区不卡在线 | 亚洲色图一区二区三区| 国产成人亚洲综合色影视| 欧美成人猛片aaaaaaa| 午夜a成v人精品| 欧美老年两性高潮| 亚洲成人自拍网| 欧美性猛交一区二区三区精品| 亚洲色图.com| 91碰在线视频| 国产精品高清亚洲| av一区二区久久| 亚洲同性gay激情无套| av在线不卡电影| 亚洲婷婷在线视频| 91在线国产观看| 1024成人网| 色天使色偷偷av一区二区| 亚洲精品伦理在线| 色激情天天射综合网| 亚洲一级片在线观看| 日本怡春院一区二区| 884aa四虎影成人精品一区| 无吗不卡中文字幕| 51久久夜色精品国产麻豆| 石原莉奈在线亚洲二区| 日韩天堂在线观看| 麻豆传媒一区二区三区| 欧美xxxxx裸体时装秀| 狠狠网亚洲精品| 一区二区三区在线观看网站| 91色porny在线视频| 一区二区欧美国产| 欧美精品在欧美一区二区少妇| 日韩高清一区二区| 青青草成人在线观看| 精品国产髙清在线看国产毛片| 韩国三级在线一区| 国产精品久久久久久一区二区三区 | 激情综合色播五月| 欧美激情一区二区在线| 91福利在线看|