ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Новый пользователь [Delphi]
   
Ответ
Страница 1 из 2 1 2 >
 
Опции темы Поиск в этой теме Опции просмотра

Новый пользователь [Delphi]
  #1  
Старый 24.12.2009, 17:26
marcos
Участник форума
Регистрация: 08.11.2009
Сообщений: 114
Провел на форуме:
201148

Репутация: -4
По умолчанию Новый пользователь [Delphi]
Всем привет, подскажите можно ли написать на делфи программу, которая создавала бы пользователя в винде?
 
Ответить с цитированием

  #2  
Старый 24.12.2009, 17:54
Chrome~
Постоянный
Регистрация: 13.12.2008
Сообщений: 354
Провел на форуме:
1747641

Репутация: 175
Отправить сообщение для Chrome~ с помощью ICQ
По умолчанию
Кажется, можно.
 
Ответить с цитированием

  #3  
Старый 24.12.2009, 17:56
marcos
Участник форума
Регистрация: 08.11.2009
Сообщений: 114
Провел на форуме:
201148

Репутация: -4
По умолчанию
Цитата:
Сообщение от Chrome~  
Кажется, можно.
как?
 
Ответить с цитированием

  #4  
Старый 24.12.2009, 18:06
Chrome~
Постоянный
Регистрация: 13.12.2008
Сообщений: 354
Провел на форуме:
1747641

Репутация: 175
Отправить сообщение для Chrome~ с помощью ICQ
По умолчанию
Речь идет об обычном пользователе системы, или об пользователе для дедика?
Так или иначе, тебе нужно использовать команды cmd.
 
Ответить с цитированием

  #5  
Старый 24.12.2009, 18:09
neprovad
Постоянный
Регистрация: 19.10.2007
Сообщений: 794
Провел на форуме:
1013791

Репутация: 711


По умолчанию
NetUserAdd
http://msdn.microsoft.com/en-us/library/aa370649%28VS.85%29.aspx
 
Ответить с цитированием

  #6  
Старый 24.12.2009, 18:22
marcos
Участник форума
Регистрация: 08.11.2009
Сообщений: 114
Провел на форуме:
201148

Репутация: -4
По умолчанию
Цитата:
Сообщение от neprovad  
NetUserAdd
http://msdn.microsoft.com/en-us/library/aa370649%28VS.85%29.aspx

Я к сожалению не знаю СИ... Возможно это на делфи?
 
Ответить с цитированием

  #7  
Старый 24.12.2009, 18:26
.Slip
Leaders of Antichat - Level 4
Регистрация: 16.01.2006
Сообщений: 1,966
Провел на форуме:
21768337

Репутация: 3486


По умолчанию
Цитата:
Сообщение от marcos  
Я к сожалению не знаю СИ... Возможно это на делфи?
Это WinAPI а не СИ. Или английского тоже не знаешь?
__________________
..
 
Ответить с цитированием

  #8  
Старый 24.12.2009, 18:43
marcos
Участник форума
Регистрация: 08.11.2009
Сообщений: 114
Провел на форуме:
201148

Репутация: -4
По умолчанию
Так а как это на Делфи Реализовать?

NetUserAdd(servername,level,buf,parm_err);

Так?
 
Ответить с цитированием

  #9  
Старый 24.12.2009, 18:43
neprovad
Постоянный
Регистрация: 19.10.2007
Сообщений: 794
Провел на форуме:
1013791

Репутация: 711


По умолчанию
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  LPUSER_INFO_2 = ^USER_INFO_2;
  {$EXTERNALSYM LPUSER_INFO_2}
  PUSER_INFO_2 = ^USER_INFO_2;
  {$EXTERNALSYM PUSER_INFO_2}
  _USER_INFO_2 = record
    usri2_name: LPWSTR;
    usri2_password: LPWSTR;
    usri2_password_age: DWORD;
    usri2_priv: DWORD;
    usri2_home_dir: LPWSTR;
    usri2_comment: LPWSTR;
    usri2_flags: DWORD;
    usri2_script_path: LPWSTR;
    usri2_auth_flags: DWORD;
    usri2_full_name: LPWSTR;
    usri2_usr_comment: LPWSTR;
    usri2_parms: LPWSTR;
    usri2_workstations: LPWSTR;
    usri2_last_logon: DWORD;
    usri2_last_logoff: DWORD;
    usri2_acct_expires: DWORD;
    usri2_max_storage: DWORD;
    usri2_units_per_week: DWORD;
    usri2_logon_hours: PBYTE;
    usri2_bad_pw_count: DWORD;
    usri2_num_logons: DWORD;
    usri2_logon_server: LPWSTR;
    usri2_country_code: DWORD;
    usri2_code_page: DWORD;
  end;
  {$EXTERNALSYM _USER_INFO_2}
  USER_INFO_2 = _USER_INFO_2;
  {$EXTERNALSYM USER_INFO_2}
  TUserInfo2 = USER_INFO_2;
  PUserInfo2 = puser_info_2;  

  function NetUserAdd(ServerName: LPCWSTR; Level: DWORD;
    Buff: PByte; var Parm_Err: DWORD): DWORD; stdcall;
    external 'netapi32.dll';

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
  NERR_Success = 0;
  USER_PRIV_USER  = 1;
  UF_SCRIPT = $0001;
  UF_DONT_EXPIRE_PASSWD = $10000;
var
  UserInfo: TUserInfo2;
  Parm_Err: DWORD;
begin
  ZeroMemory(@UserInfo, SizeOf(TUserInfo2));
  UserInfo.usri2_name := 'TestUser';
  UserInfo.usri2_password := '123';
  UserInfo.usri2_priv := USER_PRIV_USER;
  UserInfo.usri2_flags := UF_SCRIPT or UF_DONT_EXPIRE_PASSWD;
  if NetUserAdd(nil, 2, @UserInfo, Parm_Err) <> NERR_Success then
    RaiseLastOSError
  else
    ShowMessage('Пользователь TestUser с паролем 123 успешно добавлен.');
end;

end.
 
Ответить с цитированием

  #10  
Старый 24.12.2009, 19:10
marcos
Участник форума
Регистрация: 08.11.2009
Сообщений: 114
Провел на форуме:
201148

Репутация: -4
По умолчанию
neprovad, код не работает(((Почему, может нужно чтото подключить?
 
Ответить с цитированием
Ответ
Страница 1 из 2 1 2 >



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Faq по смайликам Егорыч+++ Болталка 26 29.08.2009 11:38
Подборка уязвимостей phpBB -=ka$at1k=- Форумы 3 02.07.2006 15:26



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ