[TOOL] Metin2 File Extractor + Source

€dit: Code removed!

Dim d As UInteger = Convert.ToInt32(ta.Text.Substring(0, 8), 16)
        Dim c As UInteger = Convert.ToInt32(ta.Text.Substring(8, 8), 16)

        'For eix
        Dim mtKey() As Byte = New Byte() {&HB9, &H9E, &HB0, &H2, &H6F, &H69, &H81, &H5, &H63, &H98, &H9B, &H28, &H79, &H18, &H1A, &H0, _
                                          &H22, &HB8, &HB4, &H4, &H64, &HB2, &H6E, &H1F, &HAE, &HEA, &H18, &H0, &HA6, &HF6, &HFB, &H1C}
        'For item_proto
        Dim mtKey3() As Byte = New Byte() {&HA1, &HA4, &H2, &H0, &HAA, &H15, &H54, &H4, &HE7, &H8B, &H5A, &H18, &HAB, &HD6, &HAA, &H1}

        '解Item_Proto的Key  A1 A4 02 00 AA 15 54 04 E7 8B 5A 18 AB D6 AA 01
        '所有KEY
        'B9 9E B0 02 6F 69 81 05 63 98 9B 28 79 18 1A 00 
        '22 B8 B4 04 64 B2 6E 1F AE EA 18 00 A6 F6 FB 1C
        'A1 A4 02 00 AA 15 54 04 E7 8B 5A 18 AB D6 AA 01



        Dim a As UInteger = &HC6EF3720
        Dim b As UInteger, p As UInteger


        For i As Integer = 0 To 31
            c = c - ((((d >> 5) Xor (d << 4)) + d) Xor (BitConverter.ToUInt32(mtKey3, ((a >> &HB) And 3) * 4) + a))
            a = a + &H61C88647

            d = d - ((((c >> 5) Xor (c << 4)) + c) Xor (BitConverter.ToUInt32(mtKey3, (a And 3) * 4) + a))

        Next

	const char* sampleData = "Hello World!";
	uint8_t* cryptedBuffer = new uint8_t[1024];
	uint8_t* unencryptedBuffer = new uint8_t[1024];

	uint32_t cryptedSize = LZObject::LZEncryptFile((unsigned long*)cryptedBuffer, (unsigned long*)sampleData, LZObject::EPK_KEY, strlen(sampleData));

	LZObject::LZDecryptFile((unsigned long*)unencryptedBuffer, (unsigned long*)cryptedBuffer, LZObject::EPK_KEY, cryptedSize);

	printf("Is Ok = %s\n", (const char*)unencryptedBuffer);