PDA

نسخه کامل مشاهده نسخه کامل : رمزنگاری با ویژوال بیسیک !



bersam
06-01-2009, 16:26
سلام علیکم
با اجازه من در کار یک برنامه ی رمز نگار رفتم ! و اطلاعاتم هم از ویژوال بیسیک زیر خط فقره !
من می تونم به برنامه بفهمونم که به ازای مثلا 1 حرف آ رو بهم بده !
ولی مثلا برای 123456 نمی دونم چی کار کنم !
می خوام مثلا توی عدد های بالا ! به جای هر عدد یک حرف که خودم تعیین کردم رو بده ... !!!
کسی بلده که بتونه راهنمایی کنه ؟
__________________


تریبال ... آزاد باید گردد !!!


اسمم را پدرم انتخاب کرد، نام خانوادگي ام را يکي از اجدادم! دیگر بس است ! راهم را خودم انتخاب خواهم کرد .
حسین(ع) بیشتر از آب تشنه ی لبیک بود
افسوس که بجای افکارش زخمهای تنش را نشانمان دادند و بزرگترین دردش را بی آبی نامیدند
دکتر علی شریعتی
گویند کسان بهشت با حور خوش است
من می گویم که آب انگور خوش است
این نقد بگیر و دست از آن نسیه بدار
که آواز دهل شنیدن از دور خوش است
خیام
این می چه حرامیست که عالم همه از آن می جوشند
یک دســـــــــــته به نابودی نامـــــــش کوشنــــــــــد
آنان که بر عاشـــــــــــقان حرامــــــــش کردنـــــــــــد
خود خلـــــــــــــــــوت از آن پیاله ها می نوشنـــــــــد !!!
همای
آن عاشق دیوانه که این خمار مستی را ساخت
معشوق و شراب و می پرســـــــتی را ساخت
بی شــــــــک قدحی شـــــــــــــــــراب نوشید
از آن سرمست شد و این جهان هستی را ساخت
همای
گویند که دوزخی بود عاشـــــــــــــق و مســــــت
قولی است خلاف ،دل در آن نتوان بســــــــــــــت
گر عاشــــــــــق و مــــــــــــــیخانه به دوزخ باشد
فرداست که ببینی بهشت شود همچون کف دست
همای
عرصه به خلق تنگ شد ! رجب علی پلنگ شد ! چماق او تفنگ شد ! بقر بقو بقو بقو !!!
نسیم شمال

bersam
06-01-2009, 18:56
عجبا !!!! ایهاالمسلمون اتحدوا اتحدوا !!!!!!!!!!!!!! بابا برنامه ی ساده ایه ! نگفتم که بنویسینش ! گفتم یه راهنمایی بکنین !

__________________


تریبال ... آزاد باید گردد !!!


اسمم را پدرم انتخاب کرد، نام خانوادگي ام را يکي از اجدادم! دیگر بس است ! راهم را خودم انتخاب خواهم کرد .
حسین(ع) بیشتر از آب تشنه ی لبیک بود
افسوس که بجای افکارش زخمهای تنش را نشانمان دادند و بزرگترین دردش را بی آبی نامیدند
دکتر علی شریعتی
گویند کسان بهشت با حور خوش است
من می گویم که آب انگور خوش است
این نقد بگیر و دست از آن نسیه بدار
که آواز دهل شنیدن از دور خوش است
خیام
این می چه حرامیست که عالم همه از آن می جوشند
یک دســـــــــــته به نابودی نامـــــــش کوشنــــــــــد
آنان که بر عاشـــــــــــقان حرامــــــــش کردنـــــــــــد
خود خلـــــــــــــــــوت از آن پیاله ها می نوشنـــــــــد !!!
همای
آن عاشق دیوانه که این خمار مستی را ساخت
معشوق و شراب و می پرســـــــتی را ساخت
بی شــــــــک قدحی شـــــــــــــــــراب نوشید
از آن سرمست شد و این جهان هستی را ساخت
همای
گویند که دوزخی بود عاشـــــــــــــق و مســــــت
قولی است خلاف ،دل در آن نتوان بســــــــــــــت
گر عاشــــــــــق و مــــــــــــــیخانه به دوزخ باشد
فرداست که ببینی بهشت شود همچون کف دست
همای
عرصه به خلق تنگ شد ! رجب علی پلنگ شد ! چماق او تفنگ شد ! بقر بقو بقو بقو !!!
نسیم شمال

_H2_
07-01-2009, 01:46
سلام
در خصوص VB8 و VB9 قبلاً در تاپیک زیر بحث بسیار بسیار مختصری شده، شاید کمک کند.
forum.p30world.com/showthread.php?p=2721747

radghazal73
12-01-2009, 17:19
سلام
اگه درست متوجه شده باشم ،شما میخواهی در واقع یک عدد مثل 786687 تک به تک جدا کنی و در مقابل به هر عدد یک رقمی یک حرف جاگذاری کنی؟
برای جدا کردن یک عدد دو روش وجود داره :
1-
عدد را به رشته تبدیل کن(با استفاده از تابع string
بعد با استفاده از حلقه و تابع mid یکی یکی ارقام را جدا کن.
2-
با استفاده از تقسیمات متوالی بر 10