Kali ini admin cara apa saja mau Share Payload Injek Borland Delphi Server Fingerprint terbaru 2015 yang dimana kode dibawah ini saya update kembali disini hanya sekedar untuk pembelajaran saja, mungkin dari sahabat semuanya ada yang lagi belajar program jaringan nih dibawah ini juga saya mau kasih tentang server fingerprint, ok sebelumnya juga saya sudah share dengan Source Code Data Graph ok lanjut kembali lantas buat apa harus mempelajari tentang server fingerprint, bagi anda pengguna secure shell atau virtual private network atau simple server atau yang lainnya maka istilah server fingerprint mungkin anda sering temukan atau anda bahkan sering melihatnya di log ssh yang biasa anda gunakan, nah bagi sahabat yang mau mempelajari ulang kodenya saya update ulang dibawah ini dan silahkan di pelajari kembali.
unit mainform;
interface
uses
Windows, Messages, Graphics, Controls, Forms, Dialogs, StdCtrls,
SysUtils, Classes, IdComponent, IdTCPServer, IdFingerServer,
IdBaseComponent;
type
TfrmFingerServer = class(TForm)
IdFingerServer1: TIdFingerServer;
Label1: TLabel;
lblStatus: TLabel;
Button1: TButton;
procedure IdFingerServer1CommandFinger(AThread: TIdPeerThread;
const AUserName: String);
procedure IdFingerServer1CommandVerboseFinger(AThread: TIdPeerThread;
const AUserName: String);
procedure IdFingerServer1Connect(AThread: TIdPeerThread);
procedure IdFingerServer1Disconnect(AThread: TIdPeerThread);
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
public
end;
var
frmFingerServer: TfrmFingerServer;
implementation
{$R *.DFM}
uses
IdGlobal;
{These are our sample users}
Const SampleUsers : Array [1..3] of String =
('TIDFINGER', 'TIDQUOTD', 'TIDTIME');
procedure TfrmFingerServer.IdFingerServer1CommandFinger(AThread: TIdPeerThread;
const AUserName: String);
begin
{general querry - just list users}
if AUserName = '' then
begin
AThread.Connection.WriteLn('TIdFinger');
AThread.Connection.WriteLn('TIdQuotD');
AThread.Connection.WriteLn('TIdTime');
end //if AUserName = '' then
else
begin {Just Provide brief information}
Case Succ ( PosInStrArray ( Uppercase ( AUserName ), SampleUsers ) ) of
1 : //TIdFinger
begin
AThread.Connection.WriteLn('TIdFinger implements RFC 1288');
end; {1}
2 : //TIdQuotD
begin
AThread.Connection.WriteLn('TIdQuotD implements RFC 865');
end; {2}
3 : //TIdTime
begin
AThread.Connection.WriteLn('TIdTime implements RFC 868');
end; {3}
else
begin {This user is not on our system}
AThread.Connection.WriteLn( AUserName + '?' );
end; //else..case
end; //Case Succ ( PosInStrArray ( Uppercase ( AUserName ), SampleUsers ) ) of
end; //if AUserName = '' then
end;
procedure TfrmFingerServer.IdFingerServer1CommandVerboseFinger(
AThread: TIdPeerThread; const AUserName: String);
begin
AThread.Connection.WriteLn('Verbose query');
{general querry - just list users}
if AUserName = '' then
begin
AThread.Connection.WriteLn('TIdFinger');
AThread.Connection.WriteLn('TIdQuotD');
AThread.Connection.WriteLn('TIdTime');
end //if AUserName = '' then
else
begin {Just Provide brief information}
Case Succ ( PosInStrArray ( Uppercase ( AUserName ), SampleUsers ) ) of
1 : //TIdFinger
begin
AThread.Connection.WriteLn('TIdFinger implements RFC 1288');
AThread.Connection.WriteLn('');
AThread.Connection.WriteLn('Finger is used to provide information');
AThread.Connection.WriteLn('such as if the user is logged into a');
AThread.Connection.WriteLn('mainframe, when they last checked their');
AThread.Connection.WriteLn('E-Mail and received new E-Mail. It');
AThread.Connection.WriteLn('can also provide other information such');
AThread.Connection.WriteLn('what a user puts into a plan file.');
end; {1}
2 : //TIdQuotD
begin
AThread.Connection.WriteLn('TIdQuotD implements RFC 865');
AThread.Connection.WriteLn('');
AThread.Connection.WriteLn('Quote of the Day is used for testing');
AThread.Connection.WriteLn('TCP development by providing a quote.');
AThread.Connection.WriteLn('to the client. It is sometimes used');
AThread.Connection.WriteLn('brief information for anybody.');
end; {2}
3 : //TIdTime
begin
AThread.Connection.WriteLn('TIdTime implements RFC 868');
AThread.Connection.WriteLn('');
AThread.Connection.WriteLn('Time is used for synchronizing clocks');
AThread.Connection.WriteLn('on a local area network. For accurate');
AThread.Connection.WriteLn('synchronization, use SNTP (Simple');
AThread.Connection.WriteLn('Network Time Protocol).');
end; {3}
else
begin {This user is not on our system}
AThread.Connection.WriteLn( AUserName + '?' );
end; //else..case
end; //Case Succ ( PosInStrArray ( Uppercase ( AUserName ), SampleUsers ) ) of
end; //if AUserName = '' then
end;
procedure TfrmFingerServer.IdFingerServer1Connect(AThread: TIdPeerThread);
begin
lblStatus.caption := '[ connected to client ]';
end;
procedure TfrmFingerServer.IdFingerServer1Disconnect(
AThread: TIdPeerThread);
begin
lblStatus.caption := '[ idle ]';
end;
procedure TfrmFingerServer.FormActivate(Sender: TObject);
begin
try
IdFingerServer1.Active := True;
except
on E : Exception do
ShowMessage('Cannot bind socket - is port already in use?');
end;
end;
procedure TfrmFingerServer.Button1Click(Sender: TObject);
begin
Close;
end;
end.
Ya dan hanya itu saja dulu info dengan Share Payload Injek Borland Delphi Server Fingerprint Terbaru 2015 semoga bisa dipelajari kembali dan dikembangkan kembali dengan lebih baik dan silahkan uwek uwek kembali agar bisa diimplementasikan dengan tools internet yang lainnya dan atas kunjungannya saya ucapkan terima kasih.
Baca Juga: Payload Inject TCP Server Terbaru 2015
Baca Juga: Payload Inject TCP Server Terbaru 2015