кей довн

[Anonymous]

Кто-то в курсе, как средствами Delphi словить нажатие клавиши
в другом приложении? Также желательно узнать код этой клавиши

[TiTanium]

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

Кто-то в курсе, как средствами Delphi словить нажатие клавиши
в другом приложении? Также желательно узнать код этой клавиши

А кей спай хочешь написать :wink: жилаю удачи :!:

[Anonymous]

GetAsyncKeyState. И для клавиатуpы, и для мыши.

[Anonymous]

Спасибо, работает. Щас буду писать кейлоггер :twisted:

[Anonymous]

о как! :D

[Anonymous]

:!: как перевести текст к примеру "Дурак" в число "15297" где "Д"=1, "у"=5, "р"=2, "а"=9, "к"=7?
надо чтоб вводишь в Edit1 текст а в Edit2 появляется число(в данном случае "15297")

[Anonymous]

Алгоритм в целом стротится на одной проверке вводимых данных кейсом и все....

[Anonymous]

а можно хоть функцию хоть начало написть?
очень надо :cry: :eek:

[bachin]

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

а можно хоть функцию хоть начало написть?
очень надо :cry: :eek:

Научись нормально строить вопросы!
1. по странному стечению обстоятельств букв больше чем цифр, потому одна буква будет занимать хотябы 2 знака.
2. по второму странному стечению обстоятельств, математические ф-ции (стандартные целочисленные) ограниченны. Я не буду рассматривать int64, но и его не хватит при определенной длине строки.

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

тальше можно о чем-то говорить.

[Anonymous]

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

Научись нормально строить вопросы!
1. по странному стечению обстоятельств букв больше чем цифр, потому одна буква будет занимать хотябы 2 знака.
2. по второму странному стечению обстоятельств, математические ф-ции (стандартные целочисленные) ограниченны. Я не буду рассматривать int64, но и его не хватит при определенной длине строки.

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

тальше можно о чем-то говорить.

я хочу сделать:

б. кодирование. из строки ты получишь другую строку, но не читаемую с первого взгляда.
только она должна быть целочисленая

[bachin]

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

я хочу сделать:

б. кодирование. из строки ты получишь другую строку, но не читаемую с первого взгляда.
только она должна быть целочисленая

ну например так кодируем:

function _str(c: Char): string;
begin
  Result := IntToStr(Byte(c));
  while Length(Result) < 3 do
    Result := '0' + Result;
end;

function _code1(s: string): string;
var
  i: Integer;
begin
  Result := '';
  for i := 1 to Length(s) do
    Result := Result + _str(s[i]);
end;

так декодируем:

function _chr(p: PChar): Char;
var
  str: string;
begin
  SetLength(str, 3);
  move(p^, PChar(str)^, 3);
  Result := Char(Byte(StrToInt(str)));
end;

function _code2(s: string): string;
var
  i: Integer;
begin
  Result := '';
  i := 0;
  while i < Length(s) do
    begin
      Result := Result + _chr(PChar(Integer(PChar(s)) + i));
      i := i + 3;
    end;
end;

[SmileY]

а можно это всё подробненько описать? ;)
и переделать чтоб я вводил текст в Edit1 а перекодирываное значение выводило в Edit2
:-D :-D

[Anonymous]

Это ж на сколько нужно быть ленивым или непонятливым чтоб не написать:

procedure Form1.BtnClick(sender: Ponter);
begin
Edit2.Text := _code1(Edit1.Text);
Edit3.Text := _code2(Edit2.Text);
end;

[Anonymous]

привет!! :P

[Anonymous]

Огоромное спасибки!
Можете оставить здесь свой емайл или айсикю потомучто я токо начал учится програмирыванию и у меня много вопросов
:-D :!:

[Anonymous]

кстате можете совй асикю и емайл кинуть мне на smiley2004@rambler.ru или асикью в сети 1215 :o

[SmileY]

:mrgreen: :( :eek:

[SmileY]

SmileY1, SmileY1,

Можно конечно и GetAnsycKeyState, но намного логичнее перехватывать нажатия клавиш с помощью ловушек (HOOKs) в Винде.