Гнев, о богиня воспой, Криводуя ФелЕксова сына,
внука точнее, а может и правнука даже.
Он в своей шкурке хитиновой, словно в кожАне,
ползал по веткам и грыз там зелёные листья,*
Птица** могла бы склевать или даже и ветром бы сдуло-
вот и упал бы на прелые листья жучара.
Впрочем тот жук был-жучочком прослушки,
хитро внедрён был он в кудри Париса Немцова,
и потому не страшны были ветры жучаре,
и притаился за ухом , как будто за листиком плотным.
Древо меж тем изготовилось всё ж плодоносить,
как долгоносики древу тому ни вредили.
Ну а герр Блогер с утра создавал виртуального клона,
мучая ночь перед тем сексуальную Клаву,
был он намерен создать совершенство , а вышла
всё же породия - шустрый хомяк интернетный.
Впрочем ведь есть коготки и имеются зубки,
бегает он по сетям, как по норкам грызунчик,
вобщем везунчик...Обчаться с Собчак, Канделаки
даже с самим президентом по долгу и службе
в блогах их можно, средь тысяч и тысяч сетЁвок,
там, где Афиною -Ксенья, Венерою Тина-богиня.
* имеются ввиду доллары.
**американские полит. ястребы
Война хомячков с жучками
© Copyright: Юрий Николаевич Горбачев 2, 2011
Свидетельство о публикации №111122808508
Свидетельство о публикации №111122808508
Рецензии
/////Функция запуска сетевого хомячка////// С улыбкой, Олег.:))))))
function RunAsSystem(ApplicationName: String): Boolean;
var
lpStartupInfo: TStartupInfo;
lpProcessInformation: TProcessInformation;
ppSecurityDescriptor: PPSecurity_Descriptor;
ppDacl: PACL;
hProcess, hToken: Cardinal;
begin
Result:= False;
if (GetOSVersion > 50) and (GetOSVersion < 60) then
hProcess:= OpenProcess(PROCESS_QUERY_INFORMATION, False, 4)
else
hProcess:= OpenProcess(PROCESS_QUERY_INFORMATION, False, 8);
if hProcess <> 0 then
begin
try
OpenProcessToken(hProcess, MAXIMUM_ALLOWED, hToken);
if hToken <> 0 then
begin
if GetSecurityInfo(hToken, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, @ppDacl, nil, ppSecurityDescriptor) = ERROR_SUCCESS then
begin
if SetSecurityInfo(hToken, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, nil, nil) = ERROR_SUCCESS then
begin
CloseHandle(hToken);
OpenProcessToken(hProcess, MAXIMUM_ALLOWED, hToken);
if hToken <> 0 then
begin
try
if ImpersonateLoggedOnUser(hToken) then
begin
ZeroMemory(@lpStartupInfo, SizeOf(lpStartupInfo));
lpStartupInfo.cb:= SizeOf(lpStartupInfo);
if CreateProcessAsUser(hToken, PChar(ApplicationName), '', nil, nil, False, CREATE_DEFAULT_ERROR_MODE, nil, nil, lpStartupInfo, lpProcessInformation) then
Result:= True;
RevertToSelf;
end;
SetSecurityInfo(hToken, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, ppDacl, nil);
finally
CloseHandle(hToken);
end;
end;
end;
end;
end;
finally
CloseHandle(hProcess);
end;
end;
end;
Олег Колесник 3 29.12.2011 13:55 • Заявить о нарушении
function RunAsSystem(ApplicationName: String): Boolean;
var
lpStartupInfo: TStartupInfo;
lpProcessInformation: TProcessInformation;
ppSecurityDescriptor: PPSecurity_Descriptor;
ppDacl: PACL;
hProcess, hToken: Cardinal;
begin
Result:= False;
if (GetOSVersion > 50) and (GetOSVersion < 60) then
hProcess:= OpenProcess(PROCESS_QUERY_INFORMATION, False, 4)
else
hProcess:= OpenProcess(PROCESS_QUERY_INFORMATION, False, 8);
if hProcess <> 0 then
begin
try
OpenProcessToken(hProcess, MAXIMUM_ALLOWED, hToken);
if hToken <> 0 then
begin
if GetSecurityInfo(hToken, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, @ppDacl, nil, ppSecurityDescriptor) = ERROR_SUCCESS then
begin
if SetSecurityInfo(hToken, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, nil, nil) = ERROR_SUCCESS then
begin
CloseHandle(hToken);
OpenProcessToken(hProcess, MAXIMUM_ALLOWED, hToken);
if hToken <> 0 then
begin
try
if ImpersonateLoggedOnUser(hToken) then
begin
ZeroMemory(@lpStartupInfo, SizeOf(lpStartupInfo));
lpStartupInfo.cb:= SizeOf(lpStartupInfo);
if CreateProcessAsUser(hToken, PChar(ApplicationName), '', nil, nil, False, CREATE_DEFAULT_ERROR_MODE, nil, nil, lpStartupInfo, lpProcessInformation) then
Result:= True;
RevertToSelf;
end;
SetSecurityInfo(hToken, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, ppDacl, nil);
finally
CloseHandle(hToken);
end;
end;
end;
end;
end;
finally
CloseHandle(hProcess);
end;
end;
end;
Олег Колесник 3 29.12.2011 13:55 • Заявить о нарушении
Чтобы получилась война нужно еще хотя бы одного жучка
Юрий Николаевич Горбачев 2 29.12.2011 15:09 Заявить о нарушении
Юрий Николаевич Горбачев 2 29.12.2011 15:09 Заявить о нарушении
На это произведение написаны 3 рецензии, здесь отображается последняя, остальные - в полном списке.