وظيفة تدقيق جوجل

شوهد 1،105 مرة

واحدة من أكثر المواقع استخداما من قبل جوجل، على حساب اختباري!

العديد من المطورين استخدام هذا الحساب الاختباري لتقدمه للزوار لعرض هذه الخدمة المواقع رتبة صفحة، وأنه من الممكن استخدام جوجل API جوجل لذلك، ولكن كما حد من 1000 طلب في اليوم الواحد، وظيفة أدناه، من أجل حل مشكلة هذا القيد.

GoogleCSum ($ S $، مفتاح) {
$ $ V4 = لين = التوابع strlen ($ S) $ $ = ESI مفتاح، $ = EBX EDI = $ 0x9E3779B9؛ $ P = 0؛
إذا دولار (ليون> = 12)
ل ($ ط = 0؛ $ أنا <الكلمة ($ len/12) $ أنا + +)
Unsign التبادل الالكتروني للبيانات = {$ ($ + ORD التبادل الالكتروني للبيانات ($ S [$ ص +4]) + (ORD ($ S [$ ص +5]) << 8) + (ORD ($ S [$ ص 6]) << 16) + (ORD ($ S [ص 7 $]) << 24))؛
$ ESI = unsign ($ ESI + ORD ($ S [$ ع +8]) + (ORD ($ S [$ ص 9]) << 8) + (ORD ($ S [$ 10 ف]) < <16) + (ORD ($ S [$ ص 11]) << 24))؛
EDX = unsign EBX $ (($ + ORD ($ S [$ ف 0]) + (ORD ($ S [$ ص +1]) << 8) + (ORD ($ S [$ ف 2]) << 16) + (ORD ($ S [$ ص +3]) << 24) - $ $-EDI ESI) ^ SHR ($ ESI، 13))؛
Unsign EDI = $ (($ $ $ EDI-EDX ESI-) ^ ($ EDX << 8))؛
ESI = unsign $ (($ ESI، EDI $ EDX-$) ^ SHR ($ التبادل الالكتروني للبيانات، 13))؛
EDX = unsign (EDX ($ $ $، ESI-EDI) ^ SHR ($ ESI، 12)) $؛
Unsign EDI = $ (($ $ $ EDI-EDX ESI-) ^ ($ EDX << 16))؛
ESI = unsign $ (($ ESI، EDI $ EDX-$) ^ SHR ($ التبادل الالكتروني للبيانات، 5))؛
EDX = unsign (EDX ($ $ $، ESI-EDI) ^ SHR ($ ESI، 3)) $، $ $ = EBX EDX؛
Unsign EDI = $ (($ $ $-EDI-ESI EBX) ^ (EBX << 10 دولار))؛
(اي اس آي ($، EDI-$ $ EBX) ^ SHR ($ التبادل الالكتروني للبيانات، 15)) اي اس آي unsign = $؛
$ V4-= 12؛ $ + ص = 12؛}
$ ESI = unsign ($ $ اي اس آي + لين)؛
إذا دولار (V4> = 11) $ = ESI unsign ($ ESI + (ORD ($ S [$ ص 10]) << 24))؛
إذا دولار (V4> = 10) $ = ESI unsign ($ ESI + (ORD ($ S [$ ص 9]) << 16))؛
إذا دولار (V4 => 9) $ = ESI unsign ($ ESI + (ORD ($ S [$ ع +8]) << 8))؛
إذا دولار (V4> = 8) = $ unsign التبادل الالكتروني للبيانات (EDI $ + ORD ($ S [$ ص +4]) + (ORD ($ S [$ ص +5]) << 8) + (ORD ($ S [ص 6 $]) << 16) + (ORD ($ S [$ ص 7]) << 24))؛
آخر
{إذا دولار (V4> = 7) = $ unsign التبادل الالكتروني للبيانات (EDI $ + (ORD ($ S [$ ص 6]) << 16))؛
إذا دولار (V4> = 6) = $ unsign التبادل الالكتروني للبيانات (EDI $ + (ORD ($ S [$ ص +5]) << 8))؛
إذا دولار (V4> = 5) = $ unsign التبادل الالكتروني للبيانات (EDI $ + ORD ($ S [$ ص +4]))؛}
إذا دولار (V4> = 4) $ = EBX unsign ($ EBX + ORD ($ S [$ ف 0]) + (ORD ($ S [$ ص +1]) << 8) + (ORD ($ S [ص +2 $]) << 16) + (ORD ($ S [$ ص +3]) << 24))؛
آخر
{إذا دولار (V4> = 3) $ = EBX unsign ($ EBX + (ORD ($ S [$ ص +2]) << 16))؛
إذا دولار (V4> = 2) $ = EBX unsign ($ EBX + (ORD ($ S [$ ص +1]) << 8))؛
إذا دولار (V4> = 1) $ = EBX unsign ($ EBX + ORD ($ S [$ ف 0]))؛}
EBX = unsign $ (($ EBX، EDI-$ $ اي اس آي) ^ SHR ($ ESI، 13))؛
Unsign EDI = $ (($ $ $-EDI-ESI EBX) ^ (EBX << 8 دولارات))؛
(اي اس آي ($، EDI-$ $ EBX) ^ SHR ($ التبادل الالكتروني للبيانات، 13)) اي اس آي unsign = $؛
EBX = unsign $ (($ EBX، EDI-$ $ اي اس آي) ^ SHR ($ ESI، 12))؛
Unsign EDI = $ (($ $ $-EDI-ESI EBX) ^ (EBX << $ 16))؛
(اي اس آي ($، EDI-$ $ EBX) ^ SHR ($ التبادل الالكتروني للبيانات، 5)) اي اس آي unsign = $؛
EBX = unsign $ (($ EBX، EDI-$ $ اي اس آي) ^ SHR ($ ESI، 3))؛
Unsign EDI = $ (($ $ $-EDI-ESI EBX) ^ (EBX << 10 دولار))؛
(اي اس آي ($، EDI-$ $ EBX) ^ SHR ($ التبادل الالكتروني للبيانات، 15)) اي اس آي unsign = $؛ العودة دولار اي اس آي.
}

ترك التعليق

اشترك بدون تعليق