یه مشکل در باره عدم ساپورت فونت فارسی

[armin001]

سلام
دوستان به این برنامه و کلاسش یه نگاه کنیدیه زمانی از این کلاس برای رمز کردن نوشته استفاده میکردم
روی فونت انگلیسی جواب میده ولی روی فونت فارسی اینجوری میاد (؟؟؟) نمیدونم چه جوری باید نوشته هارو به صورت یونیکد در بیاره
لطفآ اگه ممکنه این کلاسو اصلاح کنید و توضیح بدید
ممنون
96976

[armin001]

دوستان لطفا یه راهنمایی کنین دیگه.
چه جوری تو این کلاس با توجه به کد هاش فونت های یونیکد رو رمز کنم و توی دیکرایپت شدن علامت سوال نبینم

[gilsoft]

دوستان لطفا یه راهنمایی کنین دیگه.
چه جوری تو این کلاس با توجه به کد هاش فونت های یونیکد رو رمز کنم و توی دیکرایپت شدن علامت سوال نبینم

سلام دوست عزیز

اول شما بفرمایید که : ویندوز شما XP هست یا SeVeN ؟

[armin001]

ویندوز من سون هست
ولی میخوام تو هردو اجرا بشه

[swallow.pa]

اگه وين سونه و توي sql server داريد كار مي كنيد بايد collaction برنامه رو به arabic_ci_as تنظيم كنيد

[armin001]

ممنون ولی من از پایگاه داده استفاده نمیکنم.
گفتم که برنامه رو دان کنید.
این کلاس یه متنی رو میگیره اونو رمز میکنه و بصورت رمز شده از نوع استرینگ برمیگردونه وقتی که دیکرایپت میشه همه حروف فارسی یا یونیکد رو ایطوری میاره(؟؟؟)

[armin001]

دوستان واقعا کسی نمیتونه کمک کنه؟؟

[armin001]

دوستان یکی کمک کنه

[gilsoft]

دوستان یکی کمک کنه

سلام دوست عزیز

برای شما امکان داره که : یه نمونه از کد برنامه ات رو بذاری ؟

اگه اینکا رو انجام بدی .. خیلی سریع به جواب میرسی ...

[armin001]

برای شما امکان داره که : یه نمونه از کد برنامه ات رو بذاری ؟

اگه اینکا رو انجام بدی .. خیلی سریع به جواب میرسی ...

توی تاپیک اول که گذاشتم ولی کسی توجهی نکرد


97080گفتم که دانلود کنید
اگه حوصله دانلود کردن ندارید (منظور وقته) بگید اینجا بذارم ولی طولانیه

[gilsoft]

سلام دوست عزیز

ببخشید .. خطای دید بوجود اومد .. آخرین سطر رو ندیم :چشمک: :خجالت:

اون کلاس (منظور کلاس قبلی هست) رو بیخیال شو و از کلاس و کد زیر استفاده کن :

این برنامه ProgressBar نداره .. اما اگه دوس داری داشته باشه .. اونم قابل حله ...

موفق باشید

[gilsoft]

اینم سورس کد جهت استفاده دوستان :


ابتدا کلاس Protector :
Public Class Protector

Private Function FindCode(ByVal key As Byte()) As Int64

Dim InputString As String = ""
For k As Integer = 0 To key.Length - 1
InputString &= ChrW(key(k))
Next
Dim temp As Int64 = 0
For i As Integer = 0 To InputString.Length - 1
temp += System.Convert.ToInt64(InputString(i))
Next
FindCode = temp
End Function

Public Function ToEncrypt(ByVal InputString As String, ByVal Key As Byte()) As String

Dim temp As String = ""
Dim code As Int64 = FindCode(Key)
For i As Integer = 0 To InputString.Length - 1
temp += Convert.ToChar(Convert.ToInt64(InputString(i)) + code)
Next
ToEncrypt = temp
End Function

Public Function ToDecrypt(ByVal InputString As String, ByVal Key As Byte()) As String

Dim temp As String = ""
Dim code As Int64 = FindCode(Key)
For i As Integer = 0 To InputString.Length - 1
temp += Convert.ToChar(Convert.ToInt64(InputString(i)) - code)
Next
ToDecrypt = temp
End Function

End Class

اینم نحوه ی استفاده از کلاس Protector :
Public Class Form1

Dim key As Byte() = {6, 15, 12, 162, 231, 4, 15, 28, 59, 26, 255, 236, 158, 199, 142, 102, 2, 156, 184, 175, 169, 152, 196, 185}

Private Sub btnEnc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnc.Click

Dim Protect As New Protector
txtEnc.Text = Protect.ToEncrypt(txtText.Text, key)
End Sub

Private Sub btnDec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDec.Click

Dim Protect As New Protector
txtDec.Text = Protect.ToDecrypt(txtEnc.Text, key)
End Sub
End Class

موفق باشید

[armin001]

واقعا ممنون
ولی این تمامی کاراکتر ها رو با یک کلید مشابه رمز میکنه مثلا از کلید های {2,21,100} کلید 123 رو میسازه همه رو با اون رمز میکنه ولی من میخواستم مثل کد قبلیم کاراکتر ها با کلید مثل هم رمز نشن توی اون کلاس قبلی کاراکتر (a) یه جا (j) یجا (l) بود در ضمن کلید دوم رو از توی متن استخراج میکرد اما توی این کلاس کاراکتر (a) همه جا (") هستش.

[armin001]

سلام
لطفا یکی کمک کنه
یعنی اینقدر سخته یا سوالو جای درستی مطرح نکردم؟
سرچم کردم نبود این تالارو زیرو رو کردم نبود
دیگه باید چیکار میکردم که نکردم!؟