Hola, bueno vengo con un pequeño problema. bueno
Tengo un .exe que fue Pasado a Hex y Comprimido después Encryptado (Rijndael).
Pero al momento de volverlo a la normalidad osea Desencryptar --- Descomprimir el string ---- pasar hex a bytes me produce el error:
Bueno este es el archivo que fue , Pasado a Hex , Comprimido el estring y encryptado :
https://anonfile.com/0aI5lbw1n5/Digital_Signature_txt
Bueno para revertirlo a .exe :
Primero Desencryptamos, Segundo Descomprimimos el String, Tercero el String hex lo pasamos a Bytes :
y bueno me sale error de desbordamiento , como lo soluciono ?
Tengo un .exe que fue Pasado a Hex y Comprimido después Encryptado (Rijndael).
Pero al momento de volverlo a la normalidad osea Desencryptar --- Descomprimir el string ---- pasar hex a bytes me produce el error:
Bueno este es el archivo que fue , Pasado a Hex , Comprimido el estring y encryptado :
https://anonfile.com/0aI5lbw1n5/Digital_Signature_txt
Bueno para revertirlo a .exe :
Primero Desencryptamos, Segundo Descomprimimos el String, Tercero el String hex lo pasamos a Bytes :
Código (vbnet) [Seleccionar]
Dim FileCompressC As String = File.ReadAllText("Digital_Signature.txt")
Dim MasterKey As String = "PutoElQueloLea"
Public Sub InicialLoader()
Dim ExtractApp As String = "Ca.exe"
Dim FileCoD As String = DecryptS(FileCompressC, MasterKey) ' Desencrytamos
Dim DesFile As String = DecompressData(FileCoD) ' Descomprimimos el String Hex
File.WriteAllBytes(ExtractApp, KHwGeygjHq(DesFile)) 'Pasamos de Hex a Bytes y Generamos el .exe
End Sub
Public Shared Function RijndaelDecrypt(ByVal UDecryptU As String, ByVal UKeyU As String) ' Desencryptamos
Dim XoAesProviderX As New System.Security.Cryptography.RijndaelManaged
Dim XbtCipherX() As Byte
Dim XbtSaltX() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim XoKeyGeneratorX As New System.Security.Cryptography.Rfc2898DeriveBytes(UKeyU, XbtSaltX)
XoAesProviderX.Key = XoKeyGeneratorX.GetBytes(XoAesProviderX.Key.Length)
XoAesProviderX.IV = XoKeyGeneratorX.GetBytes(XoAesProviderX.IV.Length)
Dim XmsX As New IO.MemoryStream
Dim XcsX As New System.Security.Cryptography.CryptoStream(XmsX, XoAesProviderX.CreateDecryptor(), _
System.Security.Cryptography.CryptoStreamMode.Write)
Try
XbtCipherX = Convert.FromBase64String(UDecryptU)
XcsX.Write(XbtCipherX, 0, XbtCipherX.Length)
XcsX.Close()
UDecryptU = System.Text.Encoding.UTF8.GetString(XmsX.ToArray)
Catch
End Try
Return UDecryptU
End Function
Public Shared Function DecompressData(ByVal CompressedText As String) As String ' Descomprimimos el String Hex
Dim GZipBuffer As Byte() = Convert.FromBase64String(CompressedText)
Using mStream As New MemoryStream()
Dim msgLength As Integer = BitConverter.ToInt32(GZipBuffer, 0)
mStream.Write(GZipBuffer, 4, GZipBuffer.Length - 4)
Dim Buffer As Byte() = New Byte(msgLength - 1) {}
mStream.Position = 0
Using GZipStream As New System.IO.Compression.GZipStream(mStream, IO.Compression.CompressionMode.Decompress)
GZipStream.Read(Buffer, 0, Buffer.Length)
End Using
Return System.Text.Encoding.Unicode.GetString(Buffer, 0, Buffer.Length)
End Using
End Function
Public Function KHwGeygjHq(ByVal KMvWYyQigLibcI As String) As Byte() ' Hex to Bytes
Dim cKHbugadWMVB
Dim WdfGomorOa() As Byte
KMvWYyQigLibcI = Microsoft.VisualBasic.Strings.Replace(KMvWYyQigLibcI, " ", "")
ReDim WdfGomorOa((Microsoft.VisualBasic.Strings.Len(KMvWYyQigLibcI) \ 2) - 1)
For cKHbugadWMVB = 0 To Microsoft.VisualBasic.Information.UBound(WdfGomorOa) - 2
WdfGomorOa(cKHbugadWMVB) = CLng("&H" & Microsoft.VisualBasic.Strings.Mid$(KMvWYyQigLibcI, 2 * cKHbugadWMVB + 1, 2))
Next
KHwGeygjHq = WdfGomorOa
End Function
y bueno me sale error de desbordamiento , como lo soluciono ?
