Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Программирование (VB,C#,ASP,.NET): новости, советы, примеры


Выпуск # 642

Друзья! Прошло совсем мало времени с момент последнего выпуска, и вот уже новый! Удивительно, как быстро летит время в Интернете, сколько всего нового происходит ежедневно, да что там, ежесекундно. И Kbyte.Ru в этом плане не исключение, на сайте столько всего произошло, столько всего, что многое даже и не влезло в этот выпуск! И кто только придумал ограничения скорости интернет-соединения и объемов писем! Эх..., благо на сайте есть живая лента событий, которая не даст потеряться среди гущи событий.
Надеюсь, этот выпуск будет интересен для вас. Если вы хотите увидеть в следующих выпусках что-то конкретное, напишите мне об этом на ящик subscribe@kbyte.ru.


Содержание выпуска

Читайте в этом выпуске:

Если у вас есть вопросы по программированию или работе с компьютером, не стесняйтесь, спрашивайте.

Исходные коды

Notepad

Delphi: Готовые решения @IIIypuk 19.05.2011 19:41
Блокнот на Delphi 7. В программе реализованы диалоги открытия и сохранения файла, а также очистки формы. Есть поддержка комментариев.

К данном исходному коду прилагаются файлы примеров. Скачать.

[- к содержанию -]

Эффект Матрицы

Visual Basic .NET: Разное @[i]Pro 17.05.2011 11:44
Красивый эффект "падающих буков".
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

[- к содержанию -]

XOR Encryption

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

[- к содержанию -]

Все исходные коды

Статьи по программированию

Отображение ошибок в стиле QIP или MSN

Окна и формы: Visual Basic .NET @[i]Pro 19.05.2011 16:17
Небольшой обзор на тему создания красивых окон вывода информации пользователю в стиле QIP, ICQ или MSN.

Читать полностью

[- к содержанию -]

Все статьи по программированию

Новости мира IT

В России стартовали продажи смартфона Samsung Galaxy S II

В России стартовали продажи Android-смартфона Samsung Galaxy S II. О старте продаж было объявлено на мероприятии, проведенном в Москве. Рекомендованная стоимость Galaxy S II составляет 31990 рублей. Новинка придет на смену первому поколению Galaxy S, продающемуся в России с июля 2010 года.

19.05.2011 11:16 · Категория: Железо · Источник: Lenta.ru

[- к содержанию -]

До конца этого года на рынке появятся около десятка планшетов на базе чипов Intel

Intel в до конца этого года вместе с партнерами из среды производителей аппаратного обеспечения презентует более десятка планшетных компьютеров, работающих на базе процессоров Intel. Значительная часть планшетов будет анонсирована на июньской выставке Computex на Тайване. При помощи данных продуктов сама Intel надеется расширить конкуренцию с британской ARM Holdings.

Ожидается, что одним из первых на Computex будет показан планшет производства Asustek Computer.

Отметим, что мобильные инициативы Intel не ограничиваются интернет-планшетами. Накануне чипмейкер показал прототип смартфона, базирующегося на пока еще не выпущенном в массовое производство процессоре Medfield, а также сообщила что "Intel-фоны" производства крупнейших разработчиков смартфонов должны будут появиться на рынке в начале будущего года.

По словам представителей Intel, они ранее довольно тесно сотрудничали с Nokia в деле разработки телефонов на базе смартфонов с операционной системой MeeGo, но в последнее время финская компания переключилась на Windows Phone. "Компания Nokia отказалась в одностороннем порядке, вероятно, мы изначально неправильно выбрали партнера", - признал глава Intel Пол Отеллини.

19.05.2011 11:15 · Категория: Железо · Источник: CyberSecurity.ru

[- к содержанию -]

В "Шереметьево" задержали груз контрабандных iPhone 4

Таможенники в аэропорту "Шереметьево" пресекли попытку нелегально ввезти в Россию из Дубая партию смартфонов iPhone 4. Аппараты были обнаружены в багаже пассажирки, следовавшей через таможенную зону по "зеленому коридору". Партия состояла из 150 смартфонов общей стоимостью более четырех миллионов рублей.

19.05.2011 11:14 · Категория: Железо · Источник: Lenta.ru

[- к содержанию -]

99% смартфонов на базе Android потенциально подвержены утечке данных

Независимые эксперты говорят, что более 99% смартфонов на базе Android потенциально подвержены утечке данных в случае кражи аппарата, так как хранят львиную долю персональных данных пользователей в онлайне и автоматически получают к ней доступ. Данные могут утечь, например, в случае входа злоумышленников на сервис Google Calendar под учетной записью пользователя.

Немецкие ИТ-специалисты из Университета города Ульм говорят, что заинтересовались особенностями работы Android с идентификационными данными. По их словам, многие данные, связанные с авторизацией пользователей, Android-устройства передают автоматически. Это в обычных условиях удобно для пользователей, но в случае кражи аппарата это преимущество превращается в серьезную уязвимость.

Официально Google пока никак не прокомментировала данные об "уязвимости 99% Android-устройств".

Флориан Шауб, один из авторов отчета, говорит, что их группа детально исследовала процессы управления данными, передаваемыми на удаленные сервисы. По его словам, многие приложения без уведомления пользователей отдают удаленным сервисам Google аутентификационные ключи, так называемые Digital ID Card для конкретного приложения. После того, как токен отдан, пользователи (или злоумышленник) могут работать с сервисом и всем данными в нем без какой-либо авторизации.

Авторы отчета говорят, что этот баг не только опасен сам по себе, он, в случае реализации, значительно затруднит поиск источников утечки информации. Более того, злоумышленники технически способны использовать токены и без кражи аппарата. Получив тем или иным способом токен, они могут использовать его на любом другом устройстве и получить доступ к пользовательским сведениям в онлайне.

В отчете говорится, что такой метод работает для календарных данных, контактов, приватных веб-альбомов и прочих данных.

18.05.2011 12:22 · Категория: Безопасность · Источник: CyberSecurity.ru

[- к содержанию -]

RuTube будет передавать видео через сеть доставки контента Level 3

Российский видеопортал 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

[- к содержанию -]

Все новости


Подпишитесь на тематические RSS-ленты Kbyte.Ru, чтобы быть в курсе последних новостей:

Основная лента · Форумы (темы и сообщения) · Visual Basic 5.0/6.0 · Visual Basic .NET · C# (Си шарп) · Delphi · JavaScript · ActionScript · ASP .NET · ASP .NET MVC

Ищите Kbyte.Ru в социальных сетях FaceBook, ВКонтакте, Twitter.

Если вы занимаетесь программированием, то наверняка вам пригодятся хитрые инструменты.


Международный портал для программистов и разработчиков Kbyte.Ru основан в 2006 году. Целью портала является объединение программистов и специалистов IT-бизнеса, студентов и преподавателей для обмена опытом и знаниями, оказания помощи во всех делах и начинаниях в области IT.
Kbyte.Ru является парнёром компаний Mail.Ru Group, WebMoney Transfer, Ozon.Ru и др.
Выпуск рассылки подготовлен автоматически. Все права на материалы выпуска принадлежат Kbyte.Ru если иное не указано отдельно.


В избранное