Модератор: BV
Ramzes писал(а):пароли лучше хранить в голове
Amed писал(а):Пароли не шифруются?
SK4 писал(а):Начиная с версии 2.0.0.3 появилось контрольное слово, которое шифруется тем же паролем, что и код, и по нему можно определить, какой результат вы получили(верный или нет).
WspNum = NumPsw * 100 - cod
Zashif = (WspNum ^ 2 + 3 * NumPsw * 10) - 24 * NumPsw * 10
Private Sub encode(q, password, Optional choose As String)
s = DecToBin(ASC(q)) \\ Ascii-код символа переводится в двоичный
While Len(s) < 8 \\ Если длина кода символа меньше 8 бит, то недостающее заполняется нулями
s = "0" & s
Wend
w = 1
While w <= 8 \\ Весь код заносится в массив
str(w) = Mid(s, w, 1)
w = w + 1
Wend
If choose = "encode" Then \\ Если нужно закодировать, то:
For w = 1 To Len(password) - 1 Step 1
temp2 = Mid(password, w, 1)
temp3 = Mid(password, w + 1, 1)
If temp2 = 9 Then temp2 = 8
If temp2 = 0 Then temp2 = 1
If temp3 = 9 Then temp3 = 8
If temp3 = 0 Then temp3 = 1
temp = str(temp2) \\Биты кода меняются местами в соответствии с паролем
str(temp2) = str(temp3)
str(temp3) = temp
Next w
Else \\ При расшифровке операции производятся в обратном порядке
For w = Len(password) To 2 Step -1
temp2 = Mid(password, w, 1)
temp3 = Mid(password, w - 1, 1)
If temp2 = 9 Then temp2 = 8
If temp2 = 0 Then temp2 = 1
If temp3 = 9 Then temp3 = 8
If temp3 = 0 Then temp3 = 1
temp = str(temp2)
str(temp2) = str(temp3)
str(temp3) = temp
Next w
End If
s = ""
w = 1
While w <= 8 \\Массив превращается обратно в двоичное число
s = s & str(w)
w = w + 1
Wend
encoded = Chr(BinToDec(s)) \\Двоичное число превращается в символ
End Sub
Ramzes писал(а):alibek
Я например сам написал алгоритм шифрования (прогу тогда писал на заказ) как раз потому, что считаю существующие алгоритмы не надежные, как может быть надежным алгоритм, исходники которого доступны всем????
Watts[]n! писал(а):Saturn.65
Смотря к какому железу - к харду или материнской плате.
Лучше к матери, потому что их меняют гораздо реже Все ведь на серийных номерах сделано, верно?
Saturn.65 писал(а):(...) то он самоуничтожается, (...)
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1