[Lazarus] Encryption compatible with .net

[Gabriele Cappelletto]

Il 14/11/2015 18:11, Graeme Geldenhuys ha scritto:
> On 2015-11-14 09:44, Gabriele Cappelletto wrote:
>> the .net DESCryptoServiceProvider.
> Please show how the data was encrypted... The exact code snippet would
> be useful. I could then show you how to use DCPCrypt with the same
> settings to decrypt it.
>
> Without knowing how it was encrypted, there is no way anybody can show
> you code on how to decrypt it.
>
> Regards,
>   - Graeme -
> Ok thanks. We start from the opposite. cryptographer a string with vb.net with the following code, what's the code to decrypt it with DCPCrypt?

Ok thanks. We start from the opposite. cryptographer a string with
vb.net with the following code, what's the code to decrypt it with DCPCrypt?

        Dim Key() As Byte = {}
        Dim IV() As Byte = {1, 2, 3, 4, 5, 6, 7, 8}

        Dim KeyStr As String = "cicciob1"
        Dim vector As String = "12345678"
        Dim inputByteArray(TextBox3.Text.Length) As Byte
        Dim des As New DESCryptoServiceProvider
        'des.Mode = CipherMode.CBC
        'des.Padding = PaddingMode.Zeros
        Key = System.Text.Encoding.UTF8.GetBytes(KeyStr)       
        inputByteArray = Encoding.UTF8.GetBytes(TextBox3.Text)
       
        Dim ms As New MemoryStream
        Dim cs As New CryptoStream(ms, des.CreateEncryptor(Key, IV),
CryptoStreamMode.Write)
        cs.Write(inputByteArray, 0, inputByteArray.Length)
        cs.FlushFinalBlock()

        TextBox4.Text = Convert.ToBase64String(ms.ToArray)