Dim d As Integer, b As Integer, c As Integer- a$ M0 ^* X, ]: ]0 z7 l
d = Val("&H" + InputBox("lease enter password:")) / T* D6 K7 Z1 A: Z( V9 N5 z ~Select Case d8 V! v: O( f: n! p G. I# D
Case 0 To 32, 64 To 95) h% `2 C3 }1 v' Q z
b = d Mod 4 / L. m) X% q4 e$ z9 ^' j, \- [ If b = 0 Or b = 1 Then( b3 N) C b( c$ U4 H
c = 93 - d 3 ]1 _1 o) ?8 d4 c: J3 U7 A$ R" i6 a0 { ElseIf b = 2 Or b = 3 Then4 {6 ^3 h+ Y! @5 Z" ~; ]
c = 97 - d+ q* d7 _9 D( ?- ~& H. Y9 |
End If- r! P$ f) n- |8 }3 Z
Case 32 To 63, 96 To 126 . u4 v G, c( u4 d: R- j b = d Mod 46 a5 ?+ ]- \. L" ^' w% H. ^& F
If b = 0 Or b = 1 Then ( O* P8 Q; _& i, p c = 157 - d8 Q' l$ K3 ~& U& m6 ]$ k
ElseIf b = 2 Or b = 3 Then ! z9 y! W o% Y- F; W! L c = 161 - d % P7 F! a0 x9 m End If # J* ]8 m3 B& {6 O+ }. d& tEnd Select7 R6 E* N) T0 O6 R" P v1 |
MsgBox "THE WORD IS" + vbCrLf + Chr(34) + Chr(c) + Chr(34)