Dim d As Integer, b As Integer, c As Integer 2 m! Y: X( |7 F! Fd = Val("&H" + InputBox("lease enter password:")) ( r- n% j. s- KSelect Case d( ?0 C. G& X _/ F& Z
Case 0 To 32, 64 To 95) s ~" S# A" l* O
b = d Mod 4 ! P7 m4 Y& R1 z/ _2 e If b = 0 Or b = 1 Then 3 l& I8 D) p/ D& ^ c = 93 - d( X' S0 [/ z) f- y+ o
ElseIf b = 2 Or b = 3 Then + e' P! P u N- j( B c = 97 - d* K& W! o) i H& R9 y$ b
End If4 L7 `& l2 P2 X; ]
Case 32 To 63, 96 To 1268 S8 X) X, k, T' k- S4 B. W
b = d Mod 4 # |& A4 D, i- l4 L h+ B If b = 0 Or b = 1 Then; H2 f" N2 [& ]9 W x
c = 157 - d6 O" c9 d) O$ c( l6 S0 O( B
ElseIf b = 2 Or b = 3 Then ' K4 \' d: N$ w% e c = 161 - d% E& @* U: M2 L( B2 Q' I
End If" E) D8 n- M+ G! H; W/ P1 r
End Select 0 U$ g( S4 F3 G$ f4 jMsgBox "THE WORD IS" + vbCrLf + Chr(34) + Chr(c) + Chr(34)