(13-12-21, 12:19 AM)Taha Okla كتب : الـ QR  ليس خط من الخطوط - بل هو أداة OCX  لتشفير النصوص ع رمز QR كما هو هو متعارف عليه
وله أكثر من نوع من التشفير وكل هذه الانواع يتم قراءتها بواسطة برنامج الـ QR

لكن مع برنامج هيئة الزكاة والضرائرب والجمارك السعودية لا يقرأ أي شي
لأن البيانات تكون مشفرة قبل تحويلها لـ رمز QR ويقوم البرنامج بفك التشفير عنها كـ QR ثم يفك اتشفير عن البيانات الناتجة فيقرأها كـ فاتورة

مثلاً الشيفرة التالية لو قمت بتحويلها لـ رمز QR فإن برنام الهيئة سيقوم بقرائتها كـ فاتورة إلكترونية ..

كود :

ARNNb2Rlcm4gRGF0YSBTeXN0ZW1zAg84MjgyNTYyODQwMTIzNDUDEzIwMjEtMDktMDUgMTI6MjE6NTAECDMsMTA1LjAwBQY0MDUuMDA=

للأسف كود التشفير ليس عندي ولكن أظن إن بحثت عنه ستجده 
لأن هذا الامر لا يخص شركة وبرامجها بعينها بل هذا أمر معمم على كافة المملكة السعودية.

هذا مشروع بـ الفيجول بيزك 6 - ومعه أداة OCX  كذلك ملف exe لتسجيل الأداة وتجريبها ..: من هنا

(13-12-21, 01:29 AM)ADAM12 كتب :

(13-12-21, 12:19 AM)Taha Okla كتب : الـ QR  ليس خط من الخطوط - بل هو أداة OCX  لتشفير النصوص ع رمز QR كما هو هو متعارف عليه
وله أكثر من نوع من التشفير وكل هذه الانواع يتم قراءتها بواسطة برنامج الـ QR

لكن مع برنامج هيئة الزكاة والضرائرب والجمارك السعودية لا يقرأ أي شي
لأن البيانات تكون مشفرة قبل تحويلها لـ رمز QR ويقوم البرنامج بفك التشفير عنها كـ QR ثم يفك اتشفير عن البيانات الناتجة فيقرأها كـ فاتورة

مثلاً الشيفرة التالية لو قمت بتحويلها لـ رمز QR فإن برنام الهيئة سيقوم بقرائتها كـ فاتورة إلكترونية ..

كود :

ARNNb2Rlcm4gRGF0YSBTeXN0ZW1zAg84MjgyNTYyODQwMTIzNDUDEzIwMjEtMDktMDUgMTI6MjE6NTAECDMsMTA1LjAwBQY0MDUuMDA=

للأسف كود التشفير ليس عندي ولكن أظن إن بحثت عنه ستجده 
لأن هذا الامر لا يخص شركة وبرامجها بعينها بل هذا أمر معمم على كافة المملكة السعودية.

هذا مشروع بـ الفيجول بيزك 6 - ومعه أداة OCX  كذلك ملف exe لتسجيل الأداة وتجريبها ..: من هنا

لا أعلم تحديدا لماذا الطلب على فوترة السعودية لكن اردت الافادة بموضوع التشفير
التشفير الذي ارفقته هو BASE64 و فك تشفيره سهل و من فك تشفيره تستطيع معرفة طريقة انشاء هذا الترتيب و إليك ما هو موجود بالكود الذي ارفقته


Modern Data Systems8282562840123452021-09-05 12:21:503,105.00405.00

أما عن فنكشنز التشفير و فك التشفير فهاهي 

كود :

Public Function EncodeBase64(input As String) As String
    Return System.Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(input))
End Function

Public Function DecodeBase64(input As String) As String
    Return System.Text.Encoding.UTF8.GetString(Convert.FromBase64String(input))
End Function