لشكال در كد تبديل متن به رمز

سلام خدمت اساتيد.

من ميخوام با كد زير متنم رو به رمز تيديك كنم.ولي وقتي روي دكمه ي BtnPass كليك ميكنم برنامه به خط

کد:

---



Frm1.TxtMain.Text += CodeTXT(Frm1.TxtMain.Text.Substring(i, 1))


---

گير ميده و خطاي :

کد:

---

Conversion from string "" to type 'Double' is not valid.

---

رو ميده.

كد اصلي برنامه هم اينه :

کد:

---

PublicClass Frm2

Dim Password AsLong
PrivateSub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPass.Click
If BtnPass.Text = "Encrypt"AndAlso IsNumeric(TxtPass.Text) = TrueThen
Dim i AsShort
Password = TxtPass.Text
For i = 0 To Frm1.TxtMain.Text.Length - 1
Frm1.TxtMain.Text += CodeTXT(Frm1.TxtMain.Text.Substring(i, 1))
Next
EndIf

EndSub
Function CodeTXT(ByVal Letter AsChar) AsLong
Return Asc(Letter) Xor Password
EndFunction
PrivateSub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click
Me.Close()
EndSub

 

EndClass

---

به نظز شما اشكال اين كد چيه؟

چرا در تبديل متغير ها مشكل ايجاد ميشه؟

يا حق.

تا جايي كه من ميدونم xor بين دو تا عملوند از نوع عددي به كار برده ميشه ولي شما دارين روي رشته ها انجام ميدين
بايد روي هر كاراكتر از رشته اين عمليات رو انجام بدين

دوست عزيز:

عملوند هاي Xor توي اين كد يك password هست كه عددي حساب ميشه.يكي هم Asc(letter) هست كه كاراكتر letter رو

به عدد اسكيش تبديل ميكنه.

در نتيجه تا عملوند عدد هستند.

كسي نميدونه مشكل از كجاست؟

من نمی فهمم که این قراره چی کار کنه:

کد:

---

Return Asc(Letter) Xor Password

---

نقل قول:

---

نوشته شده توسط dogtag [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

من نمی فهمم که این قراره چی کار کنه:

کد:

---

Return Asc(Letter) Xor Password

---

---

فکر کنم شما .net کار نکرددی.

این کد قراره جواب Acs(letter) Xor password رو به روال فراخوانی کننده بفرسته.این یه فانکشنه که جواب رو

با کلمه ی کلیدی Return برمیگزردونه.letter هم که Argument فانکشن هست.

سلام
اولاً دات نت خودش کلاسسهای قوی ای برای رمزگذاری دارد.
دوماً با این رمز نگاری ساده تک کاراکتری شما فقط میتوانید اعداد Short یا UShort را پوشش دهید نه Long که چهار برابر بزرگتر است.
سوماً دستورات تان هم چندان قانون مند و بی غلط نیست که فعلاً فاکتور میگیریم، که نگید گیر میدم.!

چیزی که شما میخواهید این تابع است.
(متن خروجی لزوماً خوانا نیست.)

کد:

---

Private Function Encode(ByVal txt As String, ByVal Password As UShort) As String
    If (String.IsNullOrEmpty(txt)) OrElse (Password <= 0) Then Return Nothing
 
    Dim ret As New System.Text.StringBuilder(txt.Length)
 
    For Each c As Char In txt
        ret.Append(ChrW(AscW(c) Xor Password))
    Next
 
    Return ret.ToString
End Function
 
 
'...
'...
 
Dim newstr As String = Me.Encode(Me.TxtMain.Text, CUShort(Me.TxtPass.Text))

---

اونقدر .net کار نکردم که همه اش رو بدونم ولی 1 کم ور رفتم
تو PHP که حداقل اینجوریه:
return condition
یا true بر می گردونه یا false

مال شما هم حالت شرط داره. نه؟

اگر این و اون نبود، true
غلط می گم؟

میشه نبودن ASC یه چیزی رو برام توضیح بدی؟ خب هرچیزی که بدی توش بالاخره یه ASCی برمیگردونه

سلام مجدد.

نقل قول:

---

نوشته شده توسط dogtag [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اونقدر .net کار نکردم که همه اش رو بدونم ولی 1 کم ور رفتم
تو PHP که حداقل اینجوریه:
return condition
یا true بر می گردونه یا false

مال شما هم حالت شرط داره. نه؟

اگر این و اون نبود، true
غلط می گم؟

میشه نبودن ASC یه چیزی رو برام توضیح بدی؟ خب هرچیزی که بدی توش بالاخره یه ASCی برمیگردونه

---

تابع Asc معادل عددی یک کاراکتر را پس میدهد.
مثلاً معادل عددی کاراکتر A عدد 65 است و معادل عددی کاراکتر Z عدد 90 است.
پس خروجی یک عدد است.

متغییر Password هم در کد این دوست عزیز یک عدد است.

در اینجا Xor دیگر یک اپراتور بولی و شرطی نیست و یک عددی رفتار میکند مثل آنکه بنویسیم Return a+b یا Return Asc(Letter) + Password
یعنی بود و نبودی در کار نیست، بحث True و False نیست

(ولی اگر هم می بود طبیعتاً اعداد غیر صفر به True و عدد صفر به False تعبیر میشد و لزوم اپراتور مقایسه ای را که شما دنبالش هستید رفع میکرد)

پیشنهاد میکنم به تاپیک زیر هم نگاهی بیاندازید.
forum.p30world.com/showthread.php?t=243883

ضمناً خصوصیت جالب اپراتور Xor آن است که بازگشت پذیر است مثل ضرب در منفی یک که اگر دوبار تکرار شود به عدد اول میرسد.

نقل قول:

---

تابع Asc معادل عددی یک کاراکتر را پس میدهد.
مثلاً معادل عددی کاراکتر A عدد 65 است و معادل عددی کاراکتر Z عدد 90 است.
پس خروجی یک عدد است.

---

این رو می دونستم، ما به جاش تابع ord داریم

نقل قول:

---

در اینجا Xor دیگر یک اپراتور بولی و شرطی نیست و یک عددی رفتار میکند مثل آنکه بنویسیم Return a+b یا Return Asc(Letter) + Password
یعنی بود و نبودی در کار نیست، بحث True و False نیست

---

اصل مشکل همینجاست.
من نمی دونم که این چی کار می کنه.
خب اگر بولی نیست، پس چیست؟

نقل قول:

---

(ولی اگر هم می بود طبیعتاً اعداد غیر صفر به True و عدد صفر به False تعبیر میشد و لزوم اپراتور مقایسه ای را که شما دنبالش هستید رفع میکرد)

---

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


ممنون از بابت لینک

سلام

نقل قول:

---

نوشته شده توسط dogtag [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اصل مشکل همینجاست.
من نمی دونم که این چی کار می کنه.
خب اگر بولی نیست، پس چیست؟

---

یک سری از مبانی در کلیه زبانها مشترک است مثل همانها که فرمودید، البته این یکی هم جزء مشترکات است.
ولی در کل من شرط میبندیم، قبل از اینکه به توصیه ام عمل کنید، این پست را داده اید! :31::11:

نقل قول:

---

پیشنهاد میکنم به تاپیک زیر هم نگاهی بیاندازید.
forum.p30world.com/showthread.php?t=243883

---

موفق باشید.

تاپیک عالیی بود، کاملاً فهمیدم.
مرسی

نقل قول:

---

اولاً دات نت خودش کلاسسهای قوی ای برای رمزگذاری دارد.

---

منم میخوام.!!! توضیح توضیح توضیح.چرا زودتر نگفتی؟میشه یه لینک یه چیزی بدی یا خودت توضیح بدی؟خیلی دوست دارم با

این کلاس ها اشنا بشم.

نقل قول:

---

دوماً با این رمز نگاری ساده تک کاراکتری شما فقط میتوانید اعداد Short یا UShort را پوشش دهید نه Long که چهار برابر بزرگتر است.

---

ما توی همین سادش موندیم.راستی منظورت از اینکه فقط اعداد Short پوشش میگیره چیه؟و Ushort Date Type دیگه چیه؟

چرا هیچ کس توجهی نداره؟

سلام

نقل قول:

---

نوشته شده توسط sltavakoli [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

منم میخوام.!!! توضیح توضیح توضیح.چرا زودتر نگفتی؟میشه یه لینک یه چیزی بدی یا خودت توضیح بدی؟خیلی دوست دارم با

---

چشم، دفعه بعد که لوگین شدم یک نمونه برایتان میگذارم، ولی برای اطلاعات جامع و کامل باید به msdn مراجعه کنید.

نقل قول:

---

نوشته شده توسط sltavakoli [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

.راستی منظورت از اینکه فقط اعداد Short پوشش میگیره چیه؟و Ushort Date Type دیگه چیه؟

---

اعداد Short اعداد 16 بیتی هستند (معادل Integer در VB6).
نوع UShort صرفاً مختص اعداد بدون علامت است (مثبت) و از رنج 0 تا 65535 را پوشش میدهد، در حالی که Short رنج 32768- تا 32767 را دارد.
UInteger و ULong و SByte هم همین تشابهات را با انواع معمولی دارند.

چون مجموعه یونیکد برای هر کاراکتر 16 بیت (دو بایت) را در نظر میگرد، با طریقه رمز نگاری ساده فوق، شما فقط میتوانید حداکثر 65536 عدد مختلف را پوشش دهید، که دقیقاً معادل رنج پذیرش UShort است.

و اگر از اعداد بزرگتری مثل Integer یا Long استفاده کنید، اگر به خطا نخورد، همه بیتهای بالارتبه 16 بیت اول حذف میشود، انگار که وجود ندارند. یعنی باز میشود UShort.

نقل قول:

---

نوشته شده توسط sltavakoli [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

چرا هیچ کس توجهی نداره؟

---

متاسفانه، تعداد پستهای این تالار، داره کمی بیشتر از وقت آزاد من میشه!!! و دیگه بعید میدونم بتونم مثل قبل جواب گوی دوستان باشم، احتمالاً باید چند تاپیک را شانسی انتخواب کنم. ! :11::11::11:
انشا ا... اساتید و دوستان دیگر که برخی تاپیک ها را جواب میدهد، برخی دیگر را هم مرحمت کنند!

باشه.پس مثال رو یادت نره.

راستی لینکش رو توی Msdn لطف کن.

یا حق.

سلام
رمز نگاری با الگوریتم DES و...
(رمز نگاری DES تنها یکی از انواع بسیار متنوع الگوریتم های مشهور جهانی است که به ذات در دات نت وجود دارند.)

کد:

---

Dim txt_1 As String = "Microsoft Visual Basic.Net 2008."
Dim txt_2 As String
Dim cryptodata() As Byte
Dim k_iv() As Byte = {110, 2, 40, 7, 58, 14, 114, 5}
Dim k_key() As Byte = {255, 110, 78, 3, 0, 12, 124, 1}
 
Dim key As New System.Security.Cryptography.DESCryptoServiceProvider
key.IV = k_iv
key.Key = k_key
 
cryptodata = StringEncrypt(txt_1, key.CreateEncryptor)
 
'...
'cryptodata = DES-Cryptography-Algorithm
'...
 
txt_2 = StringDecrypt(cryptodata, key.CreateDecryptor)
 
If (txt_1 = txt_2) Then Stop Else Stop
 
'...
'...
'...
'...
'...
 
Public Shared Function StringEncrypt(ByVal txt As String, ByVal key As System.Security.Cryptography.ICryptoTransform) As Byte()
    Using _
        memoutput As New System.IO.MemoryStream, _
        cstrm As New System.Security.Cryptography.CryptoStream(memoutput, key, System.Security.Cryptography.CryptoStreamMode.Write), _
        writer As New System.IO.StreamWriter(cstrm)
 
        writer.Write(txt)
        writer.Close()
        cstrm.Close()
        Return memoutput.ToArray
    End Using
End Function
 
 
Public Shared Function StringDecrypt(ByVal cryptodata() As Byte, ByVal key As System.Security.Cryptography.ICryptoTransform) As String
    Using _
        meminput As New System.IO.MemoryStream(cryptodata), _
        cstrm As New System.Security.Cryptography.CryptoStream(meminput, key, System.Security.Cryptography.CryptoStreamMode.Read), _
        reader As New System.IO.StreamReader(cstrm)
 
        Return reader.ReadToEnd
    End Using
End Function

---

نقل قول:

---

نوشته شده توسط sltavakoli [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

راستی لینکش رو توی Msdn لطف کن.

---

اگر منظورتان برنامه msdn است، که لینک نمیخواهد، کافیست System.Security.Cryptography را در کادر متنی Look for وارد کنید، تا لیست کلاسسها و اعضا را مشاهده کنید.
اگر هم منظورتان سایت msdn است که باز با یک جستجوی فسقلی پیدا میشود. !
msdn.microsoft.com/en-us/library/system.security.cryptography.aspx

این کد نگاری امروزه بسیار کاربرد دارد ولی توضیحات بکارگیری آن چقدر کم است؟ من به دنبالشم اگر مطلب بهتری پیدا کردید لطفا قرار دهید

سلام

نقل قول:

---

توضیحات بکارگیری آن چقدر کم است؟

---

ضمن تبریک عضویت شما ...

مطلب در حد کافی قرار دارد و چگونگی انجام کار را نشان داده.
میتوانید همین را عملا انجام دهید، طبیعتاً در عمل تسلط بیشتری پیدا میکنید، ضمن آنکه کد بسیار ساده ، کوتاه و واضح است و از سینتکس استانداردی پیروی میکند، یکم دقت و فکر کنیدف متوجه خواهید شد.

متاسفانه و با شرمندگی، فرصت کافی برای شرح و بست و توضیح و شرایط دیگر ندارم.
ولی اگر سوال و مشکل مشخصی مطرح کنید، چون بحث سر نقطه کوچکی متمرکز میشود، راحت تر و با حجم تایپ کمتری میتوان مسئله را با هم و دو طرفه حلش کنیم.

موفق باشید.