منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مثال هذا 46333328y أريد أعمل عليه العمليات الحسابية على هذا بمتغير كيف؟؟؟

 
اتمنى أن أكون قد فهمت جيدا قصدك

أخي لم تفهم قصدي قصدي البرنامج يولد تلقائياً قد يطرح الحروف في أماكن متغيرة غير ثابتة

مش متأكد من الكود لأنى نسيت لغة البيسك بس جرب المتغير يكون كده

Dim xy
بدون تحديد ال DataType ل Variable

يعني هنا مولد السريالات ولد لي الرقم 452d86ef321
وفي المرة الثانية ولد 9521rb61es85
وفي المرة الثالثة ولد wssd222244ggf94
وأنا أريد كل رقم منهم يقوم بعمل العمليات الحسابية الآتية
المنغير *1000
المتغير /5
المتغير+1000
العمليات لكل الأرقام الذي ذكرها
ستقول لي إلى أين تريد أن تصل أنا أريد أن أصل لحماية برامج قوية ووقفت إلى هذه النقطة
وشكراً

---

(17-03-20, 01:24 AM)mero5000 كتب : [ -> ]مش متأكد من الكود لأنى نسيت لغة البيسك بس جرب المتغير يكون كده

Dim xy
بدون تحديد ال DataType ل Variable

شكراًأخي لم تنجح معي الطريقة

اذا اردت حماية قوية استعمل سيريال احد الاجهزة + برنامج تشفير لتشفير السيريال و حفظه بمكان لايمكن الوصول اليه او صعب الوصول اليه و شفر اكواد البرنامج الذي تريد

حمايته و تذكر لايوجد حماية كاملة و لكننا نسعى للاحسن .

أخي قد عملت الحماية باقي هذا

---

يعتمد على رقم الهارد
يهر ويعمل العمليات الحسابية دون أن يعلم المستخدم ما يوجد خلف البرنامج
عندما يتصل بالمصدر  يقول لهم رقم الهارد فيعمل البرنامج الآخر العمليات الحسابية
فنعطيه السريال

---

وكيف نشفر أكواد البرنامج

هذا سورس كود لتشفير و عكس التشفير للنصوص و الارقام :

[attachment=24143]

الرجاء المشاركة من اصحاب الخبرة الحماية والتشفير .

مجموعة التشفير في إتجاه واحد .

التشفير وهم أم حقيقة .

[نقاش] طرق التشفير المعتمدة بالوقت الحالي .

مثال مشروح عن تشفير الملفات .

المسألة بسيطة 

(17-03-20, 09:57 PM)سامي محمد كتب : [ -> ]المسألة بسيطة 

كود :

 Dim i As String = "452d86ef321"
        Dim M As Long
        M = System.Text.RegularExpressions.Regex.Replace(i, "\D", "")
        MsgBox(String.Format("{0:###,###}", M * 1000) & vbNewLine & String.Format("{0:###,###}", M / 1000) & vbNewLine & String.Format("{0:###,###}", M + 1000))

هذا الكود لماذا؟


هذا ما أعمل عليه
شكراٍ عاصم ومادخل منتدانا في الكود
لك مني 1+