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

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

من ميخوام با كد زير متنم رو به رمز تيديك كنم.ولي وقتي روي دكمه ي 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

---

موفق باشید.