delphi4arab منتديات دلفي للعرب

الصفحات : 1 2 3 4 5

ماتم اضافته ايجاد موقع سارق الجهاز وذلك من خلال اخر تقرير 'ip_logs'

PHP كود :
var latlng = new google.maps.LatLng(<?php echo get_xy(); ?>); //Set the initial coordinates for the map 

PHP كود :
function get_xy(){
            $select = mysql_query("select `longitude`,  `latitude` from ip_logs where `id`= (
    SELECT max(id) FROM ip_logs
    ) ");
            $row_users = mysql_fetch_assoc($select);        
            return  $row_users['longitude'].','.$row_users['latitude'];
            } 

onexite كتب :نعم فكرة مميزة
هل يمكنك ان توفر كود تغيير كلمة مرور البيوس ؟

وكذلك حماية البرنامج من الغلق

على حد علمي ... يمكن ذلك باستخدام مقاطعات البيوس أو باستخدام cmd
للتخاطب مع مقاطعات البيوس ستحتاج الى جلب عنوان المنفذ باستخدام debug.exe (تطبيق 16 بت )
لكن لا وجود ل debug.exe في أنظمة 64 بت ..
راجع : قراءة محتوى الـ bios في ملف نصي!

يجب التفكير في حل بديل .....

يمكن قراءة السيريال عند العنوان 400$

كود :
http://www.logix4u.net/parallel-port/43-how-to-read-parallel-serial-port-address-from-bios

لكن للأسف فلم أجد مكتبة inpout32
لا أعرف ما المشكل مع 64 bit !!

و الله في حقيقة الأمر أعجبني الموضوع و فكرته كثيرا ، و لكن بعد الإطلاع على كامل المشاركات إلى حد الساعة ، و قفت تماما عند نقطة تهيئة القرص و تنصيب نظام تشغيل جديد ، يعني هذا المشكل حقيقي فعــــلا . أردت القول أنه لا بد من الجدوى و الفعالية ، فلمذا التعب و الغاية المنشودة بعيدة المنال. بعبارة أخرى لا بد من وجود حل لهذا الإشكال أولا.
الأخ المتكرم بفكرة بتأمين البيوس بكلمة مرور ، فلا جدوى من هذا اطلاقا فيمكن للعام و الخاص تهيئة القرص و تنصيب نظام تشغيل جديد . و إذا تمكن من هذا فلا جــ...دوى . هل من حل لتجاوز هذه المعضلة ؟

يكمن الحل في عمل بلوك للجهاو لمدة معينة ثم التصرف بمافي البرنامج اعلاه

يعني لاتعطي فرصة للسارق حاول اشغاله باشياء حتى يتم ارسال المعلومات وبخاصة صورته ومكانه

السلام عليكم
بخصوص السكربت اضفت له بعض التعديلات

PHP كود :
http://fancyapps.com/fancybox/ 

تكبير الصورة عند الضغط عليها

[صورة: 20130504150427.jpg]

الكود

PHP كود :
<td>  <figure tabindex="1" contenteditable="true">';
if (file_exists("pics/".$val['name'])) {
echo '<a class="fancybox" rel="group" title="'.$val['date'].'" href= "pics/'.$val['name'].'" ><img src="pics/'.$val['name'].'" height="90" width="144"  contenteditable="false" /></a>';}
else
echo '<img src="loading/notfound.png"   contenteditable="false" />';
echo '<figcaption contenteditable="false">'.$val['date'].'</figcaption>
</figure>
</td> 

وتعديل ايجاد الشخص من خلال الخريطة قلب الاحداثيات

PHP كود :
function get_xy(){
            $select = mysql_query("select `longitude`,  `latitude` from ip_logs where id_user = ".getsid()." AND `id`= (
    SELECT max(id) FROM ip_logs
    ) ");
            $row_users = mysql_fetch_assoc($select);        
            return  $row_users['latitude'].','.$row_users['longitude'];
            } 

اما بخصوص الدلفي فتم تعديل كود التقاط الصورة بدون مركبات ولا متغيرات كثيرة

PHP كود :
//by onexite
function TForm1.WebCamShot(filename: string):Boolean;
var CaptureWindow : hwnd;
begin
 CaptureWindow  := capCreateCaptureWindow('CaptureWindow', 0, 0, 0, 0, 0, 0, 0);
  if CaptureWindow  <> 0 then
  begin
     try                //1084
        SendMessage(CaptureWindow , 1034, 0, 0);
        SendMessage(CaptureWindow , 1076, 40, 0);
        SendMessage(CaptureWindow , 1074, 1, 0);
        SendMessage(CaptureWindow , 1049, 0, lParam(PChar(filename)));
        SendMessage(CaptureWindow , 1035, 0, 0);// CaptureWindow  := 0;
        result:=True;
     except
       result:=false;
     end;
  end 

PHP كود :
function capCreateCaptureWindow(lpszWindowName: LPCSTR;dwStyle: DWORD;x, y, nWidth,nHeight: integer;hwndParent: HWND;nID: integer): HWND; stdcall;external 'AVICAP32.DLL' name 'capCreateCaptureWindowA'; 

اما الاستخدام

PHP كود :
WebCamShot('tmp.bmp');
img1.Picture.LoadFromFile('tmp.bmp'); 

تغيير كلمة مرور المستخدم

PHP كود :
Function GetUser: string;
Var
    UserName       : string;
   UserNameLen    : Dword;
Begin
    UserNameLen := 255; Result := '';
   SetLength(userName, UserNameLen);
   If  GetUserName(pChar(UserName), UserNameLen) Then
     Result :=  Copy(UserName,1,UserNameLen - 1)
End;
//
  procedure SetWinPassword(password:string)  ;
   begin
     WinExec(PAnsiChar('cmd.exe /c net user '+GetUser+ ' '+ password),0)   //+ GetUser+
    // net user nom_utilisateur  nouveau_mot_passe
   end; 

تم تعديل السكربت
نظام الدخول
[صورة: 20130510185255.jpg]

ارسال الامر و العلامة على الخريطة
[صورة: 20130510185442.jpg]

كلمة المرور للتاكد
[صورة: 20130510185549.jpg]

السكربت في المرفقات كامل تقريبا
اما بخصوص البرنامج
فوجدت هذا المكتبة للحقن واخفاء البرنامج

إقتباس :https://github.com/BenBE/AntiInducA/tree...Collection

الامثلة والمكتبة من موضوع kachwahed

وجدت المثال المرفق و هو لاستخدام الكاميرا الملحقة
يمكن الإضافة و التعديل
المثال بلازاراس
الرخصة lgpl,mpl Wink

piratewar كتب :وجدت المثال المرفق و هو لاستخدام الكاميرا الملحقة
يمكن الإضافة و التعديل
المثال بلازاراس
الرخصة lgpl,mpl

شكرا لك عزيزي عل هذاه الاضافة المميزة
السكربت المعدل والنهائي كامل بكل الملفات والاضافات في المرفقات
وهذه تجربة بعد ان قمت برفعه على استضافة
تم تغيير لون الخلفية

[صورة: 20130511193947.jpg]

الرفع على الموقع يعمل بفعالية مع كل الاضافات jquery

[صورة: 20130511194024.jpg]

الصفحات : 1 2 3 4 5

onexite

SMP3

SMP3

nabilkeb

عبد الهادي

onexite

onexite

onexite

piratewar

onexite