Не особо понимаю в данном вопросе..
Мне необходимо определить тип шифрования пароля в программе mRemote

В программе есть возможность вписать несколько паролей и сохранить в xml, где вместо пароля стоит хэш, но ручками очень мучительно долго, т.к. необходимы хэши не малого кол-ва паролей.

примеры: (пароль=хэш)
123=WSuaAN0Z4J4kdtJa9giiU63Wji2b0bkdXu81VmXOCUA=
good=2P4Oo4kY/2M41l+kNCsTZVNupoUaLB8bGYNMrFmmwVI=
mac=jM1PDZbCXn5uFrmMWZV62qnMuQCHOkXVeB5Kec9UpgQ=

Есть ли у кого какие нибудь соображения?)

| Сообщение посчитали полезным:

Софт надо смотреть, а не гадать по входу-выходу, уже 33 раза это писали на форуме.

| Сообщение посчитали полезным:

vertex
эта что ль? http://www.mremote.org/wiki/Downloads.ashx
так там даже какие то исходники есть, качайте изучайте

| Сообщение посчитали полезным:

reversecode, не шарю в этом вопросе, поэтому и прошу помощи

| Сообщение посчитали полезным:

Из сорцев:

Crypt.Decrypt(.Attributes("Password").Value, "mR3m")


Public Shared Function Decrypt(ByVal StrToDecrypt As String, ByVal StrSecret As String)
Utils.LogTrace()

If StrToDecrypt = "" Or StrSecret = "" Then
Return StrToDecrypt
End If

Dim rd As New RijndaelManaged
Dim rijndaelIvLength As Integer = 16
Dim md5 As New MD5CryptoServiceProvider
Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(StrSecret))

md5.Clear()

Dim encdata() As Byte = Convert.FromBase64String(StrToDecrypt)
Dim ms As New MemoryStream(encdata)
Dim iv(15) As Byte

ms.Read(iv, 0, rijndaelIvLength)
rd.IV = iv
rd.Key = key

Dim cs As New CryptoStream(ms, rd.CreateDecryptor, CryptoStreamMode.Read)

Dim data(ms.Length - rijndaelIvLength) As Byte
Dim i As Integer = cs.Read(data, 0, data.Length)

cs.Close()
rd.Clear()
Return System.Text.Encoding.UTF8.GetString(data, 0, i)
End Function


Если совсем лень, то вот: http://www.sendspace.com/file/u193sj

| Сообщение посчитали полезным:

Раз не шаришь, тема закрыта за нарушение п.3 правил форума.

| Сообщение посчитали полезным: