اريد كود تحويل النص الى binary و العكس. مع احتمالية كتابة اكثر من سطر في التكست بوكس.
انا جربتها بالhexa بس المشكلة انه لما نرجع النص المشفر لوضعه الاصلي تحصل مشكلة وهي :انه يعتبر مقتاح الادخال على انه حرف العين مثلا:
دخلت اسم عثمان وعماد في مربع نص واحد بس في سطرين المفروض انه يشفر الاسمين لما نسترجعهم يرجوا بنفس الطريقة بس الناتج يكون كالتالي
عثمان
عماد
(تشفير)
--------------
عثمانععماد
وشكراُ
أبحث بالمنتدي ، حيث هناك مشاركات تفيد بذلك
شكراً
لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي
ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك
أنت وتصرفاتك
ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه
اشد آلام ... فصمتي أنا عنوان
جرب الكود التالي وأخبرني :
Dim T1, T2 As String T1 = Trim(Text1.Text) T2 = Trim(Text2.Text) Text3.Text = T1 & Mid(T2, 1, 1) & T2
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
Ala2 VB كتب:جرب الكود التالي وأخبرني :Dim T1, T2 As String T1 = Trim(Text1.Text) T2 = Trim(Text2.Text) Text3.Text = T1 & Mid(T2, 1, 1) & T2
-------------------------------------------------------------
شكرا حبيبي على مجهودك بس انتا شكلك ما فهمت طلبي : انا كنت نبحث على كود تشفير النص وكونت كود بس يحول للهكسا
المشكلة انه لو تطلب فك تشفير النص من الهكسا للشكل العادي يعتبر مفتاح الانتر على انه حرف العين
على اي حال انا لقيت الحل وغير فيه بعض الشي ليمشى مع اللى انا عايزه
ولو عازوه قولي
------------------------------------------------------------------
شكرا مره تانية على مجهودك