Fa convertor for input text

[behjati mohamma]

من میخوام داخل input text اول یک متن شامل حروف و اعداد باشه
با یک دکمه متن کد بشه و تو input text دوم نمایش داده بشه و با یک دکمه دیگه داخل input text سوم حالت اولیه نمایش پیدا کنه
به روایت دیگر میخوام متن رو کد کنم و دوباره آن کد کنم
دوستان گرامی لطفا یک چیز خیلی ساده معرفی کنید

 

[evil_gates]

دوست عزيز

براي كد و ديكد كردن عبارتي بايد الگوريتمي داشته باشيد. بر اساس الگوريتم شما هر كاراكتر معادلي پيدا ميكنه و بر همون اساس هم ميشه مجددا كاراكترهاي اصلي عبارت كد شده رو بدست آورد.

مثالي كه براي پلاگين قفل تلفني ساخته شده رو ببينيد. نمونه اي از چيزي هست كه دنبالش هستيد.

 

[BEHESHT]

متن فارسی در نظر دارین یا لاتین چون اینجوری قضیه فرق می کنه

 

[behjati mohamma]

من مثالهای تلفنی رو برسی کردم ولی چیزی که متن رو برگشت بده به حالت ندیدم
در ضمن فقط انگلیسی مد نظر است
میشه یک راهنمایی بکنید زیاد هم تکس عوض نشد مهم نیست فقط از حالتی که خونده بشه در بیاد

 

[evil_gates]

من مثالهای تلفنی رو برسی کردم ولی چیزی که متن رو برگشت بده به حالت ندیدم

منظور من از اون مثال الگوريتمي بود كه بر اساس اون عبارتي رو به كد تبديل ميكرد دوست عزيز. نگفتم عين اون رو استفاده كنيد.

میشه یک راهنمایی بکنید زیاد هم تکس عوض نشد مهم نیست فقط از حالتی که خونده بشه در بیاد

اگه منظورتون اينه ميتونيد با يك حلقه كاراكتر به كاراكتر عبارتتون رو بخونيد و كد اسكي معادلش رو پيدا كنيد و با يك عمليات رياضي ساده كدي ديگه‌اي به جاش جايگزين كنيد و تو جمله قرار بديد.

 

[BEHESHT]

من مثالهای تلفنی رو برسی کردم ولی چیزی که متن رو برگشت بده به حالت ندیدم
در ضمن فقط انگلیسی مد نظر است
میشه یک راهنمایی بکنید زیاد هم تکس عوض نشد مهم نیست فقط از حالتی که خونده بشه در بیاد

از الگوریتم های مختلفی می تونین استفاده کنین از جمله قویترینشون base64 هست اگه مهم هست چند روزی به من مهلت بدین الگورتیم رو پیاده سازی کنم تو یکی از پلاگین ها

یا می تونید از الگورتیم الگوریتم کدینگ Rotat13 استفاده کنین که تو MMB هم قابل پیاده سازی هست اما اعداد رو پیشتبانی نمی کنه

اگه می خواین من Rotat13 رو پیاده سازری کنم به سرعت

موفق باشید

 

[Amit13]

پلاگين نمي خواد كه.
فقط يكم فكر ميخواست.

واست پيوست كردم.
اينجوريه كه editbox رو تك تك به كاركتر تبديل كردم،بعد dec هر كاركتر رو با دستور ORD بدست آوردم و +2 كردم.دوباره به كاركتر و استرينگ تبديل كردم.
واسه اين كد هم -2 كن.

 

[Amit13]

چرا لينك پيوسته نيامد؟؟؟؟؟

يه بار ديگه ميذارم.

 

[behjati mohamma]

تشکر

ضمن تشکر ویژه از amit13
و همه دوستان که با پیشنهادات جالب خود افقی تازه را برایم باز کردند
من نمونه را با مخلوطی از حروف و اعداد انگلیسی و فارسی و کارکترها نیز تست کردم و کاملا درست جواب داد
از همه متشکرم

 

[behjati mohamma]

اشکال در مثال

به اشکالی برخوردم
با دادن مسیر مشکل داره مثال
C:\test\1
لطف میکنید راهنمایی کنید amit13

 

[evil_gates]

دوست عزيز
من دسترسي ندارم مثال رو ببينم لطفا كدهاي برنامتون رو قرار بديد و دقيقتر توضيح بديد چه مشكلي داريد تا بشه بهتر راهنماييتون كرد.

 

[behjati mohamma]

دوست عزيز
من دسترسي ندارم مثال رو ببينم لطفا كدهاي برنامتون رو قرار بديد و دقيقتر توضيح بديد چه مشكلي داريد تا بشه بهتر راهنماييتون كرد.[/QUOTE

مثال چی رو میخواهید همان مثال که تو همین پست بود رو میگم دیگه لینک زیر


فایل های پیوستی

code-01-001.rar (58.1 کیلوبایت, بازدیدها: 9) در اکثر موارد درست جواب میده ولی مسیر رو نمی تواند کدکند
مثال
C:\test\1
کد کنید
باید در آن کد شدن هم عمل کنه ولی عمل نمیکنه و خالی جواب میده
نحوه اجرای کد کردن و آن کد کردن اسکریپ رو هم لطف کنید توضیح بدین ممنون میشم
باتشکر

 

[evil_gates]

مثال چی رو میخواهید همان مثال که تو همین پست بود رو میگم دیگه لینک زیر


فایل های پیوستی code-01-001.rar (58.1 کیلوبایت, بازدیدها: 9) در اکثر موارد درست جواب میده ولی مسیر رو نمی تواند
مثال
C:\test\1
کد کنید باید در آن کد شدن هم عمل کنه ولی عمل نمیکنه و خالی جواب میده
نحوه اجرای کد کردن و آن کد کردن اسکریپ رو هم لطف کنید توضیح بدین ممنون میشم
باتشکر

دوست عزيز
من آدرس دانلود اين مثال رو از پست قبلي دارم اما تو سفرم و الان رو اين سيستمي كه متصل هستم mmb نصب ندارم. به همين خاطر نميتونم اصلا مثال رو باز كنم كه ببينم چه كدي براش نوشته شده.

منظورم از دسترسي ندارم يعني نميتونم مثال رو باز كنم چون فعلا mmb ندارم

 

[behjati mohamma]

دوست عزيز
من آدرس دانلود اين مثال رو از پست قبلي دارم اما تو سفرم و الان رو اين سيستمي كه متصل هستم mmb نصب ندارم. به همين خاطر نميتونم اصلا مثال رو باز كنم كه ببينم چه كدي براش نوشته شده.

منظورم از دسترسي ندارم يعني نميتونم مثال رو باز كنم چون فعلا mmb ندارم

اسکریپ کد کردن اینه
lenedi=LEN(EditBox$)
emp$=''
For i=1 To lenedi
gtf$=StrCopy(EditBox$,i,1)
frr=ORD(gtf$)+2
gt$=CHR(frr)
emp$=emp$+gt$
Next i
LoadText("EditBox1","emp
$")
اسکریپ آنکد هم اینه

lenedi=LEN(EditBox1$)
emp$=''
For i=1 To lenedi
gtf$=StrCopy(EditBox1$,i,1)
frr=ORD(gtf$)-2
gt$=CHR(frr)
emp$=emp$+gt$
Next i
LoadText("Text1","emp
$")
​

 

[Silver PC]

سلام ،

دوست عزیز لطفا کد ها رو در تگ قرار بدید تا خوناتر باشن !


--

اسکریپ کد کردن اینه :

سلام ،

دوست عزیز لطفا کد ها رو در تگ قرار بدید تا خوناتر باشن !


--

اسکریپ کد کردن اینه :

lenedi=LEN(EditBox$)
emp$=''
For i=1 To lenedi
gtf$=StrCopy(EditBox$,i,1)
frr=ORD(gtf$)+2
gt$=CHR(frr)
emp$=emp$+gt$
Next i
LoadText("EditBox1","emp$")

اسکریپ آنکد هم اینه :

lenedi=LEN(EditBox1$)
emp$=''
For i=1 To lenedi
gtf$=StrCopy(EditBox1$,i,1)
frr=ORD(gtf$)-2
gt$=CHR(frr)
emp$=emp$+gt$
Next i
LoadText("Text1","emp$")

 

[For.sajjad]

دوست عزيز اگر منظورتون اينه كه نمي تواند خود"C:\test\1" را كد كند براي من كه اينطور نيست مثال جناب AMIT كاملا درست هست
و كد شدهي اون هم عبارت است از"E<^vguv^3"

 

[evil_gates]

بله دوست عزيز
ظاهرا اين كد مشكلي نداره و بايد بتونه عبارتي معادل عبارت وارد شده شما بدست بياره. مشكلتون دقيقا كجاست؟

 

[behjati mohamma]

دوست عزيز اگر منظورتون اينه كه نمي تواند خود"C:\test\1" را كد كند براي من كه اينطور نيست مثال جناب AMIT كاملا درست هست
و كد شدهي اون هم عبارت است از"E<^vguv^3"

کد تولید شده برای من اینه
e<^vguv^3
و جواب آن کد خالی میاد
مشکل کجاست؟؟؟؟
اگه کد شما را قرار بدم درست میشه
ولی
شماهمین رو به برنامه دادین دیگه c:\test\1
:razz:

 

[evil_gates]

دوست عزيز
من خط به خط اين كدها رو خوندم و مشكلي توش نميبينم بايد بتونيد همونطور كه عبارت e<^vguv^3 رو بدست آورديد در بازگشت عبارت c:\test\1 رو هم بدست بياريد.

ضمنا تفاوت چيزي كه شما نوشتيد يعني e<^vguv^3 با چيزي كه جناب For.sajjad نوشتن يعني E<^vguv^3 فقط كاراكتر اولي هست كه اونم فكر ميكنم به خاطر كوچك يا بزرگ بودن حرف C كه در ابتداي جمله شما قرار داره اين اختلاف حاصل شده و مسئله خاصي نيست.

در پايان كد اولي و كد دوم يك دستور Message قرار بديد و مقدار $emp رو بخونيد ببينيد چي نمايش ميده.

Message("","emp$")

 

[behjati mohamma]

لطف کنید یک بار یکی از دوستان هم امتهان کنید ببینه من درست میگم یا نه
مسیج شما رو هم گذاشتم بازم جواب همون بود
mmb رو پاک کردم دوباره نصب کردم جواب همون بود یکی کمک کنه گیج شدم