HOME    FORUMS    MEMBERS    RECENT POSTS    LOG IN  
Баннер 1   Баннер 2

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

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #4211  
Старый 24.08.2009, 21:18
2pick
Познающий
Регистрация: 17.03.2007
Сообщений: 98
Провел на форуме:
193152

Репутация: 45
Отправить сообщение для 2pick с помощью ICQ
По умолчанию

Цитата:
Сообщение от UnknownZZZ  
помогите ешо с етим вопросом..
1) как отключить в делфи учетные записи пользователей и создать новую учетку с паролем.....
Через консоль "net user"

C:\Documents and Settings\*>net user /help
Синтаксис данной команды:


NET USER
[имя_пользователя [пароль | *] [параметры]] [/DOMAIN]
имя_пользователя {пароль | *} /ADD [параметры] [/DOMAIN]
имя_пользователя [/DELETE] [/DOMAIN]

NET USER - эта команда создает и изменяет учетные записи пользователей на
компьютере. Kогда используется без параметров, выводит список учетных
записей пользователей для данного компьютера. Информация об учетных записях
пользователей хранится в базе данных учетных записей.

Эта команда используется только на серверах.

имя_пользователя Задает имя пользователя, которое необходимо добавить,
удалить, изменить или вывести на экран. Длина имени
пользователя не должна превосходить 20 знаков.
пароль Назначает или изменяет пароль для учетной записи
пользователя. Пароль должен отвечать установленным
требованиям на длину - быть не короче, чем значение,
установленное параметром /MINPWLEN в команде
NET ACCOUNTS, и в то же время не длиннее 14 знаков.
* Вызывает открытие специальной строки ввода пароля. Пароль
не выводится на экран во время его ввода в этой строке.
/DOMAIN Выполняет операцию на контроллере домена в
текущем домене.
/ADD Добавляет учетную запись пользователя в базу данных
учетных записей.
/DELETE Удаляет учетную запись пользователя из базы данных
учетных записей.

Параметры Допустимые параметры перечислены в следующем списке:

Параметр Описание
--------------------------------------------------------------------
/ACTIVE:{YES | NO} Активизирует учетную запись или делает ее
не активной. Если учетная запись не активна,
пользователь не может получить доступ к
серверу. По умолчанию используется значение
YES (т.е. учетная запись активна).
/COMMENT:"текст" Добавляет описательный комментарий об учетной
записи (длиной не более 48 знаков).
Текст должен быть заключен в кавычки.
/COUNTRYCODE:nnn Использует кодовую страницу нужного
языка для вывода справки и сообщений об
ошибках. Значение 0 означает выбор кодовой
страницы по умолчанию.
/EXPIRES:{дата | NEVER} Устанавливает дату истечения срока действия
ученой записи. Если используется значение
NEVER, то время действия учетной записи не
имеет ограничений срока действия. Дата
истечения срока действия задается в формате
дд/мм/гг или мм/дд/гг, в зависимости от того,
какая кодовая страница используется. Месяц
может быть указан цифрами, названием месяца или
трехбуквенным его сокращением. В качестве
разделителя полей должен использоваться знак
косой черты (/).
/FULLNAME:"имя" Указывает настоящее имя пользователя (а не
кодовое имя, заданное параметром
имя_пользователя). Настоящее имя следует
заключить в кавычки.
/HOMEDIR:путь Указывает путь к домашнему каталогу
пользователя. Этот каталог должен существовать.
/PASSWORDCHG:{YES | NO} Определяет, может ли пользователь изменять
свой пароль. По умолчанию используется значение
YES (т.е. изменение пароля разрешено).
/PASSWORDREQ:{YES | NO} Определяет, является ли указание пароля
обязательным. По умолчанию используется
значение YES (т.е. пароль обязателен).
/PROFILEPATH[:путь] Устанавливает путь к профилю пользователя.
/SCRIPTPATH:путь Устанавливает расположение пользовательского
сценария для входа в систему.
/TIMES:{промежуток | ALL} Устанавливает промежуток времени, во время
которого пользователю разрешен вход в систему.
Этот параметр задается в следующем формате:

день[-день][,день[-день]],время[-время][,время[-время]]

Время указывается с точностью до одного часа.
Дни являются днями недели и могут указываться
как в полном, так и в сокращенном виде. Время
можно указывать в 12- и 24-часовом формате.
Если используется 12-часовой формат, то можно
использовать am, pm, a.m. или p.m.
Значение ALL указывает, что пользователь может
войти в систему в любое время, а пустое
значение указывает, что пользователь не может
войти в систему никогда.
Разделителем полей указания дней недели и
времени является запятая, разделителем при
использовании нескольких частей является
точка с запятой.
/USERCOMMENT:"текст" Позволяет администратору добавлять или изменять
текст комментария к учетной записи.
/WORKSTATIONS:{имя_компьютера[,...] | *}
Перечисляет до восьми различных компьютеров,
с которых пользователь может войти в сеть.
Если данный параметр имеет пустой список или
указано значение *, пользователь может войти
в сеть с любого компьютера.

NET HELP имя_команды | MORE - просмотр справки по одному экрану за раз.




Надеюсь тебе не надо разжовывать как пользоваться winexec или shellexecute?

Последний раз редактировалось 2pick; 24.08.2009 в 21:22..
 
Ответить с цитированием

  #4212  
Старый 25.08.2009, 00:03
MAESTRO
Новичок
Регистрация: 15.10.2007
Сообщений: 13
Провел на форуме:
394993

Репутация: 17
По умолчанию

Доброго времени суток, народ. Подскажите пожалуйста, как реализовать в Delphi запись в фаил, с учетом того, что в программе я сам укажу путь к файлу ( файл не *.txt ). Порылся в гугле, но оттуда для себя ничего подчеркнуть к сожалению не смог=(
 
Ответить с цитированием

  #4213  
Старый 25.08.2009, 00:13
warlok
Постоянный
Регистрация: 18.02.2008
Сообщений: 368
Провел на форуме:
4075418

Репутация: 386
По умолчанию

можно использовать WriteLn если приложение консольное например, или SaveDilog сохраняя из мемо например.
 
Ответить с цитированием

  #4214  
Старый 25.08.2009, 00:26
MAESTRO
Новичок
Регистрация: 15.10.2007
Сообщений: 13
Провел на форуме:
394993

Репутация: 17
По умолчанию

Я за наглость извиняюсь, но можно код в студию?
 
Ответить с цитированием

  #4215  
Старый 25.08.2009, 00:31
warlok
Постоянный
Регистрация: 18.02.2008
Сообщений: 368
Провел на форуме:
4075418

Репутация: 386
По умолчанию

Код:
var
  myFile : TextFile;
  text   : string;

begin
  // Попытка открыть файл Test.txt для записи
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);

  // Запись нескольких известных слов в этом файл
  WriteLn(myFile, 'Hello World');

  // Запись пустой строки
  WriteLn(myFile);

  // Запись строки и числа в файл
  WriteLn(myFile, '22/7 = ' , 22/7);

  // Повторение вышеупомянутого, но с форматированием числа
  WriteLn(myFile, '22/7 = ' , 22/7:12:6);

  // Закрытие файла
  CloseFile(myFile);

  // Повторное открытие файла для чтения
  Reset(myFile);

  // Показ содержимого файла
  while not Eof(myFile) do
  begin
    ReadLn(myFile, text);
    ShowMessage(text);
  end;

  // Закрытие файла в последний раз
  CloseFile(myFile);
end;
чего так сложно в гугле посмотреть чтоли, ведь все есть.
 
Ответить с цитированием

  #4216  
Старый 25.08.2009, 00:38
MAESTRO
Новичок
Регистрация: 15.10.2007
Сообщений: 13
Провел на форуме:
394993

Репутация: 17
По умолчанию

Я в посте ясно написал, что не текстовый фаил.
 
Ответить с цитированием

  #4217  
Старый 25.08.2009, 00:55
gold-goblin
Познавший АНТИЧАТ
Регистрация: 26.03.2007
Сообщений: 1,095
Провел на форуме:
5265510

Репутация: 455


По умолчанию

Цитата:
Я в посте ясно написал, что не текстовый фаил.
А какой? бинарный хмлка или что?
Твой вопрос напоминает этот: Я человек но не негр... Не правда ли можно придумать много ответов?
 
Ответить с цитированием

  #4218  
Старый 25.08.2009, 00:59
MAESTRO
Новичок
Регистрация: 15.10.2007
Сообщений: 13
Провел на форуме:
394993

Репутация: 17
По умолчанию

Я хотел добавить запись в фаил Hosts.
 
Ответить с цитированием

  #4219  
Старый 25.08.2009, 01:12
cremator (c)
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
Провел на форуме:
1240829

Репутация: 165
Отправить сообщение для cremator (c) с помощью ICQ
По умолчанию

Побайтная запись в файл)
Код:
procedure TForm1.FormCreate(Sender: TObject);
var MyFile:file of byte; a,b:byte;
begin
  AssignFile(MyFile, 'C:\Test.txt');
  ReWrite(myFile);
  a:=66;
  b:=67;
  write(myfile,a);
  write(myfile,b);
  CloseFile(myFile);

  FileMode := fmOpenRead;
  Reset(myFile);

  while not Eof(myFile) do
  begin
    Read(myFile, a);
    ShowMessage(IntToStr(a));
  end;

  CloseFile(myFile);
end;
зы: он же текстовый?!?!

Последний раз редактировалось cremator (c); 25.08.2009 в 01:16..
 
Ответить с цитированием

  #4220  
Старый 25.08.2009, 02:23
НTL
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663

Репутация: 357


Отправить сообщение для НTL с помощью ICQ
По умолчанию

Отправляю пост запрос через Winsock
Примерно так:

Код:
Postdata := 'POST...'
len:=send_packs(host,StrToInt('80'),AnsiToUTF8(postdata),ret);
Все уходит, но если в Postdata добавить рус буквы, то сервер дает ошибку 400, значит что AnsiToUTF8(); Не переделывает Ansi в уникод....

Как это можно исправить?
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/Wi-Fi/Wardriving 2568 25.04.2026 12:58
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



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


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




ANTICHAT.XYZ