سكريبت رائع لادارة الاعلانات لكن مشكلته انه ل 30 يوم فمالعمل

[beshoo]

والله اروع سكريبت شفته بحياتي
احصائيات عن الضغطات على البنر وادارة كاملة متكاملة
لكن السكريبت لمدة 30 يوم فمالعمل ارجو منكم المساعدة ولا طنشوني
العنوان
http://www.adcycle.com/

بتوقعي انه يمكن التعديل على الكود لالغاء خاصية ال 30 يوم

[Fuga]

السلام عليكم
شلونك بيشو ادخل هذا الرابط (perl)
http://www.hotscripts.com/Perl/Scrip...lassified_Ads/
هذا الرابط (php)
http://www.hotscripts.com/PHP/Script...lassified_Ads/
واسحبلك واحد مجاني . اما من ناحية غير المجاني وتزيل منه شغلات عشان يصير مجاني هذي مشكلة كبيره تخسر فيها موقعك بأكملة بواسطة بريد من صاحب البرنامج الى صاحب سيرفرك وينتهي موقعك بعدها

اسحب واحد مجاني أحسن لك

[beshoo]

وانا قبلت التحدي
كيف يجب ان نزيل خاصية ال 30 يوم وانا اول من سيجرب السكريبت
سوف ازيل كل المناطق التي ترسل البريد الى اي مكان وهذه بسيطة
واي عنوان مختفي هون ولا هون كمان بنشيلة
بس هذه شغلة ال 30 يوم صعبة مالقيتها؟

[Superman]

غالى و الطلب رخبص

http://www.geocities.com/uniball13/a...15_Cracked.zip

انا كسرت ال 30 يوم
الباقى عليك او انا موجود

[Moh]

تفضل اخي بيشو..وضعته على موقع مبسوط قبل فتره ( كــــامــــل ) :

http://mabsoot.net/mabsoot/showthrea...c&threadid=311

[beshoo]

Superman شكرا لك بس هيك ما تفقنا
علمني وين وكيف وشلون يعني هيك على الغميضي

moh هلا بالغالي
بس السكريبت يلي انت حاطة انا نزلتة بالاول ولكن هذا الموجود اخر اصدارة وبداخلة شغلات تهبل

[beshoo]

شو شباب ما في واحد يكسر الوقت؟؟؟؟؟؟؟؟

[beshoo]

للرفع
اريد ان تكسرو الوقت

[Superman]

اخى انا كسرت الوقت
انت ركبه بس و هايشتغل معاك على طول ان شاء الله

[beshoo]

هلا سوبر مان
اخي انا دققت بما فعلته انت جزاك الله خير

شوف معي انت عدلت هنا:

sub front_panel{
	my($self,@space)=@_;
	my $master=$space[0];
	my $enum=$space[1];
	my $diff=$space[2];
	my $ems=$space[3];
	if($ems==1){
		my $num=30-$diff;
		$master->{image}=qq~Woops! Something is wrong.... ~;
		$master->{query}->param(-name=>'task',-values=>"view_manager");
	}
	if($ems==2){
		my $num=30-$diff;
		$master->{image}=qq~30 Days have Expired, <a href="http://www.adcycle.com/register.html" target="_blank">Please register AdCycle.</a>~;
    $master->{query}->param(-name=>'task',-values=>'view_manager');
	}
	if($diff<=30 && $ems==3){
		my $num=30-$diff;
		$master->{image}=qq~<b><font color="red">Cracked By Uniball.</font></b>~;
	}
	if($enum!=15 && $ems==4){
		$master->{image}=qq~Please enter your registration key again.~;
    $master->{query}->param(-name=>'task',-values=>'view_manager');
	}
	return $master
}

اي انك عدلت بالكلام فقط واضفت التالي:
Cracked By Uniball

واذا راينا السكريبت الاصلي نجد :

sub front_panel{
	my($self,@space)=@_;
	my $master=$space[0];
	my $enum=$space[1];
	my $diff=$space[2];
	my $ems=$space[3];
	if($ems==1){
		my $num=30-$diff;
		$master->{image}=qq~Woops! Something is wrong.... ~;
		$master->{query}->param(-name=>'task',-values=>"view_manager");
	}
	if($ems==2){
		my $num=30-$diff;
		$master->{image}=qq~30 Days have Expired, <a href="http://www.adcycle.com/register.html" target="_blank">Please register AdCycle.</a>~;
    $master->{query}->param(-name=>'task',-values=>'view_manager');
	}
	if($diff<=30 && $ems==3){
		my $num=30-$diff;
		$master->{image}=qq~<b><font color="red">Evaluation Day $diff of 30.</font></b> <a href="http://www.adcycle.com/register.html" target="_blank">Please register AdCycle.</a>~;
	}
	if($enum!=15 && $ems==4){
		$master->{image}=qq~Please enter your registration key again.~;
    $master->{query}->param(-name=>'task',-values=>'view_manager');
	}
	return $master
}

طبعا هذا الكود المتواجد ضمن ملف ال AdHtml
انا اظن ان العلمية غير هيك؟

انت قلي هل عدلت بغير هذا الملف؟؟؟؟؟؟؟
ارجو التحديد اين عدلت لكي اطمئن مع اني لا اظن الا ان التعديل بهذا المقطع تحديدا

شكرا ارجو المشاركة

[beshoo]

up

[Superman]

عجبتنى
لا انا عدلت كمان فى الملف AdTools.pm

هذا هو الكود الجديد

sub keyck{
	my ($self,$master) = @_;
	my $date=$master->{env}->get_date;
	my $idref=$master->{db}->select_single_row_hash("SELECT * FROM ids");
	my $configref=$master->{db}->select_single_row_hash("SELECT * FROM adconfig");
	my $coo=$configref->{USER_ENABLED};	my $sum_cron;my $error=0;my $delta=0;
	my $uid=$master->{query}->param('uid'); if(length($uid)>0){$coo=$uid;}
	if(length($coo)==0){
		my $today=$master->{db}->single_result("SELECT TO_DAYS('$date')");
	  my $then=$master->{db}->single_result("SELECT TO_DAYS('$idref->{LOG_DATE}')");
		if($today-$then>31){
			$error=3;
		}
		if($today-$then<=31){
			$error=3;
			$delta=$today-$then;
		}
		if($idref->{LOG_DATE} ne $configref->{LOG_DATE}){
			$error=1;
		}
	}else{
		$error=3;
		$delta=substr($coo,0,1);
		$sum_cron+=substr($coo,4,1);
		$sum_cron+=substr($coo,7,1);
		$sum_cron+=substr($coo,11,1);
	}
	$master->{html}->front_panel($master,$sum_cron,$delta,$error);
}

بدل هذا

sub keyck{
	my ($self,$master) = @_;
	my $date=$master->{env}->get_date;
	my $idref=$master->{db}->select_single_row_hash("SELECT * FROM ids");
	my $configref=$master->{db}->select_single_row_hash("SELECT * FROM adconfig");
	my $coo=$configref->{USER_ENABLED};	my $sum_cron;my $error=0;my $delta=0;
	my $uid=$master->{query}->param('uid'); if(length($uid)>0){$coo=$uid;}
	if(length($coo)==0){
		my $today=$master->{db}->single_result("SELECT TO_DAYS('$date')");
	  my $then=$master->{db}->single_result("SELECT TO_DAYS('$idref->{LOG_DATE}')");
		if($today-$then>31){
			$error=2;
		}
		if($today-$then<=31){
			$error=3;
			$delta=$today-$then;
		}
		if($idref->{LOG_DATE} ne $configref->{LOG_DATE}){
			$error=1;
		}
	}else{
		$error=4;
		$delta=substr($coo,0,1);
		$sum_cron+=substr($coo,4,1);
		$sum_cron+=substr($coo,7,1);
		$sum_cron+=substr($coo,11,1);
	}
	$master->{html}->front_panel($master,$sum_cron,$delta,$error);
}

[beshoo]

هلا بالغالي سوبر مان
والله انك سوبر مان
بس بدك الصراحة ومع ذلك انا لسا خايف
انا فهمت التعديل يلي انت ساويته بس هو عم يحقق الشرط لما يكون اكبر من 31 ؟؟ يعني سوف يتوقف البرنامج ولا شو رايك
ارجو منك ان توضح لي العملية حاكم انا ضعت

[Superman]

بسم الله الرحمن الرحيم
انا قمت بالتعديل بحيث انه عندما يستدعى الداله front_panel يمرر لها المتغير $error=3;
بالنسبه للداله فهى تقوم بحفظ المتغير بالاسم $ems الذى عندما يساوى 3 يمنع ايقاف البرنامج
هذا على حد علمى و الله اعلم
فقط جربه على جهازك اولا لكى تتاكد

[beshoo]

شكرا لك عزيزي بس سوال
انت قلت جربها على جهازي
ليش اشتغلت عندك؟؟؟؟ على الجهاز؟؟؟؟؟؟؟؟؟؟؟؟؟
انا لم تعمل عندي؟ error500
بس ليك ان كنت انت متاكد من عملك وجربتها من شان اتكل على الله ثم عليك
شكرا لك