تجربتى السيئة مع شركة سيليكون للكمبيوتر

السلام عليكم ورحمة الله وبركاته ,بداية احب ان اوضح اننى قمت بالتعامل مع شركة سيليكون للكمبيوتر  (موجودة فى الديب مول فى رشدى الدور الخامس ,مسؤول عنها استاذ مصطفى ورقم تليفونه  0124935595)من قبل حيث اشتريت من عندهم جهازين كمبيوتر لاصدقائى ,وهارد خارجى ولم تحدث اى مشكلة من قبل ,حتى فى هاذين الجهازين حتى الآن ,وساعد رخص اسعارهم نسبيا فى اقبالى عليهم ,ولكن قمت مؤخرا بتحديث جهازى حيث اشتريت من عندهم معالج processor  وذاكرة memory  ولوحة رئيسية MainBoard  ومصدر للطاقة PowerSupply وهنا حدثت المشكلة ,اولا الفاتورة لا تحتوى على اسم او رقم تليفون الشركة وليس عليها اى ختم ,وعندما طلبت ان يختمها لى قال لى ستدفع ضريبة مبيعات 10 فى المائة والا فاستلم الفاتورة غير مختومة وبرر ذلك بانه يعمل على برنامج كمبيوتر يخزن به كل البيانات فاخبرته انى مبرمج واعلم انه يمكن التلاعب بقاعدة البيانات عند حدوث اى مشكلة فقال لى انهم شركة محترمة وانهم لن يخاطروا باسمهم ومع الشد والجذب قلت انا مجربهم قبل كده مرتين ومفيش مشكلة حصلت يبقى لا داعى لدفع 10 فى المائة ضريبة وكانت حوالى 200 جنيه زيادة ,قلت انا اولى بهم ,ثم حدثت المشكلة فقد حصلت مشكلة بالباور فجأة وانطفأ الجهاز ولم يعد يعمل وخرجت منه فرقعة ,المهم ذهبت به اليهم ,اراد ان يأخذ منى الفاتورة ليكتب عليها اليوم الذى احضرته فيها ثم عندما طالبته بوصل قال لى انه هيفتكر وانه لا يعطى وصل على الصيانة قلت برده مش مشكلة لكن اصريت انى ماديلهوش الفاتورة ولو انى عارف انها لا تعنى شىء لانها لا يوجد بها اى شىء يدل على انها تابعة لهذه الشركة كما يمكن عمل مثلها على الكمبيوتر فهى ورقة مطبوعة ليس بها اى خط يدوى ,وكانت المشكلة انى اتصلت بهم بعد 3 ايام لاطمئن على الباور فقال لى انى ساستلمه بعد 10 ايام ومرت ال 10 ايام واتصل به ثم قال لى انه يأخذ من 10 ل 14 يوم لان الضمان برة اسكندرية ,وبعد 14 يوم حدثت الثورة ولم استطيع ان استلم الباور غير بعد شهر ,تخيل حضرتك تقعد شهر عشان تستلم باور ,عارف هتقولى انه مش ذنبهم ان الثورة حصلت وتوقف كل شىء ,اقولك ايوه مش ذنبهم ,ولكن المشكلة انهم اتأخروا اسبوعين ,انا كنت بتعامل مع شركة اخرى قديما ولكن اسعارها اعلى شوية من الشركة دى لكن الضمان كان بيتبدل القطعة بقطعة جديدة فى خلال اسبوع مش استنى 30 يوم عشان يصلحلى الباور واستلمه متصلح ,عموما خدمة ما بعد البيع عندهم سيئة جدا حيث لا يجيب احد على التليفون عند الاتصال بهم مرة بعد مرة ,عموما انصح من يريد الشراء الا يتوجه اليهم فهذه شركة غير جديرة بالتعامل معها

مشكلة بميكروسوفت ريبورت

السلام عليكم ورحمة الله وبركاته ,واجهتنى هذه المشكلة اثناء العمل على ميكروسوفت ريبورت وهو انه لا يظهر التصميم وانما يظهر بشكل CSS  كما بالشكل

وللتغلب على هذه المشكلة قم بفتح ملف التقرير من Solution explorer  عن طريق كليك يمين على الملف ثم Open With  ثم اختر XML editor

وقم باكمال غلق التاج المفتوح او المغلق بشكل خاطىء ثم احفظ الملف وافتحه بشكل عادى

كلاس للتشفير

السلام عليكم ورحمة الله وبركاته ,كثيرا ما نحتاج الى وسيلة لتشفير البيانات كنوع من الحماية لها مثل كلمات السر وبعض البيانات المالية وغيرها ,وبعد البحث وجدت هذا الكلاس الذى لم اقم بكتابته ولكنه نفعنى كثيرا .

الكلاس هو

Imports System
Imports System.IO
Imports System.Xml
Imports System.Text
Imports System.Security.Cryptography

Public Class Encryption64
Private key() As Byte = {}
Private IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}

Public Function Decrypt(ByVal stringToDecrypt As String, _
ByVal sEncryptionKey As String) As String
Dim inputByteArray(stringToDecrypt.Length) As Byte
Try
key = System.Text.Encoding.UTF8.GetBytes(Left(sEncryptionKey, 8))
Dim des As New DESCryptoServiceProvider()
inputByteArray = Convert.FromBase64String(stringToDecrypt)
Dim ms As New MemoryStream()
Dim cs As New CryptoStream(ms, des.CreateDecryptor(key, IV), _
CryptoStreamMode.Write)
cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8
Return encoding.GetString(ms.ToArray())
Catch e As Exception
Return e.Message
End Try
End Function

Public Function Encrypt(ByVal stringToEncrypt As String, _
ByVal SEncryptionKey As String) As String
Try
key = System.Text.Encoding.UTF8.GetBytes(Left(SEncryptionKey, 8))
Dim des As New DESCryptoServiceProvider()
Dim inputByteArray() As Byte = Encoding.UTF8.GetBytes( _
stringToEncrypt)
Dim ms As New MemoryStream()
Dim cs As New CryptoStream(ms, des.CreateEncryptor(key, IV), _
CryptoStreamMode.Write)
cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
Return Convert.ToBase64String(ms.ToArray())
Catch e As Exception
Return e.Message
End Try
End Function

End Class

كما يمكنك استخدامه بهذه الطريقة

اضافة كائن object  من نوعه واستخدام مفتاح للتشفير

  Encryption64 [objectname] = new Encryption64();
        [objectname].Encrypt("yourtext", "[EncruptionKey]");
         [objectname].Decrypt("EncryptedText", "[EncruptionKey]");

ملحوظة كلما زاد حجم مفتاح التشفير كلما كان افضل لانه يمكن كسره ببرامج فك التشفير,كما انه يُطلب منك استخدام مفتاح ليس اقل من 8 حروف .