
ЗЫ Предлагаю сюда постить любимые способы хранения / шифровки паролей.

Private Function RegKey(RegtoText As String, SerialNumber As String) As String
Dim result As Long
Dim sn() As String
sn = Split(SerialNumber, "-")
result1 = (Val(sn(0)) - Val(sn(1)))
result1 = Mid(Hex(result1), 2, 3) & CStr(Asc(result1))
For calc = 1 To Len(RegtoText)
result = result + Asc(Mid(RegtoText, calc, 1)) * sn(0) + Len(RegtoText)
Next calc
RegKey = Hex(result) & "-" & Hex(Len(RegtoText)) & "A-" & result1
End Function
Шурик писал(а):А на счет 1 байта - это уже все зависит от пользователя.. умеет либо нетточнее допрет посмотреть через hex или нет
Urvin писал(а):Шурик писал(а):А на счет 1 байта - это уже все зависит от пользователя.. умеет либо нетточнее допрет посмотреть через hex или нет
А ты как думаешь, если тебе попадется какая-нибудь прога, залетная такая, тебе придет в голову вызывать скорую чтобы пожар потушили? Будешь поднимать все силы для того, чтобы найти этот самый 1 байт?
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5