摘要：
Function cipher(stext As String) '密码加密程序 Const min_asc = 32 Const max_asc = 126 Const num_asc = max_asc - min_asc + 1 Dim offset As Long Dim strlen As Integer Dim i As Integer Dim ch As Integer Dim ptext As String offset = 123 Rnd (-1) Randomize (offset) strlen... 阅读全文