C / C++ / MFC

<br />
#include <stdio.h><br />
#include <windows.h><br />
#include <conio.h><br />
#pragma hdrstop<br />
#include <condefs.h><br />
<br />
#define BLOCK_SIZE 32768<br />
<br />
//---------------------------------------------------------------------------<br />
<br />
int memstr(const char *buf, const char *s, size_t size)<br />
{<br />
   int        off;<br />
   const char *s_temp;<br />
<br />
   //return -1;<br />
   if(!buf || !s || !(*s)) return -1;<br />
<br />
   for(off = 0; off < size; off++)<br />
   {<br />
      for(s_temp = s; *s_temp != 0 && *buf == *s_temp; buf++, s_temp++)<br />
      {<br />
         off++;<br />
         if(off >= size) return -1;<br />
      }<br />
      if((*(buf - 1) == *(s_temp - 1)) && *s_temp == 0) return off;<br />
      buf++;<br />
   }<br />
   return -1;<br />
}<br />
<br />
LPSTR findEncryptPass(const char *filename)<br />
{<br />
   FILE   *prot_file;<br />
   char   *buff = 0, *s;<br />
   size_t rc;<br />
   int    off;<br />
<br />
   prot_file = fopen(filename, "rb");<br />
   if(!prot_file) return 0;<br />
   buff = (char *)malloc(BLOCK_SIZE);<br />
   if(!buff) return 0;<br />
   do<br />
   {<br />
      rc = fread(buff, 1, BLOCK_SIZE, prot_file);<br />
      if(!rc) break;<br />
      off = memstr(buff, "DPB=\"", BLOCK_SIZE);<br />
      if(off < 0)<br />
      {<br />
         if(rc < BLOCK_SIZE) break;<br />
         fseek(prot_file, -32, SEEK_CUR);<br />
         continue;<br />
      }<br />
      fseek(prot_file, off - rc, SEEK_CUR);<br />
      rc = fread(buff, 1, BLOCK_SIZE, prot_file);<br />
      if(!rc) break;<br />
      s = strchr(buff, '\"');<br />
      *s = 0;<br />
      return buff;<br />
   } while(!feof(prot_file));<br />
   free(buff);<br />
   return 0;<br />
}<br />
<br />
void decryptPassword(const char *encrypt_pass, char *s)<br />
{<br />
   char str[128], ch;<br />
   char hs[] = { 0, 0, 0 };<br />
   int  v1, v2, i, l;<br />
   int  begin_found = 0;<br />
<br />
   *s = 0;<br />
<br />
   for(i = 0; encrypt_pass[i*2]; i++)<br />
   {<br />
      hs[0] = encrypt_pass[i*2]; hs[1] = encrypt_pass[i*2+1];<br />
      v1 = strtol(hs, 0, 16);<br />
      hs[0] = encrypt_pass[i*2+4]; hs[1] = encrypt_pass[i*2+5];<br />
      v2 = strtol(hs, 0, 16);<br />
      if(!begin_found)<br />
      {<br />
         if(v1 == v2) begin_found = 1;<br />
      }<br />
      else<br />
      {<br />
         if(v1 != v2)<br />
            begin_found = 0;<br />
         else<br />
         {<br />
            i += 3;<br />
            break;<br />
         }<br />
      }<br />
   }<br />
<br />
   if(!begin_found) return;<br />
<br />
   for(ch = 0, l = 0; encrypt_pass[i*2+2]; i++, l++)<br />
   {<br />
      hs[0] = encrypt_pass[(i-2)*2]; hs[1] = encrypt_pass[(i-2)*2+1];<br />
      v1 = strtol(hs, 0, 16);<br />
      hs[0] = encrypt_pass[i*2]; hs[1] = encrypt_pass[i*2+1];<br />
      v2 = strtol(hs, 0, 16);<br />
      ch = (ch + (char)v1) ^ (char)v2;<br />
      str[l] = ch;<br />
   }<br />
   str[l] = 0;<br />
   CharToOem(str, s);<br />
}<br />
<br />
#pragma argsused<br />
int main(int argc, char **argv)<br />
{<br />
   char s[128];<br />
   char *encrypt_pass_str;<br />
<br />
   if(argc < 2)<br />
   {<br />
      printf("Usage: vbakey.exe filename\n");<br />
      return 1;<br />
   }<br />
<br />
   if(!(encrypt_pass_str = findEncryptPass(argv[1])))<br />
   {<br />
      //CharToOem("Ïàðîëü íå íàéäåí\n", s);<br />
      printf("Password not found\n");<br />
      return 1;<br />
   }<br />
<br />
   decryptPassword(encrypt_pass_str, s);<br />
   printf("File password: %s\n", s);<br />
   free(encrypt_pass_str);<br />
   printf("Press any key for continue ... \n");<br />
   getch();<br />
   return 0;<br />
}<br />