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










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 байт?
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1