در خواست روتین های ضد کراک

باسلام
من دارم یه قفل تلفنی برای محصولاتی که خودم تولید می کنم می نویسم .
تا اونجایی هم که تونستم ازش محافظت کردم (کارایی که کردم تایین اعتبار دیجیتال با استفاده از الگوریتم RSA +استفاده از اینکریپتور و ...) . الان دارم می گردم و بهش روتین های ضد کراک(مثل anti debuger , anti dump) اضافه می کنم اما زیاد این رو تین ها رو توی اینتر نت نتونستم پیدا کنم حالا اگه دوستان بتونن منو راهنمایی کنن که از کجا می تونم این رو تین هارو پیدا کنم ممنون می شم.

با دلفی هم دارم قفل می نویسم .

یه سری به بخش امنیت نرم افغزار در سایت برنامه نویس بنداز ...

بای

اونجا رفتم اگه جای دیگه ای رو می شناسد لطفا معرفی کنید مثل سایت های یا انجمن غیر ایرانی

کد:

---

http://rapidshare.com/files/178055529/Windows_Anti-Debug_Reference.rar.html

---

يه سورس هم مجيك داده بود اگه پيدا كردم آپ ميكنم

کد:

---

unit AntiDbg;
{
very simple AntiDebug Unit for Delphi
can detect most debuggers:
 OllyDBG,Immunity Debugger,WinDbg,W32DAsm,IDA,....
 SoftICE,Syser,TRW,TWX

Tested on Win9x-Me-2k-XP-2k3-Vista

Coded by: Magic_h2001

magic_h2001@yahoo.com
http://magic.shabgard.org

just for fun ;)
}

interface

uses Windows,SysUtils,TlHelp32;

function IsDBG:Boolean;

implementation

var
 Found:Boolean=False;
 hSnapmod: THANDLE;
 ModInfo: MODULEENTRY32;
 hSnap: THANDLE;
 ProcessInfo: PROCESSENTRY32;
 ProcID:DWORD;
 Tm1,Tm2:Int64;

 function IsDebuggerPresent():BOOL; stdcall;external 'kernel32.dll' name 'IsDebuggerPresent';

function GetSys:string;
var
  Gsys : array[0..MAX_PATH] of Char;
begin
  GetSystemDirectory(Gsys,MAX_PATH);
  Result:=Gsys;
  if length(Result)>0 then
  if Result[length(Result)]<>'\' then Result:=Result+'\';
end;

function UpCaseStr(S:string):String;
var i:integer;
begin
  Result:=s;
  if s='' then exit;
  for i:=1 to length(s) do
    Result[i]:=upcase(Result[i]);
end;

function RDTSC: Int64; assembler;
asm
  DB 0fh ,031h
end;

function IsRing0DBG(S:string): boolean;
var hFile: Thandle;
begin
  Result := False;
  hFile := CreateFileA(Pchar(S), GENERIC_READ or GENERIC_WRITE,
    0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);
  if( hFile <> INVALID_HANDLE_VALUE ) then begin
    CloseHandle(hFile);
    Result := TRUE;
  end;
end;

function IsDBG:Boolean;
var i: Integer;
begin
  Tm1:=RDTSC;
  for i:=0 to 255 do
    OutputDebugStringA('kernel32.dll');
  Tm2:=RDTSC-Tm1;
  if Tm2<9999 then Found:=True;
  if Tm2>299999999 then Found:=True;
  hSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
  ProcessInfo.dwSize:=sizeof(PROCESSENTRY32);
  Process32First(hSnap,ProcessInfo);
  repeat
  if Pos('OLLYDBG',UpCaseStr(ProcessInfo.szExeFile))<>0 then Found:=True;
  if Pos('DBG',UpCaseStr(ProcessInfo.szExeFile))<>0 then Found:=True;
  if Pos('DEBUG',UpCaseStr(ProcessInfo.szExeFile))<>0 then Found:=True;
  if Pos('IDAG',UpCaseStr(ProcessInfo.szExeFile))<>0 then Found:=True;
  if Pos('W32DSM',UpCaseStr(ProcessInfo.szExeFile))<>0 then Found:=True;
  ProcID:=ProcessInfo.th32ProcessID;
  hSnapMod:=CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,ProcID);
  ModInfo.dwSize:=sizeof(MODULEENTRY32);
  Module32First(hSnapMod,ModInfo);
  repeat
    if Pos('DBGHELP',UpCaseStr(ModInfo.szExePath))<>0 then Found:=True;
    if Pos('OLLYDBG',UpCaseStr(ModInfo.szExePath))<>0 then Found:=True;
    if Pos('W32DSM',UpCaseStr(ModInfo.szExePath))<>0 then Found:=True;
  until (not Module32Next(hSnapMod,ModInfo));
  CloseHandle(hSnapMod);
  until (not Process32Next(hSnap,ProcessInfo));
  CloseHandle(hSnap);
  if FileExists(GetSys+'drivers\sice.sys') then Found:=True;
  if FileExists(GetSys+'drivers\ntice.sys') then Found:=True;
  if FileExists(GetSys+'drivers\syser.sys') then Found:=True;
  if FileExists(GetSys+'drivers\winice.sys') then Found:=True;
  if FileExists(GetSys+'drivers\sice.vxd') then Found:=True;
  if FileExists(GetSys+'drivers\winice.vxd') then Found:=True;
  if FileExists(GetSys+'winice.vxd') then Found:=True;
  if FileExists(GetSys+'vmm32\winice.vxd') then Found:=True;
  if FileExists(GetSys+'sice.vxd') then Found:=True;
  if FileExists(GetSys+'vmm32\sice.vxd') then Found:=True;
  if IsDebuggerPresent then Found:=True;
  if IsRing0DBG('\\.\SICE') then Found:=True;
  if IsRing0DBG('\\.\SIWVID') then Found:=True;
  if IsRing0DBG('\\.\NTICE') then Found:=True;
  if IsRing0DBG('\\.\TRW') then Found:=True;
  if IsRing0DBG('\\.\TWX') then Found:=True;
  if IsRing0DBG('\\.\ICEEXT') then Found:=True;
  Result:=Found;
end;

end.

---

منبع:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ممنون که کمک کردین دوستان دیگه هم لطف کنن کد های ضد کراکی که دارن را از ما دریغ نکنن.

سورس VB6 ندارین ؟؟؟

یا سورس net.

api هاي موجود كه استفاده شده در تمام زبان ها يكسان است .

خودتون اونها رو ببريد در وي بي يا ...

باي

به اینا چقدر میشه اعتماد کرد ؟؟؟

هيچي !!!

...........................

سلام.
من اینا رو پیدا کردم.

کد:

---

function IsDebuggerPresent: BOOL; stdcall; external 'kernel32.dll';
function BoundsCheckerDetected: Boolean;
begin
try
  asm
    push  ebp
    mov  ebp, 'BCHK'
    mov  ax, 4
    int  3
    cmp  ax, 4
    jne  @@softice_detected
    mov  ax, 0
    jmp  @@exit
    @@softice_detected:
    mov  ax, 1
    @@exit:
    pop  ebp
  end;
 except
 on E: EExternalException do
  begin
      result:=False;
  end else begin
  result:=true;
  end;
 end;
end;

function SoftIceVXDDetected: Boolean;
begin
try
  asm
      push  esi
      push  edi
      mov  ax, $1684
      mov  bx, $0202
      xor  di, di
      mov  es, di
      int  $2F
      mov  ax, es
      add  di,ax
      cmp  di, 0
      jne  @@softice_detected
      mov  ax, 0
      jmp  @@exit
  @@softice_detected:
      mov  ax, 1
  @@exit:
      pop  edi
      pop  esi
  end;
except
  result:=False;
end;
end;
//------------
function WinIceDetected: Boolean;
begin
try
  asm
      mov  ah, $43
      int  $68
      cmp  ax, $F386
      jz    @@winice_detected
      mov  ax, 0
      jmp  @@exit
  @@winice_detected:
      mov  ax, 1
  @@exit:
  end;
except
  result:=False;
end;
end;

---

نقل قول:

---

سورس VB6 ندارین ؟؟؟

یا سورس net.

---

تو VB هم میشه از Findwindow استفاده کرد و بعضی از دیباگرها رو تشخیص داد.

معمولا این کدها فایده ای ندارند چون اکثر برنامه های کرکینگ ورژن undetectable دارند.

با سلام خدمت دوستان از این که همکاری کردید ممنون . این کد ها و روتین ها همه قابل دور زدنه اما فایده ای که دارن اینه که هر کی از راه رسید نموتونه اونا رو دور بزنه منظورم کراکر های مبتدی و بعضی از کرا کر های متوسطه و اینطوری برنامه ای که امنیتش 2 درصد هست امنیتش تبدیل میشه به 15 در صد اما در مورد کراکر های حرفه ای مثل آقای هخامنش فقط می تونیم با استفاده از اینکریپتور ها و پکر ها و استفاده از قفل سخت افزاری و رعایت قوانین محافظت از برنامه کار شون رو سخت تا خسته بشن و بی خیال کراک نرم افزار بشن کنیم .

اما خدا رو شکر کراکر های حرفه ای مثل آقا هخامنش و یا توی یه انجمن دیگه آقا بردیا تا اونجایی که من دیدم طرز قکرشون اینه که نباید نرم افزار ایرانی رو کراک کرد که واقعا باید بخاطر این طرز فکر بهشون تبریک گفت . و بازم یه نکته دیگه که باعث دلگرمی برنامه نویس هایی عین من می شه اینه که تا الان توی هیچ انجمن ایرانی در خواست کراک نرم افزار ایرانی رو کسی قبول نکرده و نمی کنه و این بصورت یه قانون تو انجمن ها در امده.

دوستانی که می خوان بدونن که چطوری میشه جلوی دیباگر ها ایستاد .
دوستانی که می خوان بدونن که چطوری میشه جلوی پچ کردن برنامه رو گرفت .
و خلاصه کسایی که می خوان بدونن چطوری امنیت نرم افزارشون رو بالا ببرن به اینجا یه سری بزنن:

البته بازم می گم تمام روش ها قابل دور زدن هست و فقط برای مقابله با کراکر های مبتدی و بعضی کراکر های متوسط هست.

کد:

---

http://barnamenevis.org/forum/showthread.php?t=104440

---