1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

var s:string;
    i:integer;
    c,b:char;
    t:integer;
begin
  s:= Edit1.text;
  for i:= 1 to length(s) do begin
    if s[i] in ['0'..'9'] then begin
      b:= '0';
      t:= 10;
    end else
    if s[i] in ['a'..'z'] then begin
      b:= 'a';
      t:= 26;
    end else
    if s[i] in ['A'..'Z'] then begin
      b:= 'A';
      t:= 26;
    end else
      continue;
    s[i]:= chr(ord(b) + (t-(ord(s[i]) - ord(b))) - 1)
  end;
  Edit1.Text:= s;                    

1:
2:
3:
4:
5:

.text:00011303 cmp_res:
.text:00011303                 mov     ecx, [ebp+compare_res]
.text:00011309                 mov     [ebp+tmp], ecx
.text:0001130F                 cmp     [ebp+tmp], 0
.text:00011316                 jnz     ende                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:

// CRACKME

#include "ntifs.h"
#include "ntddk.h"

UNICODE_STRING usDosDeviceName;
CHAR Text[250];// = "wRVh rHG Mfm vrMv eLOoeviHrLm\00"; //dIEs iST Nun eiNe vOLlverSiOn
CHAR rKey[33]; // = "0833w57zv010ux14468097v9y1uy4vzz\00"; //9166d42ae989fc85531902e0b8fb5eaa 

void atbash(char *Buffer, int BufferLen)
{
  int basis,sl,li;

  for (li = 0; li <= BufferLen; li = li +1) {

    if ((Buffer[li] >= 48) && (Buffer[li] <= 57)) { 
      basis = 48;
      sl = 10;
    } else if ((Buffer[li] >= 65) && (Buffer[li] <= 90)) {
      basis = 65;
      sl = 26;
    } else if   ((Buffer[li] >= 97) && (Buffer[li] <= 122)) {
      basis = 97;
      sl = 26;
    } else {
      continue;
    }
    Buffer[li] = basis+(sl-(Buffer[li]-basis))-1;
  }
}

VOID OnUnload( IN PDRIVER_OBJECT DriverObject )
{
  //DbgPrint("CRACKME: CYA\n");
  IoDeleteSymbolicLink(&usDosDeviceName);
  IoDeleteDevice(DriverObject->DeviceObject);
}

typedef struct _MYPACK {
  ULONG Pid;
  ULONG String;
  CHAR Key[33];
} MYPACK, *PMYPACK;

NTSTATUS MyWrite(PDEVICE_OBJECT DeviceObject, PIRP Irp)
{
    PIO_STACK_LOCATION pIoStackIrp = NULL;
  PMYPACK MyPack;
  
  ULONG pe    = 0;
  CHAR retText[250];
  CHAR retKey[33];
  KAPC_STATE  ks;
////////////////////////////////////////////////

  pIoStackIrp = IoGetCurrentIrpStackLocation(Irp);
  if(pIoStackIrp)
  {
    MyPack = (PMYPACK)Irp->AssociatedIrp.SystemBuffer;
    if(MyPack)
    {
        ////////////////////////////////////////////////////
      if (PsLookupProcessByProcessId(MyPack->Pid, &pe) == STATUS_SUCCESS) 
      {
        strcpy(retText,Text);
        strcpy(retKey,rKey);
        atbash(retText,29);
        atbash(retKey,32);

        //DbgPrint("CRACKME: IRP");
        
        if (strcmp(MyPack->Key,retKey) == 0) {
          KeStackAttachProcess(pe, &ks);
          strcpy(MyPack->String,retText);
          KeUnstackDetachProcess(&ks);
          //DbgPrint("CRACKME: KEY VALID");
        //} else {
          //DbgPrint("CRACKME: KEY INVALID");  
        }
      } 

    }
  }
  return STATUS_SUCCESS;
}

NTSTATUS UnSupportedFunction(PDEVICE_OBJECT DeviceObject, PIRP Irp)
{
  return STATUS_NOT_SUPPORTED;
}

NTSTATUS DriverEntry( IN PDRIVER_OBJECT theDriverObject, IN PUNICODE_STRING theRegistryPath )
{
  UNICODE_STRING usDriverName;
  PDEVICE_OBJECT pDeviceObject = NULL;
  ULONG uiIndex = 0;

  strcat(Text, "wRVh ");
  strcat(rKey, "0833w5");

  //DbgPrint("CRACKME: HELLO\n");

  RtlInitUnicodeString(&usDriverName, L"\\Device\\CRACKME");

  strcat(Text, "rHG ");
  strcat(rKey, "7zv010");

  RtlInitUnicodeString(&usDosDeviceName, L"\\DosDevices\\CRACKME");

  strcat(Text, "Mfm ");
  strcat(rKey, "ux1446");
  
  if (IoCreateDevice(theDriverObject, 0, &usDriverName, FILE_DEVICE_UNKNOWN, FILE_DEVICE_SECURE_OPEN, FALSE, &pDeviceObject) == STATUS_SUCCESS)
  {
    for(uiIndex = 0; uiIndex < IRP_MJ_MAXIMUM_FUNCTION; uiIndex++)
      theDriverObject->MajorFunction[uiIndex] = UnSupportedFunction;

    theDriverObject->MajorFunction[IRP_MJ_WRITE] = MyWrite;
    pDeviceObject->Flags |= DO_BUFFERED_IO;
    pDeviceObject->Flags &= (~DO_DEVICE_INITIALIZING);
    IoCreateSymbolicLink(&usDosDeviceName, &usDriverName);

  }

  strcat(Text, "vrMv ");
  strcat(rKey, "8097v9");

  theDriverObject->DriverUnload  = OnUnload;

  strcat(Text, "eLOoeviHrLm\00");
  strcat(rKey, "y1uy4vzz");

  return STATUS_SUCCESS;
}                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:

program ESCrackMe;

{$APPTYPE CONSOLE}

//9166d42ae989fc85531902e0b8fb5eaa

uses
  SysUtils,
  WinSvc,
  Windows;

type
  MYPACK = packed record
    Pid: DWORD;
    pString: Pointer;
    key: Array[1..33] of AnsiChar;
  end;
  PMYPACK = ^MYPACK;

const
  DriverName = 'ss';
  Nachricht = 'Nachricht:';

var
  scm,svc: Cardinal;
  PathAndSys:AnsiString;
  status: _SERVICE_STATUS;
  pfool:PAnsiChar = nil;

  f: THandle;
  p:  MYPACK;
  rString: Array[1..250] of AnsiChar;
  cfool: Cardinal;

  eingabe: AnsiString;
begin
  WriteLN('**************************'#13#10+
          '* ESCrackMe v0.1         *'#13#10+
          '* http://www.EvilSoft.de *'#13#10+
          '**************************'#13#10);

  p.Pid := GetCurrentProcessId;
  p.pString := @rString[1];

  scm := OpenSCManager(nil,nil,SC_MANAGER_CREATE_SERVICE);
  if (scm <> 0) then
  begin
    PathAndSys := AnsiString(ExtractFilePath(ParamStr(0))+'ss.sys');

    svc := CreateServiceA(scm,DriverName,DriverName,SERVICE_START or _DELETE or
      SERVICE_STOP,SERVICE_KERNEL_DRIVER,SERVICE_DEMAND_START,
      SERVICE_ERROR_IGNORE,@PathAndSys[1],nil,nil,nil,nil,nil);

    if (svc = 0) then
      svc := OpenServiceA(scm,DriverName,SERVICE_START or _DELETE or SERVICE_STOP);

    if (svc <> 0) then
    begin
      StartServiceA(svc,0,pfool);
      //
      WriteLN('Bitte geben Sie das Passwort ein und bestaetigen Sie mit Enter!'#13#10);
      ZeroMemory(@rString[1],250);
      ZeroMemory(@p.key[1],250);

      ReadLn(eingabe);
      Copymemory(@p.key[1], @eingabe[1], 32);

      f := CreateFile('\\.\CRACKME', GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);
      if (f <> 0) then
      begin
        WriteFile(f, p, SizeOf(MYPACK), cfool, nil);
        CloseHandle(f);
        Sleep(10);
        if rString[1] = #00 then
          MessageBoxA(0, 'Das Passwort ist ungültig!'#13#10,Nachricht,0)
        else
          MessageBoxA(0, @rString[1],Nachricht,0);
      end
      else
        WriteLn('Fehler: Es konnte keine Verbindung zum Sicherheitssystem hergestellt werden!'#13#10);
      //
      ControlService(svc,SERVICE_CONTROL_STOP,status);
      DeleteService(svc);
      CloseServiceHandle(svc);
    end
    else
      WriteLn('Fehler: Sicherheitssystem konnte nicht gestartet werden!'#13#10);

    CloseServiceHandle(scm);
  end
  else
    WriteLn('Fehler: Sicherheitssystem konnte nicht installiert werden!'#13#10);

  WriteLn('Druecken Sie Enter zum beenden!');
  readln;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

strcpy(retText,Text);//Strings laden
        strcpy(retKey,rKey);
        atbash(retText,29);//Ausgabe ENTSCHLÜSSELN!
        atbash(retKey,32);//Key Entschlüsseln

        //DbgPrint("CRACKME: IRP");
        
        if (strcmp(MyPack->Key,retKey) == 0) {//Einfacher vergleich (JNZ)
          KeStackAttachProcess(pe, &ks);
          strcpy(MyPack->String,retText);//Entschlüsselter Text, der nicht vom PW abhängig ist zurückgeben
          KeUnstackDetachProcess(&ks);                    

1:
2:
3:
4:
5:
6:
7:

---------------------------
Error
---------------------------
Runtime error 201 at 0040A278
---------------------------
OK   
---------------------------