|
Dim d As Integer, b As Integer, c As Integer% U H* K3 @% R" M: U, k
d = Val("&H" + InputBox("lease enter password:"))6 H' q! h5 ^' S' Y0 k
Select Case d
. S2 D9 l$ F* b0 C( H/ HCase 0 To 32, 64 To 95
3 E4 V0 y8 L/ z5 F! X b = d Mod 4
! R, |9 [7 }' { Z, z If b = 0 Or b = 1 Then
3 x2 R: o8 r8 ^6 P c = 93 - d
0 W/ c: K$ a0 }, P# y# i ElseIf b = 2 Or b = 3 Then
8 j8 L8 W- N, Z c = 97 - d& Q4 G" x5 j( f+ L' N# Z1 x9 k+ \' v) u
End If
. I2 ]9 {% ^: n U; ^/ UCase 32 To 63, 96 To 126' H; p# p* R! @$ X6 ^
b = d Mod 4! f4 b- G. L! `: U3 i3 Q! N9 G" P
If b = 0 Or b = 1 Then) E0 A9 T6 W" S q& _1 J
c = 157 - d
! }' p5 R3 X1 Q, o ElseIf b = 2 Or b = 3 Then
6 P) y2 u# q6 L/ D+ Z3 u c = 161 - d
# ^4 b4 _" x+ T* \ End If+ B$ f- c8 k% d$ S6 n
End Select: _! ?0 v. j( I
MsgBox "THE WORD IS" + vbCrLf + Chr(34) + Chr(c) + Chr(34) |
|