المشاركة الأصلية كتبت بواسطة esso_x, 03-03-2015 11:57 PM
إقتباس :Hi all friends
in this tut show how to read algo and write Keygen hope it useful
Target: H3tman P@rtition R3c0v3ry v.2.3
duration : 14:54 M
File Size: 3.03 MB
Tools : OllyDBG & Hash & Crypto Detector v1.4
URL:http://hetmanrecovery.com
TuT written by : esso_x | AT4RE
https://www.4shared.com/rar/ZlpMgCKWce/HPR_TUT_SRC.html
Pass : esso_x|AT4RE
السلام عليكم استاذنا الكبير برجاء تحديث الرابط
تم تغيير النص الثابت في الاصدار 4.4 :
_Str2 = 'D962F890-C62C-48D5-B9B1-8A98C5D5428B';
تم اضافة ترخيص جديد
Unlimited Edition
كما تم اضافة تحقق جديد:
esso_x
0835-9970-4363-010
حذف(-)
083599704363010
جمع (ضرب كل محرف * ترتيبه)
0=>(30h)*1 = 30h 7=>(37h)*7 = 181h 0=>(30h)*13 =270h
8=>(38h)*2 = 70h 0=>(30h)*8 = 180h 1=>(31h)*14 =2AEh
3=>(33h)*3 = 99h 4=>(34h)*9 = 1D4h 0=>(30h)*15 =2D0h
5=>(35h)*4 = D4h 3=>(33h)*10 = 1FEh
9=>(39h)*5 = 11Dh 6=>(36h)*11 = 252h
9=>(39h)*6 = 156h 3=>(33h)*12 = 264h
Hex:
30h+70h+99h+D4h+11Dh+156h+181h+180h+1D4h+1FEh+252h+264h+270h+2AEh+2D0h = 17F7h => Dec:6135
يتم اعتماد(الأحاد 5) من المجموع (6135) كاخر جزء من السيريال
-------- Office Edition Serial-------
esso_x
0835-9970-4363-0105
-------------------------------------
هناك تحقق اخر خاص بمدة التفعيل .....تم التغلب عليه باستبدال اخر 03 محارف
من السيريال بـ:'000' قبل التحقق الاخير طبعا
صراحة لست ببراعة الاستاذ عصام
لكن قلت اقدم لكم مثال للدالة التى أسميتها
جمع (ضرب كل
محرف * ترتيبه)
فقلت اقدمها لكم
function Sum_MulxPos(STR: String): integer;{By terco}
var
i,SMP :integer;
begin
SMP := 0;
for i := 1 to Length(STR) do
begin
SMP := SMP + Ord(i*Ord(STR[i]));
end;
Result:=SMP;
end;
بالنسبة لرقم الأحاد من ناتج عملية الجمع فوق:
function GetLastDigit(Num: Integer): string;
begin
Result:=FloatToStr(Num mod 10);
end;
النتيجة النهائية تكون تقريبا بالشكل التالي
Part1='111122223333';
X:= GetLastDigit(Sum_MulxPos(Part1+'000'));
Result:=part1+'000'+ X;
Serial:=1111-2222-3333-000X;
وكل الشكر موصول للاستاذ Esso_x