Записи Друзья Комментарии
rss forum sources ru
Аватар rss_forum_sources_ru

 -Поиск по дневнику

Поиск сообщений в rss_forum_sources_ru

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 29.07.2007
Записей:
Комментариев:
Написано: 80


Лишний байт (пробел) при записи файла в двоичном доступе

Пятница, 09 Апреля 2021 г. 11:38 + в цитатник
salieri: Прикрепляю на всякий пожарный скрипты, которые до этого были у меня в коллекции:

    Public Function Encrypt(ByVal Val4 As String, ByVal Val3 As String) As String
    Dim a As String
    Dim b As String
    Dim c As String
    Dim d As String
    Dim lentext As Long
    Dim lenpass As Long
    Dim cn As Long
    a = Val4
    b = Val3
    c = vbnullstring
    lentext = Len(a)
    lenpass = Len(b)
    For cn = 1 To lentext
    d = Trim(str(Asc(Mid(a, cn, 1)) Xor Asc(Mid(b, ((cn - 1) Mod lenpass) + 1, 1))))
    Select Case Val(d)
    Case 0 To 9
    d = "00" + d
    Case 10 To 99
    d = "0" + d
    End Select
    c = c + d
    Next cn
    Encrypt = c
    End Function
    Public Function Decrypt(ByVal Val1 As String, ByVal Val2 As String) As String
    Dim a As String
    Dim b As String
    Dim c As String
    Dim lentext As Long
    Dim lenpass As Long
    Dim cn As Long
    a = vbnullstring
    b = Val2
    c = Val1
    lentext = Len(c)
    lenpass = Len(b)
    For cn = 1 To lentext Step 3
    a = a + Chr(Val(Mid(c, cn, 3)) Xor Asc(Mid(b, (Int(cn / 3) Mod lenpass) + 1, 1)))
    Next cn
    Decrypt = a
    End Function


Ну, а это старина SCINER постарался:

    Function XorEncryptDecrypt(ByVal Text As String, ByVal Pass As String)
    Dim i As Long
    Dim b() As Byte 'шифруемые данные
    Dim c() As Byte 'пароль, которым шифруется данные
    Dim TextLen As Long 'длина шифруемых данных
    Dim PassLen As Long 'длина пароля
    'Если текст или пароль пусто значить шифрация бесполезна
    If Len(Text) = 0 Then GoTo EXIT_LABEL
    If Len(Pass) = 0 Then Exit Function
    'Замеряем длину шифруемых данных
    TextLen = Len(Text)
    'Замеряем длину пароля
    PassLen = Len(Pass)
    'Создаем байтовый массив размера равного длине шифруемых данных
    ReDim b(TextLen * 2)
    'Создаем байтовый массив размера равного длине пароля
    ReDim c(PassLen * 2)
    'Копируем шифруемые данные в созданный байтовый массив
    'т.е. Переводим тип String в байтовый массив
    Call CopyMemory(b(0), ByVal Text, TextLen * 2)
    'Копируем пароль в созданный байтовый массив
    'т.е. Переводим тип String в байтовый массив
    Call CopyMemory(c(0), ByVal Pass, PassLen * 2)
    'непосредственно сама процедура шифрации данных переданным паролем
    'пароль блочно накладывается на шифруемые данные операцией XOR
    For i = 0 To UBound(b)
    b(i) = b(i) Xor c(i Mod PassLen)
    Next
    'Переводим байтовый массив в тип String
    Call CopyMemory(ByVal Text, b(0), TextLen * 2)
    'Очистка памяти
    Erase b
    Erase c
    'Сюда идет перенаправление, если текст или пароль пустые
    EXIT_LABEL:
    'Возвращаем зашифрованные/дешифрованные данные
    XorEncryptDecrypt = Text
    End Function

https://forum.sources.ru/index.php?showtopic=421311&view=findpost&p=3846122

Метки:  
Нравится

Комментировать — К дневнику — Страницы: [1] [Новые]
 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку


О проекте