Abi şahsen son zamanlarda grdüğüm en taşaklı girişim, yolunuz açık olsun. O mahiler ki derya içredir deryayı bilmezler.. .

Delphi Source Code : http://bytescanner.com/sdk/ByteScannerDelphiAPI. rar Kullanilan Teknolojiler: Delphi7 WinAPI CURL ByteScanner API Dokumantasyonu: http://tahribat.com/Forum-Bytescanner-Com-Api-Dokumantasyonu-Developerlar-Icin-183574/ ByteScanner Nedir? http://tahribat.com/Forum-Bytescanner-Com-Guvenilir-Dosya-Analizi-Sistemi-183507/ 🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...

🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...

sayfaya girince kullanıcı girişi istiyor :d Si vis pacem para bellum.

Simdilik sunucuyu kendi bunyemizde barindirdigimizdan upload biraz yavas malesef. Ama kisa sure sonra cozulecektir. aquila non captat muscas! - d0gma. org

websitesinde interface icin kullandiginiz frameworkmudur herneyde ne hocam? jsf mi o? 29.99cm, titanyum kaplamalı, çift damarlı, su ve yağ soğutmalı.

Çok sağlam beyler, ayrıca virustotal gibi yüklediklerinizi antivirus firmalarına bildirmiyor kendi trojanınız varsa güvenle test için yükleyebilirsiniz. Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı ktektir!

benzetmişim :) / #tr0jan. net / SUPERBICO tarafından 05/Eyl/13 16:59 tarihinde düzenlenmiştir

extjs'dir.. ancak programlamada profesyonel degilseniz kullanmamanizi oneririm. cunku debug etmek / hata yakalamak cok zor... 🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...

bende geçen gün doctus ta grmüştüm. siteyi denedimde. upload biraz uzun sürüyor onun dışında iyi :D. daha iyi bir dünya için ne yapıyorsun?

Çok sağlam beyler, ayrıca virustotal gibi yüklediklerinizi antivirus firmalarına bildirmiyor kendi trojanınız varsa güvenle test için yükleyebilirsiniz. tesekkurler :) unit uByteScanner; interface uses Windows, Winsock, Classes, curlobj, sysUtils; type TCallbackFunc = procedure ; const sDomain : string = 'bytescanner.com'; sLoginURL : string = 'client2api. php'; sUploadURL : string = 'startup. php'; sResultURL : string = 'api2client. php'; type TByteScanner = class private bsUserName : string; bsPassword : string; scanResult : TCallbackFunc; statResult : TCallbackFunc; sFileData : string; sFilePath : string; procedure ReadFile; public constructor Create ; protected procedure Execute; override; end; var TempBSThread : TByteScanner; ScanID : String; FullScanData : String; implementation constructor TByteScanner. Create ; begin TempBSThread := Self; FreeOnTerminate := True; scanResult := funcResult; statResult := funcStatus; sFilePath := lFilePath; bsUserName := sUserName; bsPassword := sPassword; FullScanData := ''; ReadFile; inherited Create ; end; procedure TByteScanner. ReadFile; var fhandle : Thandle; dSize : DWORD; dRead : DWORD; begin fhandle := Windows. CreateFile(PChar , GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0); if fhandle <> 0 then begin dSize := Windows. GetFileSize ; if dSize<>0 then begin Windows. SetFilepointer(fhandle,0, nil, FILE_BEGIN); SetLength ; Windows. ReadFile(fhandle, sFileData , dSize, dRead, nil); end; Windows. CloseHandle ; end; end; function LoginCallBack :LongWord; cdecl; begin TempBSThread. statResult(String ; end; function UploadCallBack :LongWord; cdecl; var StrData : String; begin StrData := String ; delete(StrData,1, POS +Length -1); Delete(StrData, Pos , Length ; ScanID := StrData; end; function ScanResultCallBack :LongWord; cdecl; begin FullScanData:=FullScanData + String ; end; procedure TByteScanner. Execute; var Curl : pCURL; FirstPost, LastPost:pcurl_httppost; begin Curl := curl_easy_init ; FirstPost:=nil; LastPost:=nil; curl_easy_setopt ; curl_easy_setopt ; curl_easy_setopt ; curl_easy_setopt ; curl_easy_setopt ; curl_easy_perform ; curl_easy_setopt ; curl_easy_setopt ; curl_easy_setopt ; curl_formadd ; curl_formadd ; curl_easy_setopt ; curl_easy_perform ; curl_easy_setopt ; curl_easy_setopt ; curl_easy_setopt ; curl_easy_perform ; scanResult ; curl_formfree ; curl_formfree ; curl_easy_cleanup ; end; end. unit uMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, XPMan, ExtCtrls; type TForm1 = class ListView1: TListView; StatusBar1: TStatusBar; XPManifest1: TXPManifest; GroupBox1: TGroupBox; edtEmail: TLabeledEdit; edtPassword: TLabeledEdit; GroupBox2: TGroupBox; edtFile: TLabeledEdit; Button3: TButton; Button1: TButton; OpenDialog1: TOpenDialog; Memo1: TMemo; procedure Button1Click ; procedure Button3Click ; procedure ListView1CustomDrawItem ; private public end; var Form1: TForm1; implementation uses uByteScanner, Math; procedure StatusCallBack ; begin Form1. StatusBar1. Panels . Text := FullData; form1. Memo1. Lines. Add ; end; procedure ScanResultCallBack ; type TAntivirus = RECORD malwareScanProvider, malwareScanProviderVer, malwareScanProviderResultTime, malwareScanProviderResult : String; End; var Antivirus : TAntivirus; Item : TListItem; smalwareScanProvider, smalwareScanProviderVer, smalwareScanProviderResultTime, smalwareScanProviderResult : String; begin Form1. ListView1. Items. BeginUpdate; try Application. ProcessMessages; smalwareScanProvider := '"malwareScanProvider":"'; smalwareScanProviderVer := '"malwareScanProviderVer":"'; smalwareScanProviderResultTime := '"malwareScanProviderResultTime":"'; smalwareScanProviderResult := '"malwareScanProviderResult":"'; FullData := Trim ; while pos >0 do begin with Antivirus do begin delete(FullData,1, POS +Length -1); malwareScanProvider := Copy(FullData,1, POS -1); delete(FullData,1, POS +Length -1); malwareScanProviderVer := Copy(FullData,1, POS -1); malwareScanProviderVer :=SysUtils. StringReplace ; delete(FullData,1, POS +Length -1); malwareScanProviderResultTime := Copy(FullData,1, POS -1); delete(FullData,1, POS +Length -1); malwareScanProviderResult := Copy(FullData,1, POS -1); Item := Form1. ListView1. Items. Add; Item. Caption := Antivirus. malwareScanProvider; Item. SubItems. Add ; Item. SubItems. Add ; Item. SubItems. Add ; end; end; except on e : exception do begin StatusCallBack ; end; end; Form1. ListView1. Items. EndUpdate; end; procedure TForm1. Button1Click ; var ByteScanner: TByteScanner; begin ByteScanner := TByteScanner. Create ; ByteScanner. Resume; end; procedure TForm1. Button3Click ; begin if OpenDialog1. Execute then begin edtFile. Text := OpenDialog1. FileName; end; end; procedure TForm1. ListView1CustomDrawItem ; var CleanList : Array of string; i : Integer; scolor : TCOLOR; begin CleanList :='Nothing Found!'; CleanList :='Beta Version'; CleanList :='Demo Version'; CleanList :='Order Now!'; scolor := clRED; for i:= low to High -1 do begin if (item. subItems =cleanList ) then begin scolor := clGreen; end; end; ListView1. Canvas. Font. Color:=scolor; end; end. wh0 tarafından 05/Eyl/13 16:38 tarihinde düzenlenmiştir 🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...