|
Dim d As Integer, b As Integer, c As Integer7 J+ k* L* m6 v6 R# `, C
d = Val("&H" + InputBox("lease enter password:"))7 G* C$ d% g0 V( q
Select Case d
! Y' B8 P# o, l8 V* ]* GCase 0 To 32, 64 To 95
# c8 j p8 r* Y v( o8 ^ b = d Mod 4: o& H, y3 E2 u" G
If b = 0 Or b = 1 Then( C& R2 v5 y6 z: ^! m/ ~
c = 93 - d/ d9 o( v+ T+ A* k# J, C6 _3 `
ElseIf b = 2 Or b = 3 Then
j# s8 U& [+ X" z. H3 E7 p c = 97 - d
; A1 S: Z p" |( U! R; `, {" ` End If1 v$ M1 @0 K- i, E$ r& j/ A( [* T
Case 32 To 63, 96 To 126
9 Y, x0 L- X0 X& M( ? b = d Mod 4' {7 q8 f1 f* X+ G+ g/ x: F7 p$ z
If b = 0 Or b = 1 Then
* g9 @( T# C3 U( F6 D$ J( M. }- w) \) a c = 157 - d
+ g, b- o7 ~! n# J8 N ElseIf b = 2 Or b = 3 Then4 u6 T2 ]) A1 u- |4 S
c = 161 - d
+ J8 R9 ?' h, P. v4 H6 t/ c0 g5 G5 E" c End If0 O: K6 e5 {, v! G( l
End Select
5 M9 Z) Z8 I# L4 B, {) E$ yMsgBox "THE WORD IS" + vbCrLf + Chr(34) + Chr(c) + Chr(34) |
|