درخواست آموزش

[Tender]

سلام دوستان
می خواستم بدونم:

1.انکریپت و دیکریپت چی هست؟

2.واسه چه کاری استفاده میشه؟

3.چجوری نوشته میشه؟

ممنون

[dreamvbfox]

سلام دوستان
می خواستم بدونم:

1.انکریپت و دیکریپت چی هست؟

2.واسه چه کاری استفاده میشه؟

3.چجوری نوشته میشه؟

ممنون

سلام
كاري نداره كه!!!! مثلا ميخواي يه رشته اي رو فقط خودت بتوني بخوني و ازش استفاده كني پس بايد اونو كد كني مثلا يه الگريتمي طراحي كني كه بايد يه رشته رو بگيره و مثلا يكي كد اسكي اون اضافه كنه . بعدش هروقت بخواي اونو بخوني بايد يكي ازش كم كني. !!!!
نوشتن : encrypt به معني كد كردن ، محافظت كردن و decrypt به معني كشف كردن رمز.
يه مثال ضميمه ميكنم تا بهتر متوجه بشي .
خدانگهدار

[Tender]

ممنون عزیز

ولی هنوز کامل متوجه نشدم که روال این برنامه که گذاشتی چجوریه البته مطمئناً برنامه ی شما درسته فقط من متوجه نمیشم اگه میشه واسه ی همین برنامه داخلش توضیحات بزاری ممنون میشم

[dreamvbfox]

ممنون عزیز

ولی هنوز کامل متوجه نشدم که روال این برنامه که گذاشتی چجوریه البته مطمئناً برنامه ی شما درسته فقط من متوجه نمیشم اگه میشه واسه ی همین برنامه داخلش توضیحات بزاری ممنون میشم

سلام عزيزم.
اين كه واضحه!!!!!!!!!!!!!!!!!!!!!!!!!!!!
بزار من توجيه كنمت ! نگاه كن مثلا برنامه ي شما يه فرمي داره كه مخصوص ورود اعضا هست !!! شما يوزر و پسورد هر كاربر رو كجا ذخيره ميكني؟؟ خوب معلومه يا تو يه فايل يه تو يك پايگاه داده. !!! به نظر شما يكي نميتونه از راه بياد و اين فايل رو بخونه و پسورد رو در بياره ؟؟ آره ميتونه چرا ؟ چونكه چ چسبيده به را !!! معلومه ديگه چون پسورد ها ضايع نوشته شدن. واسه اين كار ما ميايم يه الگريتمي طراحي ميكنيم تا بياد پسورد ما رو كد كنه.
به اين كدها نگاه كن :

کد:

Private Function Coding(Mytext As String) As String
    l = Len(Mytext)
    For i = 1 To l
        t = Mid(Mytext, i, 1)
        c = Asc(t)
        Randomize Timer
        code = code + Chr(c + 10) & Int(Rnd * (9))
Next i
Coding = code
End Function

اول مياد طول رشته رو ميريزه تو متغير L بعد با يه حلقه يكي يكي كاراكتر ها رو ميكشه بيرون و ميريزه تو متغير T بعد اسكي كاراكتر فعلي رو ميريزه تو متغير C و بعد يه عدد تصادفي بين 0 تا 9 ايجاد ميكنه + 10 + اسكي كاراكتر فعلي ميكنه !!! من اين روش رو النتخاب كردم . البته خيلي ساده هست كرك كردن اين مثل آب خوردن هست !!!!
الان شما پسورد ها رو با استفاده از اين تابع كد كردي !!! خوب به نظرت چه جوري پسورد اصلي رو پيدا كني؟ كاري نداره بازم مياي يكي يكي كاراكتر ميخوني 10 تا ازش كم مكني و كاراكتر بعدي كه سركاري هست رو نميخوني (اون 0 تا 9 همين جوري يه در ميون ميچيندم) بعد چك ميكني ميبيني درسته يا نه !!!

فك نكنم كسي بتونه واضح تر توضيح بده
موفق باشيد

[Tender]

ممنون الان متوجه شدم منظورت چیه عزیز این روال میتونه هرچی باشه آره؟
میشه چند نمونه مثال بزنی؟اگه بشه مثال بزنی خیلی ممنون میشم

[dreamvbfox]

ممنون الان متوجه شدم منظورت چیه عزیز این روال میتونه هرچی باشه آره؟
میشه چند نمونه مثال بزنی؟اگه بشه مثال بزنی خیلی ممنون میشم

بله اين ميتونه همه نوعيش باشه !!! مثال كه زياد ميشه زد !!!
يكي ميگم خودت برو بنويس‌!!!‌يه برنامه بنويس كه رشته اي رو از ورودي بگيره بعد كد كنه ! روش كد : اگر عدد زوج بود 2 تا بهشون اضافه كنيد اگر فرد بود يكي به باقي ماندش بر 2 اضافه كنه !!! اگر حروف بود يك كاراكتر تصادفي بهش بچسبونه و خودش هم 2 تا به كاراكتر بزرگش اضافه كنه !!!
بهتر از اين ميشه ؟؟؟ شروع كن به نوشتن سوالي بود بپرس كمكت ميكنيم

[Tender]

اینو درست کردم امیدوارم اشتباهی نداشته باشه فقط تونستم عددی رو درست کنم با حروفش رو نمی دونستم چیکار کنم.

ممنون میشم اگه کمک کنی

Tender

[dreamvbfox]

اینو درست کردم امیدوارم اشتباهی نداشته باشه فقط تونستم عددی رو درست کنم با حروفش رو نمی دونستم چیکار کنم.

ممنون میشم اگه کمک کنی

Tender

سلام . بزار راهنماييت كنم.
رشته رو به همون صورت كه هست بايد وارد تابع كني !!! پس تبديل به Interger نكن (آرگومان تابع رو ميگم.)
بعد كاراكتر كاراكتر بخون !!!! كد اسكي اونو بررسي كن . مثلا :

کد:

StringA = "Dr3amVbF0x"
For i = 1 To Len(StringA)
MsgBox Asc(Mid(StringA, i, 1))
Next i

مثال بالا كد اسكي هر كاراكتر رو پيغام ميكنه ! خوب شما يه Select case بزار و كد ها رو بررسي كن ! اگر بين 48 تا 57 بود يعني عدد هست !!! اگر بين 65 تا 90 بود يعني حروف بزرگ است و اگر بين 97 تا 122 بود يعني كاراكتر كوچيك هست.
حالا خودت بشين فكرش كن و بنويس
خدانگهدار

[Tender]

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

من این کارو کردم ولی این برنامه که اینجا میزارم جواب نداد نمیدونم چرا؟ راهنمایی لطفا

کد:

Private Function Coding(txt As String) As String
l = Len(txt)
For i = 1 To l
s = s + Asc(Mid(txt, i, 1))
Next i
End Function


Private Sub Command1_Click()
label1.Caption = s
End Sub

[babyy]

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

من این کارو کردم ولی این برنامه که اینجا میزارم جواب نداد نمیدونم چرا؟ راهنمایی لطفا

کد:

Private Function Coding(txt As String) As String
l = Len(txt)
For i = 1 To l
s = s + Asc(Mid(txt, i, 1))
Next i
End Function


Private Sub Command1_Click()
label1.Caption = s
End Sub

خوب تابع رو صدا نزدی ، معلوم کار نمیکنه !! اون S چکارست جلو label1.caption ؟؟

[Tender]

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