Главная » 2015 Сентябрь 14 » малость шифровать
10:12 малость шифровать | |
| Private Const cCryptStr As String = "qenwtykpoit98)dlprtm34*%jUFns6_ghWZ?';}/fjRp0&gdtyjFMPOTEKHTmbsc;qe'654 dlklskdOPKSWjh"Public Function Crypt(sValue As String) As String Dim i As Integer Dim sDummy As String sDummy = sValue For i = 1 To Len(sValue) Mid(sDummy, i, 1) = Chr(Asc(mID(sValue, i, 1)) + Asc(mID(cCryptStr, i, 1))) Next i Crypt = sDummyEnd FunctionPublic Function EnCrypt(sValue As String) As String Dim i As Integer Dim sDummy As String sDummy = sValue For i = 1 To Len(sValue) Mid(sDummy, i, 1) = Chr(Asc(mID(sValue, i, 1)) - Asc(mID(cCryptStr, i, 1))) Next i EnCrypt = sDummyEnd Function | |
|
| |
| Всего комментариев: 0 | |
