Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Вопрос по шифрованию Добавлено: 26.12.08 06:46  

Автор вопроса:  Max
Всем привет! Вопрос такой. Каким редактором можно привести в понятный вид текстовый зашифрованный файл
http://matuza.1xw.ru/code.zip

Ответить

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

Номер ответа: 1
Автор ответа:
 Father



Вопросов: 0
Ответов: 159
  Профиль | | #1 Добавлено: 26.12.08 09:35
На скорую руку:
  1. Option Explicit
  2. Private Sub Form_Load()
  3.     Dim i As Integer
  4.     Dim bt() As Byte
  5.     Dim nFile As Integer
  6.     Dim ncnt As Integer
  7.     nFile = FreeFile
  8.     Open "C:\чистый.txt" For Binary As #nFile
  9.        ncnt = LOF(nFile) - 2
  10.         ReDim bt(ncnt)
  11.         Get #nFile, , bt
  12.     Close nFile
  13.     nFile = FreeFile
  14.     For i = 0 To ncnt
  15.             bt(i) = bt(i) + 1 ' Суперрасшифровка
  16.     Next
  17.     Text1.Text = StrConv(bt(), vbUnicode)
  18. End Sub


***Сети
Компьютерная сеть - это:
Компьютеры объединенные аппаратными средствами и сетевым программным обеспечением.
.....
.....

Ответить

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



Вопросов: 58
Ответов: 4255
  Профиль | | #2 Добавлено: 26.12.08 10:58
 
bt(i) = bt(i) + 1 ' Суперрасшифровка

Father, жжошь! :-)))))))

Ответить

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



Вопросов: 1
Ответов: 6
  Профиль | | #3 Добавлено: 27.12.08 07:10
почему то ошибка ncnt = LOF(nFile) - 2 строки. Что не так? Код вставлял в код формы

Ответить

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



Вопросов: 1
Ответов: 6
  Профиль | | #4 Добавлено: 27.12.08 07:12
Можешь скомпилировать прогу, с адресом до исходного закодированного файла c:/file.txt

Ответить

Номер ответа: 5
Автор ответа:
 Father



Вопросов: 0
Ответов: 159
  Профиль | | #5 Добавлено: 27.12.08 10:41
Open "C:\чистый.txt" For Binary As #nFile
Ты должен понимать, что в кавычках должен быть реальный путь и имя файла, который находится у тебя на винчестере, а не у меня, куда я его закачал и переименовал.

Ответить

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



Вопросов: 1
Ответов: 6
  Профиль | | #6 Добавлено: 27.12.08 16:57
Ну дык это то ясное дело. Я ж че гг непонимаю чтоль. Есть файл. Но ошибка...

Ответить

Номер ответа: 7
Автор ответа:
 Max



Вопросов: 1
Ответов: 6
  Профиль | | #7 Добавлено: 27.12.08 17:00
Ааа. Во я понял в чем дело оказуется. Файл видно сильно большой я ему задал. 43кб. в поле не влезает или хз что. Так. Ну теперь бы сделать кнопку сохранить изменения. Опять же в бинарном виде.

Ответить

Номер ответа: 8
Автор ответа:
 Father



Вопросов: 0
Ответов: 159
  Профиль | | #8 Добавлено: 27.12.08 17:37
в поле не влезает

в Text1 установи св-во MultiLine = True, Scrollbars = Vertical
  1. Option Explicit
  2.  
  3. Private Sub filesave_Click() ' Сохранить
  4.     Dim comdlg As Object
  5.     Dim strfile As String
  6.     Dim nFile As Integer
  7.     On Error Resume Next
  8.     Set comdlg = CreateObject("MSComDlg.CommonDialog.1")
  9.     comdlg.Filter = "Text files|*txt"
  10.     comdlg.CancelError = True
  11.     Err.Clear
  12.     comdlg.ShowSave
  13.     strfile = Trim(comdlg.FileName)
  14.     If CBool(Err.Number) Then Exit Sub
  15.     If Len(strfile) = 0 Then Exit Sub
  16.     If Right(strfile, 4) <> ".txt" Then strfile = strfile & ".txt"
  17.     nFile = FreeFile
  18.     Open strfile For Binary As #nFile
  19.         Put #nFile, , Text1.Text
  20.     Close nFile
  21.     nFile = FreeFile
  22. End Sub
  23.  
  24. Private Sub mfileopen_Click() 'Открыть
  25.     Dim i As Integer
  26.     Dim bt() As Byte
  27.     Dim nFile As Integer
  28.     Dim ncnt As Integer
  29.     Dim comdlg As Object
  30.     Dim strfile As String
  31.     On Error Resume Next
  32.     Set comdlg = CreateObject("MSComDlg.CommonDialog.1")
  33.     comdlg.Flags = 7
  34.     comdlg.Filter = "Btplus one text files|*txt"
  35.     comdlg.CancelError = True
  36.     Err.Clear
  37.     comdlg.ShowOpen
  38.     If CBool(Err.Number) Then Exit Sub
  39.     strfile = comdlg.FileName
  40.     If Len(Dir(strfile)) = 0 Then Exit Sub
  41.     nFile = FreeFile
  42.     Open strfile For Binary As #nFile
  43.         ncnt = LOF(nFile) - 2
  44.         ReDim bt(ncnt)
  45.         Get #nFile, , bt
  46.     Close nFile
  47.     nFile = FreeFile
  48.     Dim ss As Integer
  49.     For i = 0 To ncnt
  50.         Select Case bt(i)
  51.         Case 13, 10, 32, 62
  52.         Case Else
  53.             bt(i) = bt(i) + 1
  54.         End Select
  55.     Next
  56.     Text1.Text = StrConv(bt(), vbUnicode)
  57. End Sub
  58.  
  59.  
  60. Private Sub Form_Resize()
  61.     Text1.Width = Me.ScaleWidth
  62.     Text1.Height = Me.ScaleHeight
  63.     Text1.Top = 0
  64.     Text1.Left = 0
  65. End Sub

Ответить

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



Вопросов: 1
Ответов: 6
  Профиль | | #9 Добавлено: 27.12.08 17:40
Там кстате в файлы параграфы (перебросы на другую строку не канают. Квадратики вместо них.) Щас по пробую с таким кодом.

Ответить

Номер ответа: 10
Автор ответа:
 Max



Вопросов: 1
Ответов: 6
  Профиль | | #10 Добавлено: 27.12.08 18:13
Хм. Когда сохраняешь, нужно чтобы в закодированном виде тоже должно быть. А сохраняет в обычном с русскми буквами

Ответить

Номер ответа: 11
Автор ответа:
 Father



Вопросов: 0
Ответов: 159
  Профиль | | #11 Добавлено: 27.12.08 18:35
удачи..

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам