Set WshShell = CreateObject("WScript.Shell") MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) Function ConvertToKey(Key) Const KeyOffset = 52 i = 28 Chars = "BCDFGHJKMPQRTVWXY2346789 " Do Cur = 0 x = 14 Do Cur = Cur * 256 Cur = Key(x + KeyOffset) + Cur Key(x + KeyOffset) = (Cur \ 24) And 255 Cur = Cur Mod 24 x = x -1 Loop While x >= 0 i = i -1 KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput If (((29 - i) Mod 6) = 0) And (i <> -1) Then i = i -1 KeyOutput = "-" & KeyOutput End If Loop While i >= 0 ConvertToKey = KeyOutput End Function
52
نزل تشريع الطلاق في سورتين علي مرحلتين متتابعتين تاريخيا 1. سورة البقرة في العام 1 أو 2هجري وتوابعه في سورة النساء والاحزاب وبعض المواضع المتفرقة بين سورة البقرة وسورة الطلاق { في الخمسة اعوام الاولي بعد الهجرة} وبيانات قاعدته في هذه المواضع التلفظ بالطلاق ثم الاعتداد استبراءا ثم التسريح. * 2.ثم نزل التشريع الاخير المحكم في العام 6 او7 هجري بترتيب تشريعي معكوس وبعلم الله الباري في سورة الطلاق في العامين السادس6. او السابع7. الهجري فؤمر كل من يريد التطليق عكس موضعي الطلاق بالعدة والعدة بالطلاق
ليست هناك تعليقات:
إرسال تعليق