Кодировка информации @Crash666 04.07.2013 20:47
Как закодировать текст 1)"Привет мир" и 2)"Hello World" (2 документа: 1)D:\Desktop\TextOne.txt, 2)D:\Desktop\TextTwo.txt)
И раскодировать
И раскодировать
Рассылка закрыта
Вы можете найти рассылки сходной тематики в Каталоге рассылок.
Программирование (VB,C#,ASP,.NET): новости, советы, примеры
Выпуск # 734Приветствую вас, любители высоких технологий! Вот и очередной выпуск рассылки. За неделю на сайте появилось много новых и интересных материалов, некоторые из которых вы сможете увидеть в этом выпуске. Содержание выпускаЧитайте в этом выпуске: Если у вас есть вопросы по программированию или работе с компьютером, не стесняйтесь, спрашивайте.Форумы Kbyte.RuНа форумах Kbyte.Ru постоянно появляются новые интересные темы и обсуждения. В этом выпуске представлены лишь новые темы, с момента прошлой рассылки. Кстати, любой желающий может на форумах Kbyte.Ru совершенно свободно получить помощь грамотных специалистов в области программирования, да и в целом информационных технологий. Задать свой вопрос прямо сейчас Ответ #1 @Алексей Немиро 04.07.2013 21:11 Зашифровать? :) Кодировка, в широком понимании, это кодовая страницы, типа utf-8, или windows-1251. Ответ #2 @Алексей Немиро 04.07.2013 21:14 Вот статья: Шифрование в .NET Примеры: - очень примитивный метод, ненадежный, но простой. Как получить зашифрованный текст средствами .NET - используется Rijndael, наиболее надежный алгоритм. Защита строк по алгоритму DES Ответ #3 @Shark1 04.07.2013 21:36 Using Security.Cryptography.RijndaelManaged Генерация чисел @Crash666 03.07.2013 20:08 Как быстро сгенерировать числа от 0 до 1000000 и записать в файл .txt который находится по пути (D:/numbers.txt) Ответ #1 @Алексей Немиро 03.07.2013 20:58 Что значит быстро? :) Сколько чисел? В количестве до 1 000 000 - это мало, компьютер так и так их быстро сгенерирует. Dim r As New Random(Now.Millisecond)'генератор случайных чисел
Dim result As New System.Text.StringBuilder()
For i As Integer = 0 To 1000000
result.AppendLine(r.Next(0, 1000000))
Next
System.IO.File.WriteAllText("D:\numbers.txt", result.ToString())Ответ #2 @Crash666 03.07.2013 21:00 Не нужно случайные, нужно порядковые Ответ #3 @Алексей Немиро 03.07.2013 21:02 Не нужно случайные, нужно порядковыеМожно и порядковые. Числа добавляется в переменную result. Ответ
#4 @Crash666 03.07.2013 21:11 А как? Ответ #5 @Алексей Немиро 03.07.2013 21:19 А как?Надеялся, что этот вопрос не услышу. Видимо зря  А что делает представленный мной код? Построчно. Код элементарный ;) Добавить свой ответ в эту тему · В теме есть еще 12 ответов. Смотреть все ответы. Часы собраны на - Pie @Akiva 03.07.2013 03:25 Ответ #1 @Akiva 03.07.2013 16:45 Скорректировал фигуру, которая работает с часами. Ответ #2 @Akiva 04.07.2013 15:51 Ответ #3 @Akiva 04.07.2013 21:50 Проблема у часового Pie(зеленый цвет). У нас (в Канаде) определяют время суток до 12.00 -> AM, и после -> PM. Системная шкала разбита на 24. Пытаюсь, но никак не могу заставить Pie разворачиваться как аналоговые часы. С секундой и минутной проблем нет. Ответ #4 @Shark1 04.07.2013 23:10 Организуй проверку : Dim intHour As Integer
Dim dataTime As Date = Microsoft.VisualBasic.DateAndTime.TimeOfDay
Dim AmPm As String
intHour = dataTime.Hour
If intHour > 12 Then
intHour -= 12
AmPm = " PM"
Label1.Text = AmPm
ElseIf intHour = 0 Then
intHour = 12
AmPm = " AM"
Label1.Text = AmPm
ElseIf intHour = 12 Then
AmPm = " PM"
Label1.Text = AmPm
Else
AmPm = " AM"
Label1.Text = AmPm
End IfВ Label1 выводим значение "AM" или "PM" Ну и далее отталкиваясь от этого меняеш свои параметры ... Как-то так ...  Ответ #5 @Akiva 05.07.2013 01:03 Спасибо, Виталий Я не имел ввиду Label. Сама фигура Pie(часовая), к пример в 12:00 должна заполнятся на 360/о,а она заполняется на 180. Или в час дня должна на - 30/о,но не на - 195/o Вот фрагмент кода: h = Date.Now.Hour h1 = (360/24)* h g.FillPie(K,50,50,400,400,270,h1) Будь здоров парень.С уважением, Akiva Умеет решать
простые дроби и комплексные числа. Сделана в SmallBasic. Вот ссылка: http://smallbasic.com/program/?RFL200 Посмотрите мои программы @alex.zauzolkov 01.07.2013 13:48 Доброго времени суток! Мне 13 лет, и я программирую на VB. У меня есть сайт: Пожалуйста, подскажите каких программ мне ещё сделать, расскажите о багах, и как можно улучшить мои разработки. Может, Вы знаете как мне улучшить сайт? Мне важны любые отзывы. Спасибо. Как авторизоваться на сайте с cookies (C#) @lice 30.06.2013 20:43 Прошу помощи по такому вопросу: Нужно программно сохранить веб-страницу. Сайт с cookies. Логинется только через chrome (через другие браузеры дальше страницы авторизации не уйти). Собственно сохранить нужно страницу с подобным адресом: http://sait.ru/.../clients_form.php?execute=edit&id_clients=90272&name_users=login&password_users=password Если есть у кого-нибудь полный код для решения этой задачи, буду признателен. Ответ #1 @Алексей Немиро 01.07.2013 11:26 Логинется только через chrome (через другие браузеры дальше страницы авторизации не уйти)В данном случае нужно не делать, а сначала анализировать трафик, внимательно-внимательно, очень внимательно. И только потом повторять его (трафик). Собственно сохранить нужно страницу с подобным адресом:Какое это имеет значение? Особенно с ненастоящим адресом :) Если есть у кого-нибудь полный код для решения этой задачи, буду признателен.Конечно нет. Нет задачи, нет решения. Нет попыток решения, нет решения. Нет кода, нет решения. Генератор паролей @Crash666 30.06.2013 03:04 Как делается генератор
паролей, цели Это числа, буквы(русские английский) так же регистер P.s. не пишите код, обьясните пожалуйста Ответ #1 @Shark1 30.06.2013 10:23 Ну примерно самое простое решение будет выглядеть так: Код для WinForms, на форме Button & Label: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim allChars As String = ""
allChars = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,"
Dim sep As Char() = {","}
Dim arr As String() = allChars.Split(sep)
Dim passwordString As String = ""
Dim temp As String = ""
Dim rand As New Random()
For i As Integer = 0 To Convert.ToInt32(20) - 1 'цифра 20 в этой строке указывает на то, сколько нужно генерировать знаков пароля
temp = arr(rand.[Next](0, arr.Length))
passwordString += temp
Label1.Text = passwordString 'выводим в Label готовый пароль
Next
End SubНу я думаю ты принцип понял... Ответ #2 @Shark1 30.06.2013 10:40 Если нужно вставить другие символы, например цифры, то
после строки allChars = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z," добавляеш allChars += "0,1,2,3,4,5,6,7,8,9" Ответ #3 @Crash666 30.06.2013 14:10 Shark1 Спасибо , но я просил обьяснить, например что означает:
Dim sep As Char() = {","}
Dim arr As String() = allChars.Split(sep)
For i As Integer = 0 To Convert.ToInt32(20) - 1 'цифра 20 в этой строке указывает на то, сколько нужно генерировать знаков пароля
temp = arr(rand.[Next](0, arr.Length))
passwordString += temp
Label1.Text = passwordString 'выводим в Label готовый пароль
Next
Ответ #4 @Shark1 30.06.2013 14:49 Dim allChars As String = "" ' объявление переменной типа String
allChars = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z," ' задаеш значение переменной
allChars += "0,1,2,3,4,5,6,7,8,9" ' добавление символов к переменной
Dim sep As Char() = {","} ' объявление массива с указанием значения
Dim arr As String() = allChars.Split(sep) ' объявление массива с заполнением массива
Dim passwordString As String = "" ' объявление переменной типа String
Dim temp As String = "" ' объявление переменной типа String
Dim rand As New Random() ' объявление генератора псевдослучайных чисел
For i As Integer = 0 To Convert.ToInt32(20) - 1 'цифра 20 в этой строке указывает на то, сколько нужно генерировать знаков пароля
temp = arr(rand.[Next](0, arr.Length)) ' в цикле получаем из массива символов случайные символы
passwordString += temp ' добавление значения к переменной
Label1.Text = passwordString 'выводим в Label готовый пароль
NextШо тут непонятного ? Ответ #5 @Crash666 30.06.2013 15:15 Я библиотеку написал для этого :DDD Вот пожалуйста Public Class Base
Dim q As String = ""
Public Output_Result As String
Public Function RndNamepass(ByRef ValueChar As Integer, ByRef UseRussianLanguage As Boolean, ByRef UseEnglishLanuage As Boolean, ByRef UseNumber As Boolean, ByRef UseRndRegister As Boolean) As String
Dim allChars As String = ""
If UseEnglishLanuage = True Then
If UseRndRegister = True Then
allChars += "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,"
allChars += "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,"
End If
allChars += "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,"
End If
If UseRussianLanguage = True Then
If UseRndRegister = True Then
allChars += "А,Б,В,Г,Д,Е,Ё,Ж,З,И,Й,К,Л,М,Н,О,П,Р,С,Т,У,Ф,Х,Ц,Ч,Ш,Щ,Ъ,Ы,Ь,Э,Ю,Я,"
allChars += "а,б,в,г,д,е,ё,ж,з,и,й,к,л,м,н,о,п,р,с,т,у,ф,х,ц,ч,ш,щ,ъ,ы,ь,э,ю,я,"
End If
allChars += "а,б,в,г,д,е,ё,ж,з,и,й,к,л,м,н,о,п,р,с,т,у,ф,х,ц,ч,ш,щ,ъ,ы,ь,э,ю,я,"
End If
If UseNumber = True Then
allChars += "0,1,2,3,4,5,6,7,8,9"
End If
If ValueChar = 0 Then
Exit Function
End If
If UseRndRegister = False And UseRussianLanguage = False And UseEnglishLanuage = False And UseNumber = False Then
Exit Function
End If
'allChars = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,"
'allChars += "0,1,2,3,4,5,6,7,8,9"
'allChars += "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,"
'allChars += "А,Б,В,Г,Д,Е,Ё,Ж,З,И,Й,К,Л,М,Н,О,П,Р,С,Т,У,Ф,Х,Ц,Ч,Ш,Щ,Ъ,Ы,Ь,Э,Ю,Я,"
Dim sep As Char() = {","}
Dim arr As String() = allChars.Split(sep)
Dim passwordString As String = ""
Dim temp As String = ""
Dim rand As New Random()
For i As Integer = 0 To Convert.ToInt32(ValueChar) - 1 'цифра 20 в этой строке указывает на то, сколько нужно генерировать знаков пароля
temp = arr(rand.[Next](0, arr.Length))
passwordString += temp
Output_Result = passwordString
Next
End Function
End ClassДобавить свой ответ в эту тему · В теме есть еще 10 ответов. Смотреть все ответы. Не работают клиенты @rusiko 29.06.2013 10:24 Всем привет. Есть програмка на VB.NET 2010 и БД этой програмки на SQL Server 2008. На родительском компьютере все отлично работает, но когда ставим ярлык на другой комп. выдает ошибку, что не может подключится к БД.
Насчет настройки SQL Server для работы с клиентами почти все попробовал. Из вашего форума нашел сайт (yolper.ru), про конфигурирование sql, сделал все так как там показано. Удалил SQL, а затем установил другую версию. Все не работает. Поменял настройки в VB.NET, указал вместо İP адреса ("."), но ничего не помогло. Помогите мне. Спасибо!!! Ответ #1 @Алексей Немиро 29.06.2013 13:52 По yolper.ru я постоянно настраиваю сервер SQL, все работает. Первым делом нужно убедиться, что сам SQL Server работает и к нему модно подключиться локально. Затем нужно попробовать подключиться с локального компьютера, но с указанием IP-адреса, логина и пароля. Если соединения нет, значит SQL Server или сервер настроен неправильно. Если локально все работает, а снаружи нет, то вероятно проблема в файрволе. Причем блокировка может быть как со стороны сервера, так и со стороны клиента. Также нужно убедиться, что сам сервер (не SQL, а компьютер) виден и пингуется с компьютера клиента. Если нет, значит неверные параметры сети. Ответ
#2 @Алексей Немиро 29.06.2013 18:56 Глянул файл, там оказывается картинки. Картинки можно через кнопку "Вставить изображение" добавлять в текст. Судя по тексту ошибок, нужно сделать учетную запись: Исходные кодыOpen Word Document in WPFWindows Presentation Foundation (WPF): Общие вопросы @Shark1 05.07.2013 00:34 Пример открытия Microsoft Office Word Document (.doc, .docx)К данном исходному коду прилагаются файлы примеров. Скачать. Drag & Drop in WPFVisual
Basic .NET: Интерфейс @Shark1 04.07.2013 18:26 Пример оперирования элементами интерфейса в интерфейсе пользователя (графическими или текстовыми) в Windows Presentation Foundation.К данном исходному коду прилагаются файлы примеров. Скачать. TopMost APIVisual Basic .NET: Общие вопросы @Shark1 03.07.2013 23:46 Можно не использовать стандартное свойство окна "TopMost", а прибегнуть к старым добрым API функциям. Как этого сделать в WPF показано в данном примере. К данном исходному коду прилагаются файлы примеров. Скачать. Art DrawingVisual
Basic .NET: Графика @Shark1 02.07.2013 20:30 Пример создания реалистичных объектов в WPF.К данном исходному коду прилагаются файлы примеров. Скачать. Статьи по программированиюРабота с протоколом Modbus RTU в среде Visual Basic 6.0Железо и устройства: Visual Basic 5.0/6.0 @Ярослав (comexe) Филипченко 02.07.2013 14:27 В современном мире автоматизация
технологических процессов является одной из наиважнейших сфер народного хозяйства. Этому способствуют и научно-технический прогресс, и развитие компьютерных и электронных технологий. В статье рассмотрена работа с одним из самых популярных протоколов современной автоматизации – Modbus RTU, в среде программирования Visual Basic 6.0.Все статьи по программированию Вакансии в ITWeb-дизайнер/верстальщикРоссия, Москва | Работа в офисе Дизайнер/Web-дизайнерРоссия, Москва | Работа в офисе Web дизайнерРоссия, Москва | Работа в офисе | 40 000,00 KBP Web-дизайнерРоссия, Москва | Работа в офисе | 40 000,00 KBP Web-дизайнерРоссия, Москва | Работа в офисе | 50 000,00 KBP Дизайнер сайтов и веб-приложенийРоссия, Москва
| Работа в офисе Преподаватель по курсу "Web-дизайн"+Программирование Web-сайтовРоссия, Москва | Работа в офисе Web-дизайнерРоссия, Москва | Работа в офисе | 60 000,00 KBP Веб-дизайнер/Веб-разработчикРоссия, Москва | Работа в офисе | 55 000,00 KBP Менеджер по SEOРоссия, Москва | Работа в офисе | 50 000,00 KBP Новости мира ITПутин подписал антипиратский законПрезидент России Владимир Путин подписал 2 июля закон о защите авторских прав в интернете. Норма вступит в силу 1 августа 2013 года. Ранее представители крупнейших интернет-компаний Рунета призывали пересмотреть положения закона и отложить его принятие. Несмотря на это, парламент принял закон менее чем за две недели. 04.07.2013 12:15 · Категория: Бизнес в IT · Источник: Lenta.ru Фотограф составил музыкальную композицию из щелчков затворовФотограф Бенджамин фон Вон составил музыкальную композицию из звуков, издаваемых цифровыми зеркальными фотоаппаратами: щелчков затвора, звуков зеркала, писка автофокуса и «бипов» меню. Композиция получила название «Симфония Nikon»; в записи были задействованы 14 фотокамер.
04.07.2013 12:15 · Категория: Железо · Источник: Lenta.ru Microsoft показала сенсорный 3D-экран с тактильной отдачейКорпорация Microsoft представила сенсорный 3D-экран с тактильной отдачей. К экрану прилагается рука-манипулятор, которая перемещает его вперед и назад. За счет перемещения экрана пользователю передается информация о размере, форме и массе отображаемых на нем виртуальных объектов. 04.07.2013 12:14 · Категория: Железо · Источник: Lenta.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. |
| В избранное | ||
