حل تمرینات فصل 12

سوال 3 صفحه 135:

Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(InputBox("Enter number a :"))
b = Val(InputBox("Enter number b :"))
If b <> 0 Then Form1.Print a \ b Else Form1.Print "not defined"
End Sub

سوال 4 صفحه 135:

كد:

Dim yy0 As Integer, mm0 As Integer, dd0 As Integer
Dim yy As Integer, mm As Integer, dd As Integer
Dim y As Integer, m As Integer, d As Integer
Private Sub Command1_Click()
yy0 = Val(Text1.Text)
mm0 = Val(Text2.Text)
dd0 = Val(Text3.Text)
dd = Day(Date)
mm = Month(Date)
yy = Year(Date)
Print yy, mm, dd
If dd < dd0 Then
mm = mm - 1
dd = dd + 30
End If
d = dd - dd0
If mm < mm0 Then
yy = yy - 1
mm = mm + 12
End If
m = mm - mm0
If yy >= yy0 Then
y = yy - yy0
Else
MsgBox "not valid"
Exit Sub
End If
Print yy0, mm0, dd0
Print "sal="; y, "mah="; m, "rooz"; d
End Sub

سوال 5 صفحه 135:

كد:

Dim a As Integer, b As Integer, c As Integer, delta As Integer
Dim x1 As Single, x2 As Single
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
delta = b ^ 2 - 4 * a * c
If delta >= 0 Then
x1 = (-b + Sqr(delta)) / (2 * a)
x2 = (-b - Sqr(delta)) / (2 * a)
MsgBox "x1=" + Str(x1) + " " + "x2=" + Str(x2)
Else
MsgBox "Not Root"
End If
End Sub

سوال6صفحه 135:

كد:

Dim citynam As String, cnam1 As String, cnam2 As String
Dim max As Integer, min As Integer, dama As Integer
Private Sub Command1_Click()
citynam = InputBox("Enter a city name : ")
dama = Val(InputBox("enter dama : "))
cnam1 = citynam
cnam2 = citynam
max = dama
min = dama
For i = 2 To 10
citynam = InputBox("Enter a city name : ")
dama = Val(InputBox("enter dama : "))
If min > dama Then
cnam1 = citynam
min = dama
End If
If max < dama Then
cnam2 = citynam
max = dama
End If
Next
Form1.Print "shahr="; cnam1, "minimum dama="; min
Form1.Print "shahr="; cnam2, "maximum dama="; max
End Sub

سوال 7صفحه 135:

كد:

Dim salary As Long
Private Sub Command1_Click()
salary = Val(InputBox("Enter hoghogh : "))
If salary <= 200000 Then
MsgBox salary
Exit Sub
End If
If salary <= 800000 Then
MsgBox salary - (salary - 200000) * 0.1
Exit Sub
Else
MsgBox salary - (salary - 800000) * 0.12
Exit Sub
End If
End Sub

سوال 8صفحه 135:

كد:

Dim n As Integer
Private Sub Command1_Click()
n = Val(InputBox("Enter number n : "))
Y1 = n Mod 10
n = n \ 10
Y2 = n Mod 10
n = n \ 10
y3 = n Mod 10
y4 = n \ 10
Form1.Print Y1 * 1000 + Y2 * 100 + y3 * 10 + y4
End Sub

سوال 9صفحه 135:

Dim k As Integer, c As Integer
Private Sub Command1_Click()
k = 12
c = 0
Do While k < 100
c = c + 1
Form1.Print k
k = k + 3
Loop
Print "tedad="; c
End Sub

سوال 10صفحه 135:

Dim no As Byte
Private Sub Command1_Click()
no = Val(InputBox("Enter a day of week : "))
Select Case no
Case 1
MsgBox "Shanba"
Case 2
MsgBox "yek Shanba"
Case 3
MsgBox "dow Shanba"
Case 4
MsgBox "seh Shanba"
Case 5
MsgBox "chohar Shanba"
Case 6
MsgBox "panj Shanba"
Case 7
MsgBox "jomah"
Case Else
MsgBox "not valid"
End Select
End Sub

سایت آمازون

سایت آمازون، بزرگ ترین خرده فروشی آنلاین جهان بیش از ۸۰ انبار عظیم برای ارائه خدمات و تحویل اجناس به بیش از ۳۰ میلیون مشتری در اقصی نقاط جهان افتتاح کرده است. مساحت هر یک از این انبارها 1.2 میلیون متر مربع و تسمه نقاله های غول پیکر است و کلیه مراحل انبارداری، بسته بندی، الصاق بارکد و تحویل به مشتریان توسط هزاران کارگر انجام می گیرد. برایان ترسمال، مدیر انبار سایت آمازون در بریتانیا می گوید:" یکی از رازهای موفقیت سایت آمازون اجرای سیستم انبارداری سنتی است که توسط کارگران انجام می شود." 

این شرکت فعالیت جدی خود را در سال ۱۹۹۵ با عنوان فروشگاه آنلاین کتاب، آغاز کرد، سپس اقدام به فروش محصولات نو یا دست‌دوم از طریق اینترنت نمود. شرکت آمازون هم‌اکنون کتاب، سی‌دی، دی‌وی‌دی، بسته‌های نرم‌افزاری و حتی کفش و لباس نیز عرضه می‌کند و امروزه بیشترین درصد فروش را در بین سایر فروشگاه‌های اینترنت دارد. یکی از دلایل موفقیت این شرکت، استفاده از سیاست همکاری در فروش بوده است، که باعث شده تعداد فراوانی کار به صورت مستقیم و غیرمستقیم نیز ایجاد شود.

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

تلگرام چقدر امن است؟

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

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

تلگرام چقدر امن است؟

برای بیشتر ما حریم خصوصی معنی تعریف‌شده‌ای ندارد و بیشتر افراد وقتی متوجه خطرات ناشی از نقض آن می‌شوند بسیار دیر شده و تبعات محسوسی در زندگی آنها باقی می‌گذارد. طبق ادعای سازندگان، امنیت این اپلیکیشن از طریق رمزگذاری متقارن 256 بیتی AES و چند پروتکل دیگر اجرا می‌شود. براساس اطلاعات اعلام شده توسط خود تلگرام، این سرویس از دو لایه رمزنگاری برای انتقال پیام‌ها استفاده می‌کند. رمزنگاری سرور ـ کاربر که برای مکالمات عمومی استفاده می‌شود و رمزنگاری کاربر ـ کاربر که تنها در مکالماتی که با تنظیمات Secret Chat انجام می‌شود کاربرد دارد. همچنین این شرکت برای نمایش امنیت پروتکل رمزنگاری خود، جایزه‌ای 300 هزار دلاری را برای نخستین کسی که بتواند آن را رمزگشایی کند تعیین کرده که تاکنون نیز برنده‌ای برای آن اعلام نشده ‌است. از نظر شفافیت نیز جای بحث چندانی وجود ندارد، زیرا این نرم‌افزار متن‌باز تمام افراد علاقه‌مند را به بررسی کد اصلی، API و پروتکل امنیتی خود دعوت کرده تا از نحوه کار نرم‌افزار اطمینان حاصل کرده و انتخابی آگاهانه انجام دهند. 

نقاط ضعف تلگرام

شعار اصلی این پیام‌رسان حفظ حریم خصوصی کاربران اعلام شده، اما چقدر می‌توان به این ادعاها دلخوش بود؟ از نظر کارشناسان دنیای ارتباطات شبکه، هرچند به نظر نمی‌رسد این اپلیکیشن تلاشی برای دزدی از اطلاعات کاربران خود داشته باشد، اما مانند هر برنامه‌ای دارای حفره‌های امنیتی و نقاط ضعفی است که می تواند مورد سوءاستفاده قرار گیرد. از نظر کلی می‌توان نقاط ضعف این پلتفرم را در چند مورد خلاصه کرد:

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

در نهایت باید به سیستم رمزنگاری اشاره کرد و در نظر داشت که پروتکل رمزنگاری مورد استفاده توسط تلگرام به‌وسیله سازندگان نرم‌افزار توسعه داده شده و از نظر بسیاری از کارشناسان هنوز قابلیت‌های خود را نشان نداده است. برای مثال یکی از کسانی که در زمینه بهبود امنیت تلگرام با این شرکت همکاری داشته می‌گوید حتی در صورت فعال کردن قابلیت Secret Chat نیز می‌توان با روش MITM یا مرد میانی به دزدی اطلاعات رد و بدل شده پرداخت، هرچند این کار مستلزم صرف هزینه‌های گزاف برای فراهم کردن توان پردازشی مورد نیاز خواهد بود.

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

تبریک اغاز سال جدید