vb.net - Vb.NET .DLL をアプリにパックして任意のフォルダーにコピーする方法 (パッチャーやクラッカー アプリなど)

Question

vb.netでパッチャーやクラッカーアプリに似たアプリケーションを作ることは可能ですか? 私がコピーして古いものを置き換えた秘密の .dll を他の人に見られたくないので、1 つの .exe アプリにする必要があります。

私の悪い英語でごめんなさい:)ありがとう

Answer 1

バイナリ バイト配列を文字列に変換して戻す方法。この例は特に JPG 画像で動作しますが、わずかな作業で DLL/ファイルに変換できるはずです。

Private Function BitmapToString(ByVal BM As Image) As String
    Dim MS As New IO.MemoryStream
    System.Windows.Forms.Application.DoEvents()
    BM.Save(MS, System.Drawing.Imaging.ImageFormat.Jpeg)
    System.Windows.Forms.Application.DoEvents()

    Dim ba As Byte() = MS.ToArray
    System.Windows.Forms.Application.DoEvents()
    'ba = CompressBytes(ba)

    Dim sb As New System.Text.StringBuilder("")
    System.Windows.Forms.Application.DoEvents()
    sb.Append(ba(0))
    System.Windows.Forms.Application.DoEvents()
    For i As Integer = 1 To ba.Length - 1
        Select Case ba(i).ToString.Length
            Case 1
                sb.Append("  " & ba(i))
            Case 2
                sb.Append(" " & ba(i))
            Case 3
                sb.Append(ba(i))
            Case Else
                Stop
        End Select
        System.Windows.Forms.Application.DoEvents()
    Next
    Return sb.ToString
End Function
Private Function StringToBitmap(ByVal sString As String) As Image
    Dim aList As New ArrayList

    If sString.Length Mod 3 = 0 Then
        For i As Integer = 0 To sString.Length - 1 Step 3
            aList.Add(CByte(sString.Substring(i, 3)))
        Next
        Dim ba As Byte()
        ba = aList.ToArray(GetType(Byte))
        'ba = DecompressBytes(ba)
        Dim MS As New IO.MemoryStream(ba)

        Return New Bitmap(MS)
    Else
        Return Nothing
    End If
End Function

注: CompressBytes() と DecompressBytes() は私自身の関数です。これが機能するために必要ありません。