2008 :] and all works fine 
And you could use MING or GCC for the same code as well *sigh*
//ADD DEF-FILE:
#pragma comment(linker, "/DEF:EXPORTS.def")
//CONTINUE CODE
#include "stdafx.h"
#include "KalHook.h"
HMODULE libraryHandle;
///
/// Implementation of the WINBASE.H method GetUserNameA().
/// Required for proxying the ADVAPI32.dll library.
///
_declspec(dllexport) BOOL WINAPI GetUserNameA(LPSTR input, LPDWORD buffer)
{
typedef BOOL (WINAPI* CFunction)(LPSTR input,LPDWORD buffer);
CFunction getUserName = (CFunction)GetProcAddress(libraryHandle, "GetUserNameA");
return getUserName(input, buffer);
}
///
/// Initialize and attach the KalHooks class to the DLL loading
/// allowing us to do inline assembler and memory editing.
///
BOOL WINAPI DllMain(HMODULE module,DWORD action,LPVOID reserved)
{
libraryHandle = LoadLibraryA("ADVAPI32.dll");
Sword::KalHook *hook = new Sword::KalHook();
switch(action)
{
case DLL_PROCESS_ATTACH:
hook->Attach();
break;
case DLL_THREAD_ATTACH:
hook->Detach();
break;
}
return true;
}
No
Yes
library MyAdvAPI;
uses
Windows;
//Import GetUserNameA from ADVAPI32.DLL...
function GetUserNameA(input: LPSTR; buffer: LPDWORD): Boolean; external 'advapi32.dll';
//Lets export "our's GetUserNameA" to be visible for MainSvrT...
exports
GetUserNameA;
//Here's our core :)
procedure DllEntryPoint(dwReason: DWord);
begin
case dwReason of
DLL_PROCESS_ATTACH:
begin
//OnLibaryLoad;
{Make poop there}
end;
DLL_PROCESS_DETACH:
begin
//OnLibaryUnload;
{Make poop there}
end;
end;
end;
//Here everything starts :)
begin
DllProc:=@DllEntryPoint;
DllEntryPoint(DLL_PROCESS_ATTACH);
end.DWORD MyChatBack;
void WINAPI MyChatBox(char* rw)
{
if (rw[0] =='x')
Command(rw);
}
void Naked MyChatHook()
{
__asm
{
add esp,4
mov eax, esp
push eax
call MyChatBox
jmp MyChatBack;
}
}
void ChatPrint(char *rw)
{
char string[256]={0};
sprintf_s(string,"&\0");
strcat_s(string,rw);
DWORD adr = (DWORD)&string;
__asm
{
mov edx,adr
PUSH EDX
mov eax,0x00229518
push eax
PUSH 11h
mov eax,0x00229518
call eax
}
}
void ChatBox() {
int offset;
offset=SearchPattern("83 C4 04 85 C0 74 02 EB 26 8B 55 F8 52 68 x x x x 6A 11 E8 x x x x",0x00400000,0x00700000);
if (offset != 0) {
Intercept(INST_JMP,offset,(DWORD)MyChatHook,9);
MyChatBack = offset +9;
}
}procedure TForm1.Button1Click(Sender: TObject);
var
myRGB: Array [0..3] of Byte;
X, Y: Integer;
MemStream: TMemoryStream;
begin
X := 0;
Y := 0;
MemStream := TMemoryStream.Create;
if OpenDialog1.Execute = True then
begin
MemStream.LoadFromFile(OpenDialog1.FileName);
MemStream.Position := 4;
Image1.Picture.Bitmap.Width := 256;
Image1.Picture.Bitmap.Height := 256;
for Y := 0 to 256 do
begin
for X := 0 to 256 do
begin
MemStream.Read(myRGB, 4);
Image1.Canvas.Pixels[X,Y] := RGB(myRGB[0],myRGB[1],myRGB[2]);
end;
end;
MemStream.Free;
end;
end;using System;
using System.Collections.Generic;
using System.Text;
namespace KalMapEditor
{
class Map
{
public ushort Collision;
public byte Zone;
public enum Types {
World = 0x00,
OneWayPortal = 0x01,
Town = 0x02,
TwoWayPortal = 0x03,
PKFree = 0x04,
Castle = 0x10
};
public Map(ushort collision,byte zone)
{
this.Collision = collision;
this.Zone = zone;
}
}
} /// <summary>
/// Load the map into a grid
/// </summary>
private bool LoadMap()
{
ushort collision;
ushort zone;
try
{
using(FileStream fs = new FileStream(Path.GetFullPath(Filename),FileMode.Open))
using(BinaryReader br = new BinaryReader(fs))
{
for(int y=255;y>=0;y--)
for(int x=0;x<256;x++)
{
collision = br.ReadUInt16();
zone = br.ReadUInt16();
switch((byte)zone)
{
case (byte)Map.Types.Town:
Grid[x,y] = new Map(collision,(byte)Map.Types.Town);
break;
case (byte)Map.Types.Castle:
Grid[x,y] = new Map(collision,(byte)Map.Types.Castle);
break;
case (byte)Map.Types.OneWayPortal:
Grid[x,y] = new Map(collision,(byte)Map.Types.OneWayPortal);
break;
case (byte)Map.Types.TwoWayPortal:
Grid[x,y] = new Map(collision,(byte)Map.Types.TwoWayPortal);
break;
case (byte)Map.Types.PKFree:
Grid[x,y] = new Map(collision,(byte)Map.Types.PKFree);
break;
case (byte)Map.Types.World:
Grid[x,y] = new Map(collision,(byte)Map.Types.World);
break;
default:
Grid[x,y] = new Map(collision,(byte)Map.Types.World);
break;
}
}
}
} catch(EndOfStreamException) {
MessageBox.Show("Invalid File");
return false;
}
return true;
}
