حرف تو حرف

چه مردم خوبي داريم

tanzania — Wed, 02 Dec 2009 10:03:18 GMT

نزديكاي غروب بود.خوشحال و خسته تو اتوبوس نشستم.اتوبوس بعد از 30 دقيقه يا بيشتر شروع به حركت كرد.قرار بود مسيري 15 دقيقه اي را باهاش طي كنيم .خيلي جالب بود.وقتي دوباره ديدم كه مردم با قشر ضعيف چه جوري رفتار مي كنند. واقعاً دلم سوخت.وقتي ديدم كه بعد از نيم ساعت الافي تازه اگه صداي مسافرا هم در بياد چهارتا كلفت و گنده بارشون ميكنم.شايد كسي حقشو نمي شناسه.شايد همه باور كردن كه نوكر بقيه هستند و بايد گوش به فرمان باشن.
وسط راه يكي از همين داغونا بلند بلند يه جفنگياتي را پشت سر هم بلقور مي كرد.مي گفت من فرستاده خدام من نماينده خدام. مي گفت همه دروغ ميگن و يه عالمه چرت و پرت و البته فحش به مملكت. . . . . وقتي كار به فحش به آقايون رسيد يه چيز جالب ديدم.ديدم همين آدمهايي كه هي غر مي زنند و ميگن مملكت خرابه.بهش گفتن :هي عمو لطف كن خفه شو . .. واقعاً جالب بود.حتي يه بچه قول هم تو ماشين بود كه اومد بره رو هيكلش ولي كوتاه اومد. . . . .

چه مردم خوبي داريم.بي خيال حواسمو به صداي خواننده تو هدفون ميدم.اينگار اونم ديوونه شده . . . .

اي همراه بيهوده ره سپار اين راه بي نور و هم صدا.سپرده خود را به دست باد.اسير زندونه لحظه ها.تو دلش درداي بي كران.خسته از حرفاي ديگران.اسير مرداي بي مرام و اشك . . . .

بدون شرح و بی ربط تر از همیشه !!!!

tanzania — Wed, 25 Nov 2009 09:10:18 GMT

گاهی گمان نمی کنی و می شود...

گاهی نمی شود که نمی شود..!

گاهی هزار دوره دعا بی اجابت است...

گاهی نگفته قرعه به نام تو می شود..!

گاهی گدای شهری و بخت با تو نیست..

گاهی تمام شهر گدای تو می شود.؟!

ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ-ـ

گویا از جان خود سیری که خاموشی نمی گیری

لبت را چون لبان فرخی دوزند

تو را در آتش اندیشه ات سوزند

هزاران فتنه انگیزند

تو را بر سر در می خانه آویزند

همه چيز درباره NAT

tanzania — Tue, 24 Nov 2009 12:16:18 GMT

بسمه تعالي

برگرفته از مجله علم الکترونیک و کامپیوتر-شماره ۳۷۶

معجزه NAT

مقدمه :

در واقع NAT ( Network Address Translation) سرویسی است که بر روی یکی از مسيريابهای مرزی شبکه (Area Border Router) فعال می شود و IP Address نودهای (Node) شبکه را به صورت استاندارد طرف مقابل تبدیل می کند.

مي توان ادعا کرد که اگر معجزه NAT نبود هم اکنون کاربران در سازمانهای بزرگ به این سهولت دسترسی به اینترنت نداشتند و کارمندان در صفهای بلند می ماندند تا شايد بتوانند به اینترنت متصل شوند.

NAT چیست :

همانطور که می دانید در شبکه های بزرگ از IP Address نامعتبر (Invalid) در اینترنت بهره گرفته می شود تا بتوانند طیف وسیعی از رايانه ها و یا دیگر نودهای (Node) شبکه را با کمترین هزینه به هم متصل کنند ولی این مساله در جای دیگر مشکل آفرین شده بود و این نودها (Node)نمی توانستند در Internet حضور خود را اثبات کنند چرا که IP آنها در شبکه جهانی اعتباری نداشت و اگر مدیران شبکه مي خواستند 10 رايانه را به شبکه جهانی متصل کنند می بایست 10 آدرس معتبر را خریداری می کردند و به این 10 نود اختصاص می دادند.

حالا تصور کنید کل سازمانهای جهان قصد داشته باشند برای کاربران خود IP معتبر خریداری کنند آیا چنین چیزی با در نظر گرفتن محدود بودن تعداد IP Address ها ، هزینه بالای خریداری و یا حتی اجاره یک آدرس و حجم زیاد کاربران امکانپذیر
می باشد؟

همینجا بود كه معجزه NAT ظهور کرد و این مشکل را تا حدودی بهبود داد. همانطور که اشاره شد NAT سرویسی است که بر روی یکی از Router های مرزی شبکه فعال می شود و IP نامعتبر (Invalid) کاربران داخلی شبکه را که قصد استفاده از شبکه جهانی را دارند به آدرس معتبر در شبکه اينترنت تبدیل می کند و بسته هائی که از طرف شبکه اینترنت به سمت شبکه داخلی حرکت می کنند را بصورت IP نامعتبر (Invalid) در شبکه اینترنت و معتبر در شبکه داخلی تبدیل می کند. برای مثال وقتی یک رايانه با آدرس 10.111.10.192قصد اتصال به وب سایت Yahoo را دارد ، اطلاعات درخواست این رایانه به مسيرياب مرزی منتقل می شود تا در اختیار وب سرور Yahoo قرار گیرد ولی از آنجا که این آدرس فقط تا همین Router قابلیت پیشروی دارد در همين Router توسط سرویس و یا تابع NAT به یک آدرس معتبر که قبلا توسط شرکت خریداری شده تبدیل می شود و از اینجا تا سرور Yahoo را با این آدرس جدید طی می کند و طبق معمول سرور Yahoo هم جواب این Packet اطلاعات را به همین آدرس برگشت می دهد تا به Router مرزی شبکه ما برسد.

مسيرياب مرزی پس از دریافت متوجه می شود که این آدرسی که Packet اطلاعات برای آن ارسال شده در شبکه محلي آن وجود ندارد، پس نگاهی به جدول ترجمه IP می اندازد و متوجه می شود که این آدرس را خودش به رايانه 10.111. 10.192 اختصاص داده و در نتیجه Packet اطلاعات دریافتی را به آدرس 10.111. 10.192 ارسال می کند.

بطور کلی سرویس NAT بر روی Router مرزی كه Packetهای اطلاعاتی که قصد ورود و خروج به شبکه محلي را دارند اجرا مي شود و این ترجمه را دائماً انجام می دهد البته باید توجه داشت که این سرویس به هریک از رايانه های شبکه که قصد رد شدن از این مرز را داشته باشند یک آدرس معتبر اختصاص می دهد و به عبارتی دیگر شبکه ای که روي آن سرویس NAT اجرا شده تنها به تعداد IP معتبر خریداری شده کاربران می توانند بصورت همزمان از شبکه اینترنت استفاده کنند به این صورت كه به محض اتمام کار یک کاربر در خارج از مرز شبکه داخلی، همان IP به اولین کاربر درخواست کننده بعدي اختصاص داده می شود.

Internal Address	External Address
10.0.0.1	14.1.23.1
10.0.0.2	14.1.23.2
10.0.0.3	14.1.23.3
10.0.0.4	14.1.23.4

سرویس NAT جدولی با دو ستون و به تعداد ردیف معادل IP های معتبر خریداری شده را در خود دارد که به محض درخواست کاربران شبکه برای خروج ، IP نامعتبر (Invalid) داخلی را در مقابل IP معتبر ثبت می کند و در هنگامی که جواب این Packet از مقصد بر می گردد با نگاهی به این جدول می فهمد که اطلاعات برای کدام رايانه در شبکه خودش ارسال شده است و هنگامی كه Packet وارد شبکه داخلی شد این IP نامعتبر (Invalid) از جدول پاک می شود و NAT آماده ارائه سرویس به درخواست کننده بعدی می شود همانطور که مشخص است NAT تنها به تعداد ردیف جدول خود می تواند بصورت همزمان ارائه سرویس کند و این بزرگترین ضعف NAT بشمار می رفت.

در ضمن قابل ذکر است که تعریف این جداول در Router به دو صورت استاتیک و داینامیک صورت می گیرد .که نحوه تنظیم آن برعهده مدیر شبکه می باشد و با Config کردن Router آن را مشخص می کند. در روش استاتیک بطور مشخص تعیین می شود که بر فرض برای همیشه آدرس نامعتبر (Invalid) 192 . 10 . 111. 10 برای خروج از مرز شبکه داخلی باید به 101 . 100. 100. 100 تبدیل شود ولی در روش داینامیک این انتخاب برعهده خود NAT گذاشته می شود اولین IP معتبر ممکن را به رايانه درخواست کننده اختصاص می دهد.

یکی از معایب که گاهی متخصصات شبکه آن را بر NAT وارد می دانند مخفی نگه داشتن IP داخلی یک سازمان در ارتباط با شبکه اینترنت می باشد , شما تصور کنید که اگر بتوانید با یک IP نامعتبر (Invalid) داخلی به یک سرویس دهنده در شبکه اینترنت اتصالی غیر مجاز برقرار کنید ، آیا شناسائی می شوید؟ شاید به جرات بتوان گفت که اگر NAT بصورت داینامیک تنظیم شده باشد و از نقل و انتقالات شبکه Log گرفته نشود شما هرگز شناسائی نخواهید شد و مسئولیت این حرکت غيرقانوني به دوش مدیران و مسئولان شبكه مذبور خواهد بود. همین مسئله باعث شده که گاهی شبکه های داخلی شركتها و سازمانها بعنوان پناهگاه هکرها مورد استفاده قرار گیرند.

از ديگر قابليتهاي NAT اتصال دو شبكه محل (LAN) با IP Address هاي مشابه ميباشد كه NAT با ترجمه اين آدرسهاي مشابه از بروز خطا جلوگيري مي نمايد.

توسعه NAT به PAT

از آنجا که بدون شک NAT در اتصال شبکه های بزرگ به اینترنت با مشکل ترافیک برخورد می كرد تصمیم گرفتند ستونی جدید به جدول ترجمه در Router اضافه کنند تا نام درگاه (port) مورد استفاده را در آن ثبت کنند به این طریق می توانستند با ترجمه همزمان IP و Port تعداد بیشتری رايانه را برای اتصال به شبکه اينترنت پیشتیبانی نمایند.

برای مثال 4 رايانه با 4 درگاه (port) متفاوت می توانند فقط با اشغال یک IP معتبر بطور همزمان سرویس بگیرند به این تکنولوژی PAT ( Port Address Translation) ویا سربار گذاری NAT گفته می شود.

Internal Address	External Address
10.0.0.1	14.1.23.5:62450
10.0.0.2	14.1.23.5:62451
10.0.0.3	14.1.23.5:62452
10.0.0.4	14.1.23.5:62453

یکی دیگر از مزایای NAT ویا PAT امنیتی است که این سرویس برای رايانه های داخل شبکه فراهم می آورد ، قطعاً شما از خارج شبکه نمی توانید بدون صدور مجوز از رایانه داخلی به آن دسترسی داشته باشيد چرا که IP آن در اینترنت غیر معتبر است. آیا شما می توانید از منزل با اتصال به اینترنت، رایانه محل کار خود را با آدرس 10.111.10.92 Ping کنید ؟ مسلماً نه.

پيچوندن

tanzania — Tue, 17 Nov 2009 12:24:18 GMT

سلام

خيلي وقت بود جفنگ سرايي نكرده بودم، گفتم بيام و يكم بسرايم.البته براي دل خودم كه حس ميكنم يكم وا شده.يكم فراموش كرده كه چي شده. . . .

امروز هم مثل خيلي از روزهاي ديگه شروع شد و ما هم مثل خيلي از روزاي ديگه خودمونو مشغول كرديم.راستي امروز خدا رحم كرد كه كار بيش از اين خراب نشد.يه پروژه كوچولو موچولو داشتيم كه قرار بود رونمايي كنيم.ما هم كه تو كل عمرمون يه كارا درست انجام نداديم.آخه من عادت ندارم همه وقت و فكرمو بزارم رو يه كار.من مولتي پروسسورم.همه كاره و هيچ كاره.جون آدميزاد تا شير مرغ يا برعكس. خلاصه رفتيمو با كلي خالي بندي مسئول پروژه را اغفال كرديم تا آخرش گفت حالا نظرات ناظر فلان پروژه رو هم بايد تو اين ببيني چون اونا با پروژه شما مرتبطند.تو دلم گفتم كنتر هوشمند چه ربطي به MIS داره.خلاصه خودم يه جوري ربطش دادم و رفتم سراقش.گفت بايد ببينم.منم بردمش سر پروژه ولي حواسم بود جاهاي خراب رو نگاه نكنه ولي فضولتر از اين حرفا بود.به هر جون كندني بود پيچوندمش.آخر كار هم ناظر خودمون كه تازه بعد از دو سال از آلمان اومده بود انگلمون شد و خارجي بازي در آورد.ولي منم كه كم نياوردم.بالاخره ما خارجي ديده ايم و جلوي اينا كم نمياريم .فقط حيف كه هنوز آلماني بلد نشدم تا بزنم تو پوزش.البته كلي با هم رفيقيم.قبلنا هم ناظر ما بود و اهل اذيت نبود ولي از اونجايي كه من اومدم زرنگ بازي در بيارم و جاهاي باحال سيستم را نشونش بدم،گند كار در ميومد و هيچكدوم كار نداد ولي يه دو سه جا كفش (kafesh)بريد و آخر كار كه رفت و منم اعصابم خورد شده بود كه كم آورده بودم .سريع به طراح بانك زنگ زدم.تا گوشيا بر داش سريع گفت .آقا اشتباه شده.بانكا اشتباه برات فرستادم . . . .. .
خلاصه كلي مخ زديم امروز . . . . (البته يه ايراداي بني اسرائيلي هم گرفتن كه من گفتم انجام ميدم ولي خودشونم چار شاخ موندن كه چجوري اين ايرادها رو رفع ميكني ؟؟؟؟!!!!!!! نمي دونن كه ما پرو تر از اين حرفائيم)

خوب امروز شاهكارهاي ديگه اي هم داشتم كه حال نوشتنش نيست فقط يه مطلب ديگه كه گفتنش بد نيست :
فردا شب قرار شد يكي دوتا سرور هاي يه شركت دولتي را سرويس كنيم.البته از لحاظ نرم افزاري و يه سامانه اطلاعاتي روش راه بندازيم.اگه ما را ديگه نديديد بدونيد كه يه جايي با يه چيزي له شديم.!!!!!
يه رفيق باحال داشتم.خدا بيامرز مسئول امنيت شبكه وزارت كشور و مشاور امنيت چندتا بانك خصوصي و خيلي چيزاي ديگه بود.خلاصه خداي شبكه تو ايران بود.اين بنده خدا به دلايلي تو درگيريهاي انتخابات تو يه تصادف شديد روحش رفت به ملكوت و به قول اين فيلم ها ريق رحمتو سر كشيد.راستي اين تيكه آخر فحش هست يا نيست.من اون روزا فكر ميكردم اين جمله زشته ولي وقتي تو فيلمها ديدم فهميدم نه اونقدرا هم زشت نيست !!!!!!!!!!!

Subnetting در يك نگاه

tanzania — Tue, 06 Oct 2009 11:13:18 GMT

برگرفته از مقاله علم الكترونيك و كامپيوتر

Subnetting در يك نگاه

مطالبي كه در اين مقاله خواهيد خواند :

الف ) ظهور Subnetting

ب ) مفهوم Subnetting

ج ) مزايا و معايب Subnetting

د )كاربرد Subnetting

با همه صحبتهائي كه در مورد Subnetting وجود دارد، به راستي هدف مديران شبكه از Subnetting چيست؟

در سازمانها و موسسات بزرگ ، بعضي از زيرمجموعه ها ترجيح مي دهند كه از ديگر مجموعه ها جدا باشند و اين به معني ازهم گسيختگي شبكه بود اگر شما از مديران و يا حتي كارمندان ساده يك سازمان باشيد به خوبي متوجه شده ايد كه بعضي از مديريتها از جمله مديريت مالي سازمان ترجيح مي دهد شبكه اي جدا از بقيه داشته باشد تا امنيت آنها توسط ديگر بخشها به خطر نيفتد و گاهي مدعي هستند كه سرور شبكه بايد در مديريت آنها نصب شود از طرفي بخش IT سازمان براي مديريت كاربران و شبكه نياز به در دسترس بودن تجهيزات در حوزه مديريتي خود را واجب مي داند. اين قبل مشكلات از يك سو و از سوي ديگر نياز به استفاده بهينه از IP براي اختصاص دادن به نودهاي (Node) شبكه نياز به استفاده از Subnetting را پي ريزي كرد.

Subnetting چيست ؟

وقتي از متخصصان شبكه تعريف Subnetting پرسيده مي شود بدون شك خواهيد شنيد: به عمل قرض دادن بيتهاي (bit) Net ID به Host ID در اصطلاح Subnetting مي گويند. ولي شايد چنين جمله اي براي كاربران عادي شبكه نامانوس و گنگ بنمايد.

مباحث مربوط به Subnetting و در كل
IP Addressing از مشكل ترين مفاهيم تئوري شبكه به شمار مي رود و اكثراً داراي درك درستي از آن نيستند .

IP يك آدرس 32 بيتي (4 بايت) است كه هر بايت از بايت ديگر با يك نقطه (dot) جدا شده است و به صورت Decimal (مبناي 10) نمايش داده مي شود.

بنابراين يك IP در مبناي 2 به صورت 11111111.11111111.11111111.11111111 و در مبناي 10 بصورت 255.255.255.255 مي باشد.

در كل آدرسهاي IP به سه دسته تقسيم مي شوند :

الف ) اولين Address IP هر زيردامنه را Network Address مي نامند.

اين IP را نمي توان به هيچ يك از node ( نودهاي ) شبكه اختصاص داد.

ب ) Broadcast Address

آخرين IP Address هر زيردامنه را
Address Broadcast مي نامند.

اين IP تنها در مواقعي استفاده مي شود كه قصد ارسال Data به تمام نودهاي شبكه را داشته باشيم.

ج ) Host Address :

تمام آدرسهايي (Address IP) را كه مي توان به نودهاي شبكه اختصاص داد،
Host Address مي گويند.

در واقع عمل Subnetting بر روي Host Address صورت مي گيرد.

خود Address IP داراي دو بخش Network ID و
Host ID مي باشد.

بيتهاي ID Network همه يك مي باشد و بيتهاي
ID host مي تواند صفر يا يك باشند . در حقيقت با تغيير در اين بيتها،IP Address هاي مختلف ساخته
مي شود. براي مثال، در آدرس
(11111111.11111111.11111111.00000000)24 بيت اول جزء ID Network هستند و 8 بيت آخر جزء ID Host مي باشد. به عبارتي اين Range مي تواند يك SEGMENT با حداكثر تعداد 2-2⁸باشد. (هشت بيت كه هر كدام 2 حالت دارد و 2 عدد از Address IP ها را نمي توان به Node اختصاص داد كه يكي Network Address و ديگري
broadcast Address مي باشد) حالا فرض كنيد كه يك ساختمان 2 طبقه داريد و مي خواهيد با استفاده از يك آدرس كلاس c (255.255.255.0) به نودهاي (Node) هر دو طبقه كه هر كدام داراي 100 نود هستند، IP بدهيد.

همين جاست كه Subnetting ظهور مي كند و مانع هدرروي IP Address مي شود. اگر Subnettingنبود براي هر طبقه مجبور به استفاده از يك كلاس c بوديم كه هر كلاس 2-2⁸IP مي دهد و اين بيانگر هدرروي بيش از نيمي از IP ها در هر طبقه مي باشد كه در كل معادل يك كلاس C هدر مي رود.

همانطور كه ذكر شد
فرمت يك IP در كلاس C به شكل
11111111.11111111.11111111.00000000
مي باشد. Subnet Mask نشان دهنده ارزش تعداد بيتهاي جزء Network ID يك كلاس مي باشد.

در كلاس بالا Subnet mask برابر با 255.255.255.0مي باشد. حالا براي تغيير اين كلاس به 2 زيرشبكه يكي از بيتهاي ID Host را يك
مي كنيد تا IP به شكل 11111111.11111111.11111111.10000000
تبديل شود. حالا 25 بيت اول را جزء ID Network مي گيريم و 7 بيت آخر را جزء ID host كه با اين تعريف Subnetting در IP جديد برابر با 255.255.255.128 مي باشد كه مي تواند 2-2⁷نود را آدرس دهي كند.

اگر دقت كرده باشيد آن يك بيت از بخش ID Host به ID Network منتقل شد و اين همان تعريف Subnetting مي باشد.

حال با اختصاص يكي از Range ها به طبقه اول و اختصاص Range ديگر به طبقه دوم ساختمان مذكور در هر طبقه 2-2⁷ آدرس خواهيم داشت.

توجه داشته باشيد كه در هر بار عمل Subnetting دو عدد از IP ها غيرقابل استفاده مي شوند و اين به آن دليل است كه هر كدام از زيرشبكه ها داراي يك Network Address و يك Broadcast Address جدا مي شوند و همانطور كه گفته شد اين دو عدد IP غير قابل اختصاص هستند.

كاربردهاي عملي Subnetting :

همانطور كه اشاره شد ، در حال حاضر يكي از پراستفاده ترين مكانها از اين تكنولوژي شبكه هاي بزرگ و يا حتي كوچك ولي پراكنده هستند تا به راحتي بدون اينكه كوچكترين جابه جايي در تجهيزات بدهيم و يا اينكه شبكه را منقطع كنيم IP ها را دسته بندي كنيم (Range) و هر كدام از دسته ها را بايك Subnetting مجزا به يك روتر ) Router) ارجاء مي دهيم و بقيه كار را به روترها مي سپاريم.

توجه داشته باشيد در Subnetting براي اتصال زيرشبكه ها به يكديگر حتماً از يك Router بهره ببريد. كاربران حرفه اي شبكه Router را يك switch لايه 3 مي شناسند و به اصصلاح
مي گويند براي اتصال هر زيرشبكه بايد از يك switch ( سوئيچ) لايه سه استفاده كرد همانطور كه متوجه شديد در اين روش زيرشبكه از ديد يك كاربر داخلي به مانند يك شبكه مجزا كار مي كند .

در پايان خاطرنشان مي كنم Subnetting يكي از مباحث تئوري و پايه در طراحي شبكه مي باشد كه متاسفانه اكثر متخصصان شبكه مباحث تئوري را جدي نمي گيرند و فقط مباحث عملي را دنبال
مي كنند. ولي به هر حال يك طراح شبكه هرگز بدون در نظر گرفتن مباحث و ديدگاههاي نظري نخواهد توانست شبكه اي ايمن و كارآمد را طراحي كند.

شايد همين موضوع دليلي باشد تا هم اكنون نهادهائي كه امنيت را محور اصلي شبكه خود
مي دانند مبالغ زيادي را براي تعيين محدوده (Range) IP زيرشبكه هاي خود به متخصصيني كه به مباحث تئوري شبكه مسلط هستند مي پردازند.

معايب Subnetting :

گاهي مشكلات تعريف IP هاي هر محدوده ( Range) به Routing Table يك مسير ياب و گاه تقسيم نامناسب IP ها در بخشهاي مختلف (Segment) شبكه را از معايب عمل Subnetting مي دانند .

بوي مرگ مياد

tanzania — Sun, 27 Sep 2009 13:37:18 GMT

سلام به همه

نميدونم چي بنويسم.اينقدر تو اين دو هفته چيزاي مختلف ديدم كه چندوقتيه واقعاً سرعت كارام كند شده .يا بقول دوستان شبكه ايمون پردازش سوئيچهاي شبكه افتاده رو كامپيوترها واين باعث كند شدن كامپيوترها شده اونم تو يه شبكه با دو سه هزار كامپيوتر.

اول از همه اينكه امسال تو ماه رمضون به يه چيزي رسيدم كه دو سه سال بود بدجور دنبالش بودم و مثل هميشه تو شب قدر خواستم و خود خدا مثل سالهاي پيش حاجتمو دقيقاً تو روز بعدش داد. اينجا جا داره كه براي بار شونصدم از خداي خودم تشكر كنم.خدا جوني فدات كه با اين همه بي معرفتي از طرف من تو بازم نشون دادي كه خيلي گلي خيلي بامعرفتي خيلي . . . .

يكم سخته با اين شرايط كنار بيام ولي كنار ميام چون استخاره كردم و شنيدم كه نبايد الكي اصرار كنم.اگه يك هفته قبلش خودمو آماده نكرده بودم شايد الان مرده بودم.بازم شكرت خدا.

خوب دوباره تنها شديم.البته بوديم . . .

جمعه رفتم يه جاي باصفا .البته من كه صفايي نديدم.شايد چشما و دلم ديگه اهل صفا نيست كه نميبينه!!!!!!

يه عالمه مناره بزرگ داشتن ميساختند شايد هزينه هر كدومشون ميتونست زندگي 4 يا 5 نفري را زيرا رو كنه.همون پاي مناره ها يه عالمه بچه مچه آويزون ملت بودن تا يه چيزي بهشون كمك كنند و يا يه چيزي بخرند.نميدونم شايد اگه يه روزي امام زمان بياد همون منارو تو كون همون آدما بكنه كه اسراف ميكنند و ميگن اسراف حرامه.

راستي اسراف درسته يا اصراف؟؟خوب معلومه ديگه . . .. .

اصلاً حس نوشتن ندارم.دلم خيلي خرابه.خيلي خيلي.فكر نكنم به اين زوديا درست بشه.ولي وقتي درست فكر ميكنم ميبينم ما خرابتر از اينيم كه بشه حتي فكرشم كرد.گاهي فكر ميكنم و ميگم فلاني نكنه باختي ؟ولي نه براي اونايي كه ميبازن خيلي متاسفم.خيلي خيلي . . . . .

چند روزيه كه هيچي ننوشتم حتي تو سر رسيدم.حوصله هيچكسي رو ندارم

تا بعد.

آموزش excel در vb6

tanzania — Sat, 05 Sep 2009 07:07:18 GMT

سلام

جديدنا مجبور شدم يه برنامه بنويسم كه با اكسل كار كنه . . . .

از اونجايي كه هيچ زبون به درد بخوري دم دستم نبود .كار هم ضرب العجلي بود مجبور شدم دست به دامن VB6 بشم.آخه اينو بخاطر يه بنده خدايي هرجا رسيدم نصب كردم.

با اينكه برا ما خفته با اين كار كنيم ولي چه ميشه كرد ديگه.گاهي بايد تن به خفت داد.

كد زير به راحتي با فايل اكسل ارتباط داره و يه فاكتور توپ توش ميسازه. . . .

فايل برنامه را نميدم چون حالشو ندارم ولي كدش ميتونه به درد خيليا بخوره.پس برداريد و يه دعا در حق امواتمون بكنيد.

تو اين ماه رمضوني هم ما را دعا كنيد بلكه آدم شيم !!!!!

Dim r As Integer
Dim num As String
Dim mApplication As New Excel.Application
Dim mWorkbook As New Excel.Workbook
Dim mWorksheet As New Excel.Worksheet

Private Sub Command1_Click()
r = r + 1

mWorksheet.Cells.Range("g" & (8 + r)).Borders(xlEdgeLeft).LineStyle = 6 'xlLineStyleContinuous
mWorksheet.Cells.Range("g" & (8 + r)).Borders(xlEdgeRight).LineStyle = 6 'xlLineStyleContinuous
mWorksheet.Cells.Range("g" & (8 + r)).Borders(xlEdgeTop).LineStyle = 1 'xlLineStyleContinuous
mWorksheet.Cells.Range("g" & (8 + r)).Borders(xlEdgeBottom).LineStyle = 1 'xlLineStyleContinuous
mWorksheet.Cells.Range("g" & (8 + r)).Formula = r

mWorksheet.Cells.Range("f" & (8 + r)).Borders(xlEdgeLeft).LineStyle = 6 'xlLineStyleContinuous
mWorksheet.Cells.Range("f" & (8 + r)).Borders(xlEdgeRight).LineStyle = 6 'xlLineStyleContinuous
mWorksheet.Cells.Range("f" & (8 + r)).Borders(xlEdgeTop).LineStyle = 1 'xlLineStyleContinuous
mWorksheet.Cells.Range("f" & (8 + r)).Borders(xlEdgeBottom).LineStyle = 1 'xlLineStyleContinuous
mWorksheet.Cells.Range("f" & (8 + r)).Formula = Text1.Text

mWorksheet.Cells.Range("e" & (8 + r)).Borders(xlEdgeLeft).LineStyle = 6 'xlLineStyleContinuous
mWorksheet.Cells.Range("e" & (8 + r)).Borders(xlEdgeRight).LineStyle = 6 'xlLineStyleContinuous
mWorksheet.Cells.Range("e" & (8 + r)).Borders(xlEdgeTop).LineStyle = 1 'xlLineStyleContinuous
mWorksheet.Cells.Range("e" & (8 + r)).Borders(xlEdgeBottom).LineStyle = 1 'xlLineStyleContinuous
mWorksheet.Cells.Range("e" & (8 + r)).Formula = Text2.Text

mWorksheet.Cells.Range("d" & (8 + r)).Borders(xlEdgeLeft).LineStyle = 6 'xlLineStyleContinuous
mWorksheet.Cells.Range("d" & (8 + r)).Borders(xlEdgeRight).LineStyle = 6 'xlLineStyleContinuous
mWorksheet.Cells.Range("d" & (8 + r)).Borders(xlEdgeTop).LineStyle = 1 'xlLineStyleContinuous
mWorksheet.Cells.Range("d" & (8 + r)).Borders(xlEdgeBottom).LineStyle = 1 'xlLineStyleContinuous
mWorksheet.Cells.Range("d" & (8 + r)).Formula = Combo1.Text

mWorksheet.Cells.Range("c" & (8 + r)).Borders(xlEdgeLeft).LineStyle = 6 'xlLineStyleContinuous
mWorksheet.Cells.Range("c" & (8 + r)).Borders(xlEdgeRight).LineStyle = 6 'xlLineStyleContinuous
mWorksheet.Cells.Range("c" & (8 + r)).Borders(xlEdgeTop).LineStyle = 1 'xlLineStyleContinuous
mWorksheet.Cells.Range("c" & (8 + r)).Borders(xlEdgeBottom).LineStyle = 1 'xlLineStyleContinuous
mWorksheet.Cells.Range("c" & (8 + r)).Formula = Text3.Text

mWorksheet.Cells.Range("b" & (8 + r)).Borders(xlEdgeLeft).LineStyle = 6 'xlLineStyleContinuous
mWorksheet.Cells.Range("b" & (8 + r)).Borders(xlEdgeRight).LineStyle = 6 'xlLineStyleContinuous
mWorksheet.Cells.Range("b" & (8 + r)).Borders(xlEdgeTop).LineStyle = 1 'xlLineStyleContinuous
mWorksheet.Cells.Range("b" & (8 + r)).Borders(xlEdgeBottom).LineStyle = 1 'xlLineStyleContinuous
mWorksheet.Cells.Range("b" & (8 + r)).Formula = "=" & ("e" & (8 + r)) & "*" & ("c" & (8 + r))

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

End Sub

Private Sub Command2_Click()
num = GetSetting("goudarzi_fac", "Setting", "value")
If num = "nothing" Then
Call SaveSetting("goudarzi_fac", "Setting", "value", 1000)
Else
Call SaveSetting("goudarzi_fac", "Setting", "value", Val(num) + 1)
End If
''''''''''''''''''''''''''
Set mWorkbook = mApplication.Workbooks.Open("c:\fac\1.xls")
'Set mWorkbook = mApplication.Workbooks.Add
'mApplication.Workbooks.Add
Set mWorksheet = mWorkbook.Sheets("ÝÇßÊæÑ")
'Set mWorksheet = mWorkbook.Sheets.Add
'mWorksheet.Name = "ÝÇßÊæÑ"
'''''''''''''''''''''
'mWorksheet.Cells.Font.Color = RGB(255, 2, 100)
'mWorksheet.Cells.Font.Bold = True
'mWorksheet.Cells.Font.Name = "zar"
'mWorksheet.Cells.Font.Size = 8
mWorksheet.Cells.Range("b2").Formula = num
mWorksheet.Cells.Range("b3").Formula = MiladiToShamsi2(Format(Now, "YYYY/MM/DD"))
mWorksheet.Cells.Range("f4").Formula = Text4.Text
mWorksheet.Cells.Range("b4").Formula = Text5.Text
mWorksheet.Cells.Range("b5").Formula = Text6.Text

mWorksheet.Cells.Range("g8").Formula = "ÑÏíÝ"
mWorksheet.Cells.Range("f8").Formula = "äæÚ ÌäÓ"
mWorksheet.Cells.Range("e8").Formula = "ÊÚÏÇÏ"
mWorksheet.Cells.Range("d8").Formula = "æÇÍÏ"
mWorksheet.Cells.Range("c8").Formula = "ÞíãÊ æÇÍÏ"
mWorksheet.Cells.Range("b8").Formula = "ÌãÚ"
'''''''''''''''''''''''''
Frame1.Visible = False
Frame2.Visible = True

End Sub

Private Sub Command3_Click()

mWorksheet.Cells.Range("b" & (9 + r)).Borders(xlEdgeLeft).LineStyle = 6 'xlLineStyleContinuous
mWorksheet.Cells.Range("b" & (9 + r)).Borders(xlEdgeRight).LineStyle = 6 'xlLineStyleContinuous
mWorksheet.Cells.Range("b" & (9 + r)).Borders(xlEdgeTop).LineStyle = 6 'xlLineStyleContinuous
mWorksheet.Cells.Range("b" & (9 + r)).Borders(xlEdgeBottom).LineStyle = 6 'xlLineStyleContinuous
mWorksheet.Cells.Range("b" & (9 + r)).Formula = ("=sum(" & "b" & (8 + 1) & ":" & "b" & (r + 8) & ")")

'mApplication.SaveWorkspace
mWorksheet.PrintOut
'mApplication.Visible = True
mWorkbook.SaveAs ("c:\fac\" + num + ".xls")

End Sub

Private Sub Command4_Click()
On Error GoTo er:
Set mWorkbook = mApplication.Workbooks.Open("c:\fac\" & Text7.Text)
Set mWorksheet = mWorkbook.Sheets("ÝÇßÊæÑ")
'mWorksheet.PrintOut
mApplication.Visible = True
End
er:
MsgBox ("äíä ÔãÇÑå ÝÇßÊæÑí ËÈÊ äÔÏå ÇÓÊ")

End Sub

Private Sub Command5_Click()
On Error GoTo er:
Set mWorkbook = mApplication.Workbooks.Open("c:\fac\" & Text7.Text)
Set mWorksheet = mWorkbook.Sheets("ÝÇßÊæÑ")
mWorksheet.PrintOut
'mApplication.Visible = True
End
er:
MsgBox ("äíä ÔãÇÑå ÝÇßÊæÑí ËÈÊ äÔÏå ÇÓÊ")
End Sub

Private Sub Form_Load()
Frame2.Visible = False

Combo1.Text = "æÇÍÏ"
Combo1.AddItem ("ÚÏÏ")
Combo1.AddItem ("ãÊÑ")
End Sub

پ.ن
فقط خواهشن كسي نگه كه نفهميده.
اگه كسي قرار باشه بفهمه با همين چندخط ميفهمه.

راه اندازی FTP SERVER

tanzania — Wed, 26 Aug 2009 05:10:17 GMT

بسمه تعالی

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

راه اندازی FTP SERVER

بر روی Windows XP

مواردي كه در اين مقاله آمده است.

- مقدمه

- راه اندازي FTP Server به كمك IIS

- راه اندازي FTP Server به كمك نرم افزار

- مزاياي نرم افزارهاي FTP Server

- عيب يابي و مشكلات احتمالي در اتصال به FTP

مقدمه :

اگرشما از کاربران حرفه ای سیستم عامل windows هستید و فایلهای خود را بین چند رایانه به اشتراک گذاشته اید حتماً تاکنون به داشتن یک فضای مشترک بین همه کامپیوترهای شبکه فکر کرده اید. یکی از قدیمی ترین و البته شاید مناسب ترین روشها راه اندازی سرویس FTP (File Transfer protocol) بر روی یکی از سیستم عاملهای شبکه می باشد.

سرویس گیرنده این سرویس (FTP Client) بطور معمول بر روی تمام سیستم عاملهای windows فعال می باشد ولی سرویس دهنده FTP یا همان FTP Server تقریباً در تمام نسخه های Windows به غیر از Server 2003 غیر فعال

می باشد و برای نصب آن باید پکیج IIS (Internet Information Services) را نصب نمود. البته توجه داشته باشید که FTP Server در XP Windows فقط در نسخه Professional ارائه شده است.

این سرویس با Protocol قدیمی 21 و در لایه Application مدل OSI فعالیت می کند. در حال حاضر کارشناسان شبکه استفاده از FTP را از لحاظ امنیتی توصیه نمی کنند و اعتقاد دارند که استفاده از Protocol 21 برای مواقعی بود که Protocol 80 فراگیر نشده بود. ولی با این همه در حال حاضر بسیاری از نقل و انتقالات سنگین شبکه با کمک سرویس FTP صورت می گیرد.

راه اندازی FTP Server :

جهت فعال سازی این سرویس بر روی Windows xp از دو روش کلی بهره می برند.

1) نصب IIS و انجام تنظیمات FTP Server

2) نصب یک نرم افزار FTP Server بر روی سیستم عامل

به منظور نصب IIS به مسیر Control panel\Add or RemovePrograms\Add\Remove windows components رفته و از لیست Components گزینه IIS ( Internet Information Services) را انتخاب و ok کنید.

پس از انجام موفقیت آمیز مراحل فوق سرویس FTP بر روی رایانه شما فعال شده است.

تنظیمات پیش فرض این سرویس بگونه است که پوشه ای در مسیر C:\Inetpub\ftproot بعنوان فضای مشترک انتخاب می شود.

اگر شما مایل به ایجاد تغییر تنظیمات پیش فرض هستید می توانید به مسیر C:\Control panel\Administrative tools\Internet Information Services رفته و با انجام راست کلیک بر روی گزینه FTP Sites و انتخاب Properties تنظیمات را مشاهد و تغییر دهید.

در این قسمت شما قادر به انتخاب کاربر ، اعمال محدودیتها و یا پیغامها به کاربران هستيد.

شاید شما نیاز به ایجاد یک مسیر مجازی (Virtual Directory) داشته باشید تا بتوانید مسیرهای متفاوتی را به اشتراک بگذارید.

برای اين منظور کافیست روی Default FTP Sites راست کلیک نموده و از منوی New گزینه Virtual Directory را انتخاب نمائید.

پس از طی مراحل Wizard مربوطه شما یک Virtual Directory خواهید داشت.

برای دسترسی به فضای FTP می توانید از یک نرم افزار FTP Client استفاده کنید. البته ساده ترین راه تایپ عبارت( FTP : // IP Address (127.0.0.1 در پنجره Run (Start\run) می باشد.

همچنین برای ورود به فضای مجازی مي توانيد عبارت

FTP ://IP Address/virtual directory name

را در پنجره Run وارد نمائید.

نکته : تایپ کردن مسیر FTP در Address Bar پنجره ها و یا برنامه IE نيز شما را به FTP راهنمائی می کند.

نصب یک نرم افزار FTP Server :

اگر شما دوست دارید کاربران زیادی به سیستم شما متصل شوند و فایلها را جابجا کنند ، پیشنهاد من به شما استفاده از اینگونه نرم افزارها می باشد.

یکی از ابزارهای معروف در این زمینه FTP Server Filezilla می باشد. این نرم افزار بسیار ساده و راهگشا می باشد .

و بطور رایگان در آدرس http://filezilla-project.org/download.php?type=server قابل Download و نصب می باشد. این برنامه در هر بار روشن شدن سیستم، سرویس خود را فعال می نماید و امکان استفاده از آن فراهم می گردد.

پس از اجرای برنامه در اولین قدم شماره port و آدرس Server مورد نظر از شما سوال

می شود.

بهترین گزینه ها انتخاب آدرس 0.1. 0. 127 به عنوان آدرس Server و port شماره 14147 بعنوان درگاه اتصال برنامه می باشد.

حال از منوی Edit گزینه User را انتخاب کنید و کاربران و مسیرهای دسترسی را با محدودیتهای مورد نظرتان تعريف نمائید.

اگر همه چیز خوب پیش رفته باشد ، شما هم اکنون از سرتاسر شبکه به فضای FTP دسترسی خواهید داشت.

کافیست عبارت FTP : // IP Address را در Address Bar یک پنجره وارد نموده و مشخصات Acount خود را وارد نمائید.

نکته قابل ملاحظه در استفاده از این گونه نرم افزارها، قابلیت ارائه این سرویس بر روی تمامی سیستم عامل ها می باشد. بعنوان مثال نرم افزار Filezilla بر روی Windows 2000 ، تمامی نسخه های Windows Xp و حتی Windows Vista قابلیت نصب و راه اندازی

دارد .

رفع عیب FTP Server :

اگر شما تمامی مراحل نصب سرویس را به درستی انجام داده اید ولی هنوز هیچ کاربری

نمی تواند به FTP متصل شود . به احتمال زیاد

Fire Wall سیستم عامل مجوز اتصال به Server را به کاربران نمی دهد. یکی از تنظیمات اولیه دیوار آتش سیستم عامل، مسدود کردن درگاه 21 می باشد.

شما با تنظیم دیوار آتش ویا خاموش کردن آن مانع دخالتFire Wall در اتصال به FTP خواهید شد.

اگر پس از خاموش کردن (OFF) دیوار آتش (Fire Wall)، همچنان درخواست اتصال به FTP با پیغام FTP Folder Error مواجه می شود به طور حتم

برنامه Internet Explorer در حالت Work Offline می باشد ، با انتخاب منوی Tools گزینه Work Offline را از حالت انتخاب خارج نمائید و مجدداً برای اتصال به FTP سعی نمائید.

توجه داشته باشید که نمی توان از نرم افزار FTP Server همزمان با سرویس FTP موجود در IIS استفاده کرد و برای استفاده از هرکدام باید آن یکی را غیر فعال (STOP) نمائيم .

چه کسی بهتر دروغ می گوید؟

tanzania — Tue, 18 Aug 2009 09:39:18 GMT

سلام

امروز بعد چند وقت دوباره بيكار شدم.اينقدر بيكار كه اين متنو دوبار تابپ كردم.. . . . (گند بزنند هر چي آدم فضول و گه كاره)

صبح داشتم دنبال يه مطلبي ميگشتم و كلي اينترنت و چرخ ميزدم.به مطالبي رسيدم كه برام جالب بود.از اون جهت كه تهش به مطالبي رسيدم كه سالهاي پيش به عنوان مقاله به ملت داده بودم و از شانس ما بعضي مجلات هم چاپ کرده بودند .(ظاهراً فكر كرده بودند ما مطلب علمي نوشتيم).البته برام از اين جهت جالب بود كه هيچ كدوم از اين با معرفتها اسم منبع رو نگفته بودند و همه به نام مبارك خودشون متنو ولو كرده بودند اون كف.البته من بعد مشاهده لبخندي زدم و گفتم دزد كه به دزد بزنه شاه دزد ديگه . .. وبعد تو دلم بهشون گفتم احسن .

راستي قبلها فكر ميكردم هر چيزي تو دنياي واقعي باشد بطور حتم در اينترنت هم وجود داره ولي تازگي ها فهميدم نه برادر اينطورهام نيست.هستند چيزهايي كه واقعيت دارند و تو وب نيستند.

يه چيز ديگه هم جديدنا فهميدم.قبلها فكر ميكردم براي گفتن يه دروغ بزرگ بايد قيافه جدي گرفت و با اخم مطلب را گفت تا همه بدون فكر باور كنند ولي حالا فهميدم بزرگترين و احمقانه ترين دروغ ها را هم اگه آدمها و منابع اطلاعاتي بزرگ بگن همه باور ميكنند حتي دانشمندان .

براي نمونه چند وقت پيش يه خبر خيلي باحال و خنده دار تو وب پخش شد كه ميگفت ميشه يه دستگاه MP3 Player را فقط با يك پياز شارژ كرد.تازه كلي مطلب علمي هم در اثبات اون بيان شده بود .اين خبر بعد از اينكه چندتا از برادرين هم رزم ما ترجمه كردند و تو بلاگها و خبرگزاري ها گذاشتند بطور وسيع سر از مجلات و مقالات و حتي بدتر به وب سايتهاي دانشگاههاي بزرگ ما رسيد. براي نمونه يه لينك سادشو اين زير گذاشتم .

http://www.facefa.com/blog.phpuser=10623&blogentry_id=4516

بعد از يك هفته از اينكه اين خبر همه جاي دنيا را گرفت.خود وب سايتي كه اين خبر را پخش كرده بود (يه شركت معروف) اعلام كرد ما شوخي كرده بوديم بچه ها چقدر شما ساده ايد . . . .

خوب من الان خسته شدم.بعداً اگه حالشو داشتم يه چيزايي ته اينجا اضافه ميكنم .

دلگيري بر روي خستگي

tanzania — Wed, 12 Aug 2009 11:51:38 GMT

سلام

زنگ زد .تو ماشین بود.صدای بقیه هم میومد.
گفت : كاري داري كه sms دادی برنرگردم.
گفتم : بمون من امشب میام اونجا.
گفت : تو که نمیای.اینجا ترکیدیم از تنهایی.حوصلمون سر رفت.
گفتم : خوب نمیشه بیام.
گفت : چرا میشه .بپیچون بیا.
گفتم : حالا داری بر میگردی.
گفت : آره دیگه ۹ میرسم اونجا.تو کی می خوای بیای
گفتم : من ۹ راه میفتم از اینجا.تا ساعت ۸ گیرم.
بعد کمی حرف زدیم و قطع کردیم. . . . . . .
باورم نمی شد که فکر کنه من میتونستم برم و نرفتم.قبول دارم باور اینکه یکی مثل من نتونه چند روز بپیچونه کمی باورنکردنیه ولی . . . .. . .

چجور باید برای دوستی که شاید تنها کسی باشه که میدونه خیلی حواسم بهش هست توضیح بدم که پسر به والله نمی شد بیام.
خودتون قضاوت کنید با شرایط زیر می شد برم . . .
ا - حدوداْ ۲۰ روز غیبت (البته موجه)در یک ماه اخیر
۲- حجم شدید کار با الویت بالا برای کسانی که تحمل یک ساعت تاخیر را هم ندارند (چون ممکنه پست خودشونو از دست بدهند)
۳- برخورد زمان برگزاری جلسه ای که ۲ ماه هماهنگ شده و عده ای از اون کله کشور میان تا برگزار بشه با روزی که دوست ما می خواست اونجا باشم.
۴- برخورد زمانی برگزاری یکی از مهمترین جلسات یک کلاس تخصصی که هزینه نسبتاْ زیادی برای متحمل شدم.
و چندتا چیز جزئی دیگه که میشد از اونها گذشت.

الان که نوشتم با خودم گفتم :
پسر نکنه به خاطر خودخواهی بخاطر نگذشتن از خواسته هات بخاطر لجبازی و یا هر چیز دیگه ای نرفتی . . . .
ولی نه .با اینکه خیلی دلم میخواست برم و کمی استراحت کنم ولی نشد.نتونستم.
اگه ۲۰ روز غیبت داشتم ۱۵ روزش اجباری بود و اون ۵ روزش هم بخاطر اقوام نه برای تفریح خودم.
اگه حجم کار بالا رفته به جان خودم من هم دوست ندارم مثل اسب کار کنم.
اگه مجبور شدم تو اون جلسه کشکی باشم فقط بخاطر این بود که ۳۵ میلیون ضرر ندم.بخاطر این بود که نگن اینها هیچی کار نکردن و ....
اگه مجبورم این کلاس رو برم بخاطر اینه که اونقدری وقت و پول ندارم که یه روز دیگه بجای این جلسه برم.
اگه تو یک هفته اخیر بدون استراحت،پشت سر هم جون ميكندم بخاطر اين بوده كه داشتم جور اون ۲۰ روزا ميكشيدم بخاطر اين بوده كه داشتم جور بدقوليه يكي از اعضاي خانواده تو كه فقط با سفارش تو بهش اعتماد كردم را ميكشيدم.

باشه . . . . .
خستگي ها ،بي خوابي ها و نامردمي هاي اين هفته يك طرف، حرف تو هم كه در قالبي دوستانه بيان شد ولي تونست قلب خسته ام را كمي غمناكتر كنه يه طرف . . . ..

ديگه نوشتن يادم رفته .خوبه گاهي همچين چيزهاي آدم را دست به دامن نوشتن بكند.گرچه اين روزها همه اينقدر دلگيرند كه حس نوشتن هم مرده . . .