GioTiN Posted August 17, 2008 Posted August 17, 2008 hi to all people of herei supply a new keygen me for test people'sNote : Just write a keygenprotection : BASE 64 tabledownload link :attached to this topicByeKeyGen_ME_5_Under_SEH_Team.zip
IMPosTOR Posted August 17, 2008 Posted August 17, 2008 hear is my src function Generate_Serial_by_IMPosTOR: string;var i1,i2,i3,LEN : integer; A1,B1 : integer; A2,B2 : integer; A3,B3 : integer; User_Name,Part1,Part2,Part3,S1,S2,S3,Final_Serial : string;begin result := 'Error : contact impostor_76171@yahoo.com'; User_Name:= Email; Base64Encode(User_Name,User_Name); LEN := length (User_Name); B1:=0; for i1 := 1 to length(User_Name) do begin S1 := inttostr(ord(User_Name[i1])); A1 := strtoint(S1) + 354; B1 := A1 + B1; end; Part1 := inttostr(B1); B2:=0; for i2 := 1 to length(User_Name) do begin S2 := inttostr(ord(User_Name[i2])); A2 := strtoint(S2) * 13765; B2 := B2 + A2; end; Part2 := inttostr(B2); B3:=0; for i3 := 1 to length(User_Name) do begin S3 := inttostr(ord(User_Name[i3])); A3 := strtoint(S3) + 22; B3 := B3 + A3; end; Part3 := inttostr(B3 + 134 ); Final_Serial := Part1 + '-' + Part2 + '-' + Part3; Base64Encode(Final_Serial,result);end; @DrPepUr i also make asm src,i dont know about asm coding. i make this : function Generate_Serial_by_IMPosTOR: string;var LEN : integer; P1 : integer; P2 : integer; P3 : integer; User_Name,Final_Serial : string;begin result := 'Error : contact impostor_76171@yahoo.com'; User_Name:= Email; Base64Encode(User_Name,User_Name); LEN := length (User_Name); asm PUSHAD XOR EBX,EBX MOV EDX,$1 MOV EAX,LEN @LOOP1: MOV ECX,User_Name MOVZX ECX,BYTE PTR DS:[ECX+EDX-$1] ADD ECX,$162 ADD EBX,ECX INC EDX DEC EAX Jnz @LOOP1 MOV P1,EBX POPAD end; asm PUSHAD XOR ESI,ESI MOV EDX,$1 MOV EAX,LEN @LOOP1: MOV ECX,User_Name MOVZX ECX,BYTE PTR DS:[ECX+EDX-$1] IMUL ECX,ECX,$35C5 ADD ESI,ECX INC EDX DEC EAX JNZ @LOOP1 MOV P2,ESI POPAD end; asm PUSHAD XOR EDI,EDI MOV EDX,$1 MOV EAX,LEN @LOOP1: MOV ECX,User_Name MOVZX ECX,BYTE PTR DS:[ECX+EDX-$1] ADD ECX,$16 ADD EDI,ECX INC EDX DEC EAX JNZ @LOOP1 ADD EDI,$86 MOV P3,EDI POPAD end; Final_Serial := inttostr(P1) + '-' + inttostr(P2) + '-' + inttostr(P3); Base64Encode(Final_Serial,result);end; can you tell me if asm src have bug? i test both work fine
sama Posted August 17, 2008 Posted August 17, 2008 (edited) It is approx the same as #4 only few changes in the algo@impostorwait at least few days before posting your sourceyour are taking away the fun for other users ! Edited August 17, 2008 by sama
rxzcums Posted August 18, 2008 Posted August 18, 2008 (edited) this keygen i make is not a real keygen.. it's a serial fisher, the usage: 1. put "get_sn.exe" to "KeyGen ME 5_Under SEH Team.exe"'s dir. 2.start "get_sn.exe", enter any serial and click "&Check it", u will get the correct serial for your name u typed . ( u also can click "&Check it" without enter anything ) BTW: the "get_sn.exe" can be killed by many anti-virus, so maybe u need to close anti-virus first.. in fact it's not a virus... regards rxzcums get_sn.rar Edited August 19, 2008 by rxzcums
enhzflep Posted August 23, 2008 Posted August 23, 2008 Been a busy week with far too few hours spent number crunching. Managed to avoid reading Imposter's code. Here's my keygen - UnderSeH keygenmes #1 - #5, all in one. for the fun GioTiN. [puts on Oliver voice] Please sir....... Can I have some more? [/Oliver voice] MultiKeygen.zip
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now