|
Dim d As Integer, b As Integer, c As Integer) c2 r$ [2 b+ L6 b, v0 r
d = Val("&H" + InputBox("lease enter password:"))- }0 u8 @2 |$ m( t J& u, r9 Z
Select Case d
; R, B- d1 w5 \. u; \! P7 bCase 0 To 32, 64 To 95
4 p( l. g; e: F; W& ?& L% O b = d Mod 4+ k$ `4 m; `* e5 ~8 |
If b = 0 Or b = 1 Then0 i) [, L |' \
c = 93 - d
4 a$ q" }9 b! \7 j, m ElseIf b = 2 Or b = 3 Then' _+ L2 {" [" r/ ]4 @8 x
c = 97 - d
6 L; Z6 U4 ]4 [7 v1 H1 U End If. G8 q" e9 n! l' k
Case 32 To 63, 96 To 126
) Z Q9 K$ M8 Z& n" U' S b = d Mod 4
" {0 W7 c! O O. h5 R$ Q If b = 0 Or b = 1 Then0 U* _) Z+ f) V' |' i
c = 157 - d2 z3 x, o! Z1 n% w; n
ElseIf b = 2 Or b = 3 Then( {0 m; I' R9 d; D9 O
c = 161 - d+ m7 a0 h9 T& |5 x
End If. o* w* D, N+ [. H# k1 Z
End Select
' n B1 r# X8 H4 k4 YMsgBox "THE WORD IS" + vbCrLf + Chr(34) + Chr(c) + Chr(34) |
|