Приветствуем на Форум Херсона. Форум Херсонской молодежи.. На данный момент Вы находитесь на форуме как Гость и имеете очень ограниченные возможности и права. Что бы писать или отвечать в темах, загружать картинки, файлы на форуме Вам нужно зарегистрироваться, что совершенно бесплатно. Регистрация очень быстрая, не откладывайте эту процедуру! Если возникнут проблемы с регистрацией напишите нам. |
|
Программирование Все вопросы по написанию программ |
Просмотр темы (Новые вначале) |
18.08.2005 10:10 | |||
.:KARFAX:. | Можно конечно и GetAnsycKeyState, но намного логичнее перехватывать нажатия клавиш с помощью ловушек (HOOKs) в Винде. | ||
03.04.2005 08:31 | |||
SmileY | SmileY1, SmileY1, | ||
03.04.2005 08:30 | |||
SmileY | :mrgreen: :( :eek: | ||
25.02.2005 17:43 | |||
Anonymous | кстате можете совй асикю и емайл кинуть мне на smiley2004@rambler.ru или асикью в сети 1215 :o | ||
25.02.2005 17:13 | |||
Anonymous |
Огоромное спасибки! Можете оставить здесь свой емайл или айсикю потомучто я токо начал учится програмирыванию и у меня много вопросов :-D :!: |
||
29.01.2005 10:13 | |||
Anonymous | привет!! :P | ||
20.01.2005 00:45 | |||
Anonymous |
Это ж на сколько нужно быть ленивым или непонятливым чтоб не написать: procedure Form1.BtnClick(sender: Ponter); begin Edit2.Text := _code1(Edit1.Text); Edit3.Text := _code2(Edit2.Text); end; |
||
03.01.2005 18:56 | |||
SmileY |
а можно это всё подробненько описать? ;) и переделать чтоб я вводил текст в Edit1 а перекодирываное значение выводило в Edit2 :-D :-D |
||
03.01.2005 16:08 | |||
bachin |
Цитата:
Код:
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; |
||
02.01.2005 18:23 | |||
Anonymous |
Цитата:
б. кодирование. из строки ты получишь другую строку, но не читаемую с первого взгляда. только она должна быть целочисленая |
||
01.01.2005 18:46 | |||
bachin |
Цитата:
1. по странному стечению обстоятельств букв больше чем цифр, потому одна буква будет занимать хотябы 2 знака. 2. по второму странному стечению обстоятельств, математические ф-ции (стандартные целочисленные) ограниченны. Я не буду рассматривать int64, но и его не хватит при определенной длине строки. так что определись чего ты хочешь варианты: а. хеш ф-ция - односторонняя проверка, т.е. из строки контрольную сумму ты получишь, а вот из контрольной суммы строку - нет б. кодирование. из строки ты получишь другую строку, но не читаемую с первого взгляда. тальше можно о чем-то говорить. |
||
28.12.2004 22:46 | |||
Anonymous |
а можно хоть функцию хоть начало написть? очень надо :cry: :eek: |
||
22.12.2004 06:27 | |||
Anonymous | Алгоритм в целом стротится на одной проверке вводимых данных кейсом и все.... | ||
21.12.2004 21:19 | |||
Anonymous |
:!: как перевести текст к примеру "Дурак" в число "15297" где "Д"=1, "у"=5, "р"=2, "а"=9, "к"=7? надо чтоб вводишь в Edit1 текст а в Edit2 появляется число(в данном случае "15297") |
||
12.08.2004 23:13 | |||
Anonymous | о как! :D | ||
12.08.2004 04:33 | |||
Anonymous | Спасибо, работает. Щас буду писать кейлоггер :twisted: | ||
12.08.2004 00:05 | |||
Anonymous | GetAsyncKeyState. И для клавиатуpы, и для мыши. | ||
11.08.2004 22:34 | |||
TiTanium |
Re: кей довн Цитата:
|
||
10.08.2004 19:44 | |||
Anonymous |
кей довн Кто-то в курсе, как средствами Delphi словить нажатие клавиши в другом приложении? Также желательно узнать код этой клавиши |