Друзья! Прошло совсем мало времени с момент последнего выпуска, и вот уже новый! Удивительно, как быстро летит время в Интернете, сколько всего нового происходит ежедневно, да что там, ежесекундно. И Kbyte.Ru в этом плане не исключение, на сайте столько всего произошло, столько всего, что многое даже и не влезло в этот выпуск! И кто только придумал ограничения скорости интернет-соединения и объемов писем! Эх..., благо на сайте есть живая лента событий, которая не даст потеряться среди гущи
событий.
Надеюсь, этот выпуск будет интересен для вас. Если вы хотите увидеть в следующих выпусках что-то конкретное, напишите мне об этом на ящик subscribe@kbyte.ru.
Module Module1
Sub Main(ByVal args As String())
Console.Title = "Matrix"
Console.ForegroundColor = ConsoleColor.DarkGreen
Console.WindowLeft = InlineAssignHelper(Console.WindowTop, 0)
Console.WindowHeight = InlineAssignHelper(Console.BufferHeight, Console.LargestWindowHeight)
Console.WindowWidth = InlineAssignHelper(Console.BufferWidth, Console.LargestWindowWidth)
#If readkey Then
Console.WriteLine("Hit any key to continue")
Console.ReadKey()
#End If
Console.CursorVisible = False
Dim width As Integer, height As Integer
Dim y As Integer()
Dim l As Integer()
Initialize(width, height, y, l)
Dim ms As Integer
While True
Dim t1 As DateTime = DateTime.Now
MatrixStep(width, height, y, l)
ms = 10 - CInt(DirectCast((DateTime.Now - t1), TimeSpan).TotalMilliseconds)
If ms > 0 Then
System.Threading.Thread.Sleep(ms)
End If
If Console.KeyAvailable Then
If Console.ReadKey().Key = ConsoleKey.F5 Then
Initialize(width, height, y, l)
End If
End If
End While
End Sub
Dim thistime As Boolean = False
Sub MatrixStep(ByVal width As Integer, ByVal height As Integer, ByVal y As Integer(), ByVal l As Integer())
Dim x As Integer
thistime = Not thistime
For x = 0 To width - 1
If x Mod 11 = 10 Then
If Not thistime Then
Continue For
End If
Console.ForegroundColor = ConsoleColor.White
Else
Console.ForegroundColor = ConsoleColor.DarkGreen
Console.SetCursorPosition(x, inBoxY(CInt(y(x) - 2 - (l(x) / 40 * 2)), height))
Console.Write("B")
Console.ForegroundColor = ConsoleColor.Green
End If
Console.SetCursorPosition(x, y(x))
Console.Write("D")
y(x) = inBoxY(y(x) + 1, height)
Console.SetCursorPosition(x, inBoxY(y(x) - l(x), height))
Console.Write(" "c)
Next
End Sub
Private Sub Initialize(ByRef width As Integer, ByRef height As Integer, ByRef y As Integer(), ByRef l As Integer())
Dim h1 As Integer
Dim h2 As Integer = CInt((InlineAssignHelper(h1, CInt((InlineAssignHelper(height, Console.WindowHeight)) / 2))) / 2)
width = Console.WindowWidth - 1
y = New Integer(width - 1) {}
l = New Integer(width - 1) {}
Dim x As Integer
Console.Clear()
For x = 0 To width - 1
y(x) = m_r.[Next](height)
l(x) = m_r.[Next](h2 * (If((x Mod 11 <> 10), 2, 1)), h1 * (If((x Mod 11 <> 10), 2, 1)))
Next
End Sub
Dim m_r As New Random()
Private ReadOnly Property R() As Char
Get
Dim t As Integer = m_r.[Next](10)
If t <= 2 Then
Return CChar(("0"c & m_r.[Next](10)))
ElseIf t <= 4 Then
Return CChar(("a"c & m_r.[Next](27)))
ElseIf t <= 6 Then
Return CChar(("A"c & m_r.[Next](27)))
Else
Return CChar(CChar(CStr((m_r.[Next](32, 255)))))
End If
End Get
End Property
Public Function inBoxY(ByVal n As Integer, ByVal height As Integer) As Integer
n = n Mod height
If n < 0 Then
Return n + height
Else
Return n
End If
End Function
Private Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T
target = value
Return value
End Function
End Module
Visual Basic .NET: Криптография, защита данных @[i]Pro 16.05.2011 13:53
Пример использования шифрования текста алгоритмом XOR
Public Function xor_encrypt(ByVal text
As String, ByVal key As String) As String
Dim i As Short
Dim KeyChar As Integer
Dim Result As String = ""
Try
KeyChar = Asc(key)
For i = 1 To Len(text)
Result &= Chr(KeyChar Xor Asc(Mid(text, i, 1)))
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
Return Result
End Function
В России стартовали продажи Android-смартфона Samsung Galaxy S II. О старте продаж было объявлено на мероприятии, проведенном в Москве. Рекомендованная стоимость Galaxy S II составляет 31990 рублей. Новинка придет на смену первому поколению Galaxy S, продающемуся в России с июля 2010 года.
Intel в до конца этого года вместе с партнерами из среды производителей аппаратного обеспечения презентует более десятка планшетных компьютеров, работающих на базе процессоров Intel. Значительная часть планшетов будет анонсирована на июньской выставке Computex на Тайване. При помощи данных продуктов сама Intel надеется расширить конкуренцию с британской ARM Holdings.
Ожидается, что одним из первых на Computex будет показан планшет производства Asustek Computer.
Отметим, что мобильные инициативы Intel не ограничиваются интернет-планшетами. Накануне чипмейкер показал прототип смартфона, базирующегося на пока еще не выпущенном в массовое производство процессоре Medfield, а также сообщила что "Intel-фоны" производства крупнейших разработчиков смартфонов должны будут появиться на рынке в начале будущего года.
По словам представителей Intel, они ранее довольно тесно сотрудничали с Nokia в деле разработки телефонов на базе смартфонов с операционной системой MeeGo, но в последнее время финская компания переключилась на Windows Phone. "Компания Nokia отказалась в одностороннем порядке, вероятно, мы изначально неправильно выбрали партнера", - признал глава Intel Пол Отеллини.
Таможенники в аэропорту "Шереметьево" пресекли попытку нелегально ввезти в Россию из Дубая партию смартфонов iPhone 4. Аппараты были обнаружены в багаже пассажирки, следовавшей через таможенную зону по "зеленому коридору". Партия состояла из 150 смартфонов общей стоимостью более четырех миллионов рублей.
Независимые эксперты говорят, что более 99% смартфонов на базе Android потенциально подвержены утечке данных в случае кражи аппарата, так как хранят львиную долю персональных данных пользователей в онлайне и автоматически получают к ней доступ. Данные могут утечь, например, в случае входа злоумышленников на сервис Google Calendar под учетной записью пользователя.
Немецкие ИТ-специалисты из Университета города Ульм говорят, что заинтересовались особенностями работы Android с идентификационными данными. По их словам, многие данные, связанные с авторизацией пользователей, Android-устройства передают автоматически. Это в обычных условиях удобно для пользователей, но в случае кражи аппарата это преимущество превращается в серьезную уязвимость.
Официально Google пока никак не прокомментировала данные об "уязвимости 99% Android-устройств".
Флориан Шауб, один из авторов отчета, говорит, что их группа детально исследовала процессы управления данными, передаваемыми на удаленные сервисы. По его словам, многие приложения без уведомления пользователей отдают удаленным сервисам Google аутентификационные ключи, так называемые Digital ID Card для конкретного приложения. После того, как токен отдан, пользователи (или злоумышленник) могут работать с сервисом и всем данными в нем без какой-либо авторизации.
Авторы отчета говорят, что этот баг не только опасен сам по себе, он, в случае реализации, значительно затруднит поиск источников утечки информации. Более того, злоумышленники технически способны использовать токены и без кражи аппарата. Получив тем или иным способом токен, они могут использовать его на любом другом устройстве и получить доступ к пользовательским сведениям в онлайне.
В отчете говорится, что такой метод работает для календарных данных, контактов, приватных веб-альбомов и прочих данных.
Российский видеопортал RuTube подключил услугу CDN (доставка и дистрибуция контента) у одной из крупнейших мировых телекоммуникационных компаний Level 3. В сообщении портала указывается, что RuTube начал использовать CDN (Content Delivery Network) услуги Level 3 в апреле 2011 года. CDN позволяет передавать данные пользователю по кратчайшему сетевому маршруту, что особенно важно для «тяжелого» контента, каким является видео.
Во время предварительного тестирования сеть CDN Level 3 справилась с пиковыми объёмами трафика, определенного для теста, — до 20 Гбит в секунду. По итогам тестирования RuTube зафиксировал увеличение числа досмотров видео на RuTube, а также рост просмотров рекламных пост-роллов (ролик, загружаемый после основного видео) на 15%.
18.05.2011 12:21 · Категория: Бизнес в IT · Источник: CyberSecurity.ru
Если вы занимаетесь программированием, то наверняка вам пригодятся хитрые инструменты.
Международный портал для программистов и разработчиков Kbyte.Ru основан в 2006 году. Целью портала является объединение программистов и специалистов IT-бизнеса, студентов и преподавателей для обмена опытом и знаниями, оказания помощи во всех делах и начинаниях в области IT.
Kbyte.Ru является парнёром компаний Mail.Ru Group, WebMoney Transfer, Ozon.Ru и др. Выпуск рассылки подготовлен автоматически. Все права на материалы выпуска принадлежат Kbyte.Ru если иное не указано отдельно.