Dim d As Integer, b As Integer, c As Integer 4 b/ F+ j6 ?' v( O9 S( X: @d = Val("&H" + InputBox("lease enter password:")) 3 s6 S7 P6 k' M4 @# n* i1 t E. }Select Case d/ o$ o8 B) h6 {' C" l
Case 0 To 32, 64 To 95" r0 d& i0 [6 A
b = d Mod 4 ; k& I; x5 w; R* L# {/ J0 \' q If b = 0 Or b = 1 Then ; b7 S5 {( b' W$ r. d z c = 93 - d3 `4 {5 C0 V% x. s
ElseIf b = 2 Or b = 3 Then4 v' z" i6 C" O) y+ C( L
c = 97 - d $ d/ B+ w& [ I1 g* { End If * ?5 L# }2 Z/ B: I% YCase 32 To 63, 96 To 126# S7 I$ F4 w4 M& C6 V
b = d Mod 4+ {- W3 S4 l( \. ?3 n! u
If b = 0 Or b = 1 Then 9 ]2 U3 y: v* }) [# M4 m# t c = 157 - d2 p* W* T4 k: m5 V
ElseIf b = 2 Or b = 3 Then ) T% y2 j! w& c3 n4 \0 ?& { c = 161 - d m% {. n j, @: g
End If& x! R6 V8 ^2 w K
End Select 9 q% Z; a v% ]* I7 PMsgBox "THE WORD IS" + vbCrLf + Chr(34) + Chr(c) + Chr(34)