VBNet - Форум - Преобразование текстового файла в двоичный

Вопрос: Преобразование текстового файла в двоичный Добавлено: 13.05.04 19:44

Автор вопроса: Terminator | Web-сайт: www.cheats049.narod.ru | ICQ: 170087310

Как текстовый файл преобразовать в двоичный? Хочу сделать условно-бесплатную программу. Если защита ее будет располагаться в текстовом файле, хакеры взломают ее в один момент. Если в двоичном - им по крайней мере придется повозиться.

Ответить

Ответы Всего ответов: 9

Номер ответа: 1 Автор ответа: AASoft Вопросов: 86 Ответов: 920	Профиль \| \| #1	Добавлено: 13.05.04 21:02
	v kakom smysle pereobrazovat`? zakodirovat`, ili kak?mozhno prosto kogda pishesh` tuda chegoto pisat` zehrez Binary access. ya same .Net'a ne znayu, nadoby nachat` ego uchit`, a vot na VB6 mogu primer sdelat`. esli nado, pishi. Ответить

Номер ответа: 2
Автор ответа:

DaSharm

ICQ: 780477

Вопросов: 72
Ответов: 1297

Web-сайт: dasharm.com
Профиль | | #2

Добавлено: 13.05.04 21:37

Мне уже смешно, для хакера твой двоичный файл - ето настоящий открытый текст, хакеры ( а точнее крякеры) в двоичном коде крякают ехе-шки, if...then...для них твой двоичный файл...ну да ладно, сходи на vb.kiev.ua и поищи там исходники шифрования, там ты найдешь ответ.

Ответить

Номер ответа: 3
Автор ответа:

HACKER

Разработчик Offline Client

Вопросов: 236
Ответов: 8362

Профиль | | #3

Добавлено: 13.05.04 21:57

та я то дам, толко подумай, если я дал, чего ж то не разшифровать мне?

это в класс:

Option Explicit
Public Function Load(ByVal strFileName As String) As String
    Dim strFileData As String, arrData() As String, lngIndex As Long
    Open strFileName For Binary Access Read As #1
        strFileData = Space(LOF(1))
        Get #1, , strFileData
    Close
    arrData = Split(strFileData, Chr(0))
    On Error Resume Next
    For lngIndex = LBound(arrData) To UBound(arrData)
        Load = Load & Chr(ToDec(arrData(lngIndex)) - lngIndex - 1)
    Next
End Function
Public Sub Save(ByVal strFileName As String, ByVal strString As String)
    Dim strFileData As String, lngIndex As Long
    For lngIndex = 1 To Len(strString)
        If lngIndex = Len(strString) Then
            strFileData = strFileData & ToBin(Asc(Mid(strString, lngIndex, 1)) + lngIndex)
        Else
            strFileData = strFileData & ToBin(Asc(Mid(strString, lngIndex, 1)) + lngIndex) & Chr(0)
        End If
    Next
    Open strFileName For Output Access Write As #1
        Print #1, strFileData;
    Close
End Sub
Public Function ToDec(ByVal strBin As String) As Long
    Dim lngIndex As Long
    While Len(strBin)
        ToDec = ToDec + Right(strBin, 1) * (2 ^ lngIndex)
        strBin = Left(strBin, (Len(strBin) - 1))
        lngIndex = lngIndex + 1
    Wend
End Function
Public Function ToBin(ByVal lngNum As Long) As String
    While lngNum
        ToBin = lngNum Mod 2 & ToBin
        lngNum = lngNum \ 2
    Wend
End Function
--------------------------------------------------------------------

DAT.Save App.Path & "\data.dat", txtMain

так сохраним бинарным кодом в файл

------------------------------------------------

txtMain = DAT.Load(App.Path & "\data.dat") ' Ну а это загрузим бинарный код и разшифруем

----------------------------------------------------------------------

to DaSharm Вот если бы все такую защиту от нас делали!

Ответить

Номер ответа: 4
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #4

Добавлено: 13.05.04 23:24

Крякают не бинарники, а бинарники с инструкциями процца т.е. разные mov, jmp, shl, add, dec, sub и тому подобную хрень... нужно попросту разработать либо свой алгоритм шифрования, либо использовать виндовые Cript'о-API... даже пример был такой... а уж если что и будут исследовать в этом случае это не твой бинарник, а саму программу, всмысле твой алгоритм расшифровки ключа...

Ответить

Номер ответа: 5 Автор ответа: Terminator ICQ: 170087310 Вопросов: 12 Ответов: 6	Web-сайт: www.cheats049.narod.ru Профиль \| \| #5	Добавлено: 14.05.04 02:16
	А есть где-нибудь уже готовая программа (или dll-файл) шифровки/дешифровки, которую можно использовать, не нарушая авторских прав? Главное, чтоб была небольшая, мне ведь придется ее вкладывать тогда в дистрибутив. Ответить

Номер ответа: 6
Автор ответа:

freeloader

ICQ: 50804884

Вопросов: 72
Ответов: 642

Web-сайт: freeloader.folder-pro.net
Профиль | | #6

Добавлено: 14.05.04 03:24

System.Security.Cryptography

это я думаю, будет по лудше.

Ответить

Номер ответа: 7 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #7	Добавлено: 14.05.04 09:12
	HACKER, ты что-то не в ту степь... Это тебе не VB6, здесь преобразование в двоичную систему счисления делается куда проще: i=32324352 Dim s as String = i.Tostring(2) To Terminator: в .Net есть довольно мощные встроенные средства шифрования, то есть, не свои, конечно, а лишь обёртка для CryptoAPI, но это уже мелочи Сморти пространство имён System.Security.Cryptography В разделах Статьи, Примеры, Библиотека кодов есть мои материалы о синхронном шифровании данных в .Net. Ответить

Номер ответа: 8 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #8	Добавлено: 14.05.04 17:56
	та пример на винте валяется, вот я и скинул. Я знаю что это можно в несколько строк сделать, просто в облом самому их писать, лучше дать сто % рабочие и уже написанное. Ответить

Номер ответа: 9
Автор ответа:

Sharp

Лидер форума

ICQ: 216865379

Вопросов: 106
Ответов: 9979

Web-сайт: sharpc.livejournal.com
Профиль | | #9

Добавлено: 15.05.04 02:31

> хакеры ( а точнее крякеры) в двоичном коде крякают ехе-шки

Вот еще. Крякер тоже человек и юзает дизассемблер.

Ответить

Страница: 1 |