[Vayrus]

Привет, встала задача по извлечению строковых констант из исполняемых файлов, на пути встретились исходники плагина для PEID, который прекрасно делает то что мне нужно, но попытки переписать сие чудо на Delphi не увенчались успехом, возможно кто то лучше разбирается в переводе проектов с одного языка на другой? Если да, то сурсы ниже, буду очень благодарен.

STRING VIEWER SRC

Больше всего интересует правильный перевод данной части:

Код:

int FindStrings( HWND hDlg, HANDLE hFile, DWORD dwSize, char *cFileData )
{
    // Read file contents into the allocated memory
    DWORD dwBytesRead;

    BOOL iResult = ReadFile( hFile, cFileData, dwSize, &dwBytesRead, 0 );
    if ( !iResult )  return 4;

    // Tell system we finished reading
    CloseHandle( hFile );

    // ...And here is the algo
    long int iFileByte = dwSize;
    char cAddress[9];
    char *cpFileByte;

    for ( ; iFileByte > 0; --iFileByte )
    {    // Loop for each byte in the file
        if ( cFileData[iFileByte] == '\0' && isalnum(cFileData[iFileByte-1]) )
        {    // If a string was found...
            cpFileByte = cFileData + iFileByte - 1;
            while ( isalnum(cpFileByte[0]) || cpFileByte[0] == ' ' )
            {
                if ( cpFileByte[-1] == '\0' && isalnum(cpFileByte[-2]) )  cpFileByte[-1] = ' ';
                cpFileByte -= 1;
            }

            ++cpFileByte;
            if ( isalnum(cpFileByte[0]) || cpFileByte[0] == ' ' )  ++cpFileByte;
            if ( strlen(cpFileByte) >= iMinLength )
            {
                --cpFileByte;
                sprintf( cAddress, "%08X", iFileByte );
                AddString( hDlg, cAddress, cpFileByte );
            }
            iFileByte -= (int)strlen(cpFileByte);
        }
    }

    return 0;
}

[AlexSku]

Если коротко, то просматриваются все байты файла, начиная с конца. Ищутся строки ASCIIZ, т.к. в конце такой строки код '\0'. Функция isalnum говорит, что текущий символ буква или цифра. Но с Си переводить неохота.
Да, '\0' это си-шная запись, естественно, в памяти нуль.

[Vayrus]

Сообщение от AlexSku

Если коротко, то просматриваются все байты файла, начиная с конца. Ищутся строки ASCIIZ, т.к. в конце такой строки код '\0'. Функция isalnum говорит, что текущий символ буква или цифра. Но с Си переводить неохота.
Да, '\0' это си-шная запись, естественно, в памяти нуль.

Ну про байты, строки и функции я и сам догадывался конечно, жаль что тебе перевести лень