Я вот тут типа этого придумал:
- Код: Выделить всё
Dim s As Currency
Dim sum As Currency
Private Sub Command1_Click()
sum = 0
For i = 1 To Len(Text1)
s = Asc(Mid(Text1, i, 1)) / i
sum = sum + s
Next i
MsgBox sum
End Sub
работает..но медленно!
Dim s As Currency
Dim sum As Currency
Private Sub Command1_Click()
sum = 0
For i = 1 To Len(Text1)
s = Asc(Mid(Text1, i, 1)) / i
sum = sum + s
Next i
MsgBox sum
End Sub
_Мика_ писал(а):Ну короче надо свое уникальное число для файла!
EvilCoder писал(а):CRC - криптографическая ХЭШ функция, работает по методу CRC.
тебе Алгоритм нужен? или хочешь свою Хэш функцию придумать?
EvilCoder писал(а):ЗЫ... "МИКА" а как полное имя? может "Микаил"?
Сейчас этот форум просматривают: Yandex-бот и гости: 89