ами що не си потърсиш / Компютри и Интернет / Хакери, Кракери ....

Ъм.... т'ва не съм го писал аз, изрових го отнякъде:

Как да Създадем Keygen Използвайки SmartChek

Този път ще ви покажа как да направите keygen, използвайки SmartCheck информация. Инструменти и мишена: SmartCheck 5.0 или по-висока (може да я намерите на http://surf.to/HarvestR или http://iczelion.cjb.net), някакъв език за програмиране (ASM, C, Pascal, Delphi, …), за да се кодира keygen'a. А за мишена ще използваме DL PageASchedule v1.1 (потърсете я на http://www.zdnet.com). Тази програма е кодирана в VB5, затова е перфектната мишена за SmartCheck, един от добрите Numega инструменти. Инсталирайте я в избрана от вас папка и я заредете, за да я разгледате. Виждате досаден прозорец показващ сериен номер и регистрация със съответен ключ. Серийният номер и ключа са различни за всеки компютър (базирани на ID харда ви или нещо от сорта). За моя компютър си имам този сериен номер: 554-370-524. Подготовка: Заредете SmartCheck и се уверете, че сте конфигурирали следните условия: кликнете на "Settings" от менюто Program и след това в етикета "Error Detection" - всички позиции трябва да бъдат избрани, от етикета "Advanced" (от предишния етикет) - всички избрани, освен последните три най-отдолу и най-накрая от "Reports" - изберете всичко освен mouse. Зареждане: Сега сте готови да започнете. Кликнете на иконата "open" и заредете от папката, където DLPager е инсталиран. След това кликнете на "play" бутона (зелената стрелка от toolbar'а). DLPager е зареден. Може да видите досадния екран със серийния и три кутийки за въвеждане на регистрационния ключ. Серийният номер се създава от вашата hard drive информация и е различен за всеки човек. В системата, която ви представям ще използваме серийния номер който имам: 554-370-524. Вкарайте произволен регистрационен ключ, аз използвах 111-111-111 и кликнете на регистрация. Програмата ви извежда съобщението "Invalid Key". Кликнете на бутона ОК, след което в SmartCheck съответно на "stop" (червения квадрат от лентата с инструментите) и се съгласете да спрете изпълнението на DLPager. В левия прозорец на SmartCheck може да видите дълъг списък с резултати. Но повечето важна информация е все още скрита. Изберете от View "Show All Events". Сега вече имате достъп до всички функции и инструкции използвани от DLPager. Нека вече се захванем със сериозни неща като Четене на кода: В този дълъг списък с инструкции трябва да намерим къде нашият измислен регистрационен ключ се сравнява с верния, затова скрулираме по списъка, за да разберем как ИСТИНСКИЯТ регистрационен ключ е създаден. От менюто Edit избираме Find. Въвеждаме ключовата дума "invalid" и след това кликаме на "find next". Знаем, че нашият регистрационен ключ със сигурност се проверява точно преди прозорецът със съобщението да се появи. Намирам я на ред 8475 (може да бъде различен на вашия компютър): «__vbaVarDup(VARIANT:string:"Invalid...» Добре, ако скрулираме по листинга може да видим един много интересен ред: «_vbaVarTstEq(VARIANT:Const String:"",VARIANT:String:"866434184"...» Номерът 866434184 МОЖЕ ДА БЪДЕ различен на вашия компютър. Но това прилича на ИСТИНСКИЯ регистрационен ключ, нали? За да сте сигурни, просто стартирайте DLPager (директно извън SmartCheck) и се опитайте да въведете номера, който намерихте! Bingo, намерили сте вашия номер :) Но не искаме само да имаме серийния, защото той ще работи само на нашия компютър, а ние искаме да можем да го дадем на някой друг. Затова трябва да разберем КАК този регистрационен ключ е създаден. И така, нека разгледаме листинга отново. Как се създава този регистрационен ключ: Само няколко редове по-нагоре (за мен това е ред 8449) ще намерите интересна инструкция: «__vbaVarMove(VARIANT:String:"86643418..",VARIANT:String"86643418"» Гледайки в десния прозорец на SmartCheck (информационния прозорец) ще видите стойността на променливите: : 866434184 и 86643418 (моля не забравяйте, че вашите числа могат да бъдат различни). Инструкцията vbaVarMove (и на предния ред vbaVarTstEq) е само за добавяне на нова характеристика към string'а… Добре, сега вече сме на последната стъпка от създаването на ВЕРНИЯ регистрационен ключ, където последния номер е добавен. Скрулирайте нагоре, докато не намерите първата стъпка от създаването на този ключ. За мен той започва от ред 7983, точно след теста за дължината на нашия фалшив ключ (111111111). Сега вече можем да видим какво точно прави програмата. Най-напред се взема първата цифра на ключа, която се зарежда от програмата (554370524), използвайки инструкцията: «Mid(VARIANT:ByRef String:"554370524",Long 1,...» Може да видите, че тиретата в номера са премахнати. Веднага след това виждаме друг интересен ред: «Mid(VARIANT:ByRef String:"HabXndJf...",Long 1, » ако погледнете в десния прозорец, ще видите пълната стойност на string'а, който е «HabXndJfiqPmKla». Нека продължим надолу с разглеждането на листинга на кода. На следващите два реда се дава ASCII стойност на първия символ на ключа (554370524), а и на този странен string: «asc(VARIANT:"5") Returns Integer:53» «asc(VARIANT:"H") Returns Integer:72» Точно след тези редове се натъкваме на наистина странна инструкция: «str(VARIANT:Integer:8)» Хммммммммм от къде идва този номер? Ако погледнем по-надолу, ще видим, че за 9 числа от номера, подаден от програмата, ASCII стойността се пресмята и същите неща се правят за всичките девет начални символа на "странния" string. Всеки път се появява нов номер и се прибавя към предишния, като по този начин се образува крайния номер на ключа…. И така, почесах се по главата, изпих едно силно кафе и започнах да използвам въображението си (до голяма степен то ви е необходимо, за да краквате или както се казва трябва "да почувствате кода"). Спомнете си първия символ от регистрационния ключ (8). Имаме два ASCII стойности: 53 и 72. Е, тогава нека прибавим цифрите, за да получим тази стойност 5+3+7+2=17! Сега нека отново прибавим всяка една от цифрите 1+7=8!!! За да сме сигурни нека проверим теорията със следващите няколко стъпки: за втория символ на регистрационния ключ ичач asc(5) и asc(а), които са 53 и 97. Следвайки теорията ми имаме 5+3+9+7=24 и 2+4=6!!! Вторият символ на ВЕРНИЯ ключ е 6, отново потвърждение :) Но за да сме абсолютно сигурни, проверяваме и третия: asc(4)=52 и asc(b)=98, следва 5+2+9+8=24, а 2+4=6 и виждаме също, че 6 е третия символ от ключа……значи сме открили трика :))) Алгоритъмът: Знаем, че всеки номер от подадения ни от програмата сериен номер (в моя случай 554-370-524) ще бъде свързан с всяка от деветте първи букви на string'а "HabXndJfi". Тогава asc стойността ще се сумира и всяка цифра от нея ще се прибавя, докато не стигнем до едноцифрено число. Също знаем, че странния string (HabXndJfi) разбира се също ни дава същите asc стойности. Може да дефинираме тези фиксирани стойности (нарекох ги "магически числа"): H=72 --> 7+2=9 a=97 --> 9+7=16 --> 1+6=7 b=98 --> 9+8=17 --> 1+7=8 X=88 --> 8+8=16 --> 1+6=7 n=110 --> 1+1+0=2 d=100 --> 1+0+0=1 J=74 --> 7+4=11 --> 1+1=2 f=102 --> 1+0+2=3 i=105 --> 1+0+5=6 А, сега можем да създадем крайния регистрационен ключ. Основният алгоритъм: Ключ номер 1 = сумата от всички символи на ascii стойността на (серийният номер 1 + магическото число 1) Ключ номер 2 = сумата от всички символи на ascii стойността на (серийният номер 2 + магическото число 2) Моят пример: За сериен номер имам - 554-370-524 Ключ номер 1: ascii за "5" е 53, 'магическо1' е 9, сумата е 62, ключ1 е 6+2=8 Ключ номер 2: ascii за "5" е 53, 'магическо2' е 7, сумата е 60, ключ2 е 6+0=6 Ключ номер 3: ascii за "4" е 52, 'магическо3' е 8, сумата е 60, ключ3 е 6+0=6 Ключ номер 4: ascii за "3" е 51, 'магическо4' е 7, сумата е 58, ключ4 е 8+5=13, тогава 1+3=4 … Вече имам регистрационния ключ: 866-434-184 Кодът keygen За целта съм използвал QBASIC. Между другото може да създадете свой собствен keygen, без да използвате моя листинг :) Ще ви дам само част от кода, където се изчисля keygen'а: ... INPUT "Въведете своя сериен номер (без -) :"; serial$ FOR i = 1 TO 9 REM *** Изчислява се сумата на числата от ascii стойността на всяко число от серийния c1(i) = INT(ASC(MID$(serial$, i, 1)) / 10) c2(i) = ASC(MID$(serial$, i, 1)) - INT(ASC(MID$(serial$, i, 1)) / 10) * 10 regcode(i) = c1(i) + c2(i) REM *** Проверява се дали резултатът е повече от един символ, ако не е се изчислява до един символ. IF regcode(i) > 9 THEN regcode(i) = INT(regcode(i) / 10) + (regcode(i) - (INT(regcode(i) / 10)) * 10) NEXT i REM *** Сега се прибавя "магическото число" към всеки номер от този регистрационен код regcode(1) = regcode(1) + 9 regcode(2) = regcode(2) + 7 regcode(3) = regcode(3) + 8 regcode(4) = regcode(4) + 7 regcode(5) = regcode(5) + 2 regcode(6) = regcode(6) + 1 regcode(7) = regcode(7) + 2 regcode(8) = regcode(8) + 3 regcode(9) = regcode(9) + 6 REM *** и се проверява дали всяка от новите стойности е повече от един символ... FOR i = 9 TO 1 STEP -1 IF regcode(i) > 9 THEN regcode(i) = INT(regcode(i) / 10) + (regcode(i) - (INT(regcode(i) / 10)) * 10) NEXT i ... Сега трябва само да запишете деветте числа във следния формат ххх-ххх-ххх и keygen'ът е завършен. Надявам се, че предложената от мен система не е била твърде сложна и неясна :))

Дерзай!