Подскажите по BlowFish

[Pantalone]

Есть класс с BlowFish, только не пойму как он работает, запускаю EncryptString("test", "key") и каждый раз возвращает разное, так и надо? DecryptString вообще фигню какую-то возвращает вместо первоначального текста. Как правильно заюзать?

[AiLEX]

Так и должен разное возвращать

Код: Выделить всё

Dim bf As New clsBlowFish
Dim Ret As String
Ret = bf.EncryptString("Hello", "abcd")
MsgBox bf.DecryptString(Ret, "abcd")


[Pantalone]

А почему так не работает?

Код: Выделить всё

Dim blow As New clsBlowfish

Text2 = blow.EncryptString(Text1, "abcd")
Text3 = blow.DecryptString(Text2, "abcd")

[Pantalone]

И так не пашет чего-то

Код: Выделить всё

Ret = bf.EncryptString("hello", "abcd", True)
MsgBox bf.DecryptString(Ret, "abcd", True)

[Pantalone]

Не пашет хоть ты тресни!

[d3drm]

попробуй вместо

Код: Выделить всё

Option Explicit

написать

Код: Выделить всё

Dear Program Please Work

[AiLEX]

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

[Pantalone]

d3drm
Не смешно.

AiLEX
Не работает и щас скажу почему, я понял.

[Pantalone]

По той же самой причине, по какой не работает RC4 у товарища |kerish| вот тут в первом посте сверху:
http://bbs.vbstreets.ru/viewtopic.php?t ... A&start=30
Проще говоря винда у меня русская, а языковые настройки английские поставил и привет! Уже голову всю изломал что за нафиг такой.

[Pantalone]

Юникод постарался вроде. Никто не пробовал?

[Wild VB Code for Food]

Код: Выделить всё

Public Function DecryptString(Text As String, Optional Key As String, Optional IsTextInHex As Boolean) As String
    Dim byteArray() As Byte
    If IsTextInHex = True Then Text = DeHex(Text)
    byteArray() = StrConv(Text, vbFromUnicode)
    Call DecryptByte(byteArray(), Key)
    DecryptString = StrConv(byteArray(), vbUnicode)
End Function

Код: Выделить всё

Public Function EncryptString(Text As String, Optional Key As String, Optional OutputInHex As Boolean) As String
    Dim byteArray() As Byte
    byteArray() = StrConv(Text, vbFromUnicode)
    Call EncryptByte(byteArray(), Key)
    EncryptString = StrConv(byteArray(), vbUnicode)
    If OutputInHex = True Then EncryptString = EnHex(EncryptString)
End Function

Всётаки Юникод.
Из кода видно, что должно передаватся в юникоде, и возвращяется в юникоде

[Pantalone]

А нельзя без него как-нить обойтись? Всю малину портит.