Форум   Статьи   Новости   Файлы   Bugtraq   Сниффер   Друзья   О Клубе
Вернуться   HPC / Кодинг / .NET / VB.NET
   
  Страница 1
  , 12:09   #1
Новичок
 
Регистрация: 02.03.2013
Сообщений: 3

Репутация: 0 / 0
По умолчанию Visual Basic. C++

Здравствуйте. В инете находил исходы VB6,C++ и они никогда не компилились. Есть базовые знания Visual Basic (не VB6 а именно на .NET, работаю в версии 2008) и знания в C++. Хочу написать Криптер. Брал чужие исходы с VB6 и переписывал под Visual Basic и в итоге есть сильные косяки которые не получается исправить. Дак вот. Стоит ли качать VB6 и компилить на нем всё, или же кто-то даст исходники именно на Visual Basic или C++. Или небольшое руководство. Душа к VB6 не лежит... Исходы могу скинуть, если кто-то решит помочь.
 
Пользователь вне форума    
Наши Спонсоры
  , 21:27   #2
1nt
Постоянный
 
Аватар для 1nt
 
Регистрация: 19.11.2010
Сообщений: 733

Репутация: 141 / 2
По умолчанию

opensc.ws - там будут примеры для с. Про vb.net можно забыть, по крайней мере для native-кода - слишком муторно реализовывать. А вот для .net-приложений есть примеры в гугле и на упомянутом сайте.
__________________
[B][COLOR="Red"][URL="https://hpc.name/showthread.php?t=26401#post284052"]Кейлогер актуален[/URL][/COLOR][/B]
Пользователь вне форума    
  , 04:10   #3
Новичок
 
Регистрация: 02.03.2013
Сообщений: 3

Репутация: 0 / 0
По умолчанию

Цитата:
Сообщение от 1nt Посмотреть сообщение
opensc.ws - там будут примеры для с. Про vb.net можно забыть, по крайней мере для native-кода - слишком муторно реализовывать. А вот для .net-приложений есть примеры в гугле и на упомянутом сайте.
Спасибо буду знать. Кстате сайт мертв. Где еще можно найти именно мануалы как писать крипты на C++, а не исходники.
 
Пользователь вне форума    
  , 09:33   #4
1nt
Постоянный
 
Аватар для 1nt
 
Регистрация: 19.11.2010
Сообщений: 733

Репутация: 141 / 2
По умолчанию

сайт не мертв, просто нужно ввести капчу (защита против ботов). Еще один аналог - ic0de.org. Много теории было на wasm.ru (можно попробовать искать в кешах поисковиков)
__________________
[B][COLOR="Red"][URL="https://hpc.name/showthread.php?t=26401#post284052"]Кейлогер актуален[/URL][/COLOR][/B]
Пользователь вне форума    
  , 14:15   #5
Новичок
 
Регистрация: 02.03.2013
Сообщений: 3

Репутация: 0 / 0
По умолчанию

Цитата:
Сообщение от 1nt Посмотреть сообщение
сайт не мертв, просто нужно ввести капчу (защита против ботов). Еще один аналог - ic0de.org. Много теории было на wasm.ru (можно попробовать искать в кешах поисковиков)
на opensc.ws вводил капчу всегда, толку 0. Менял VPN, браузеры, чистить куки. Всегда одна фигня, не пускает. Но спасибо за информацию, очень благодарен.
 
Пользователь вне форума    
  , 12:34   #6
Новичок
 
Регистрация: 20.05.2009
Сообщений: 20

Репутация: -1 / 0
По умолчанию

могу что то скинуть на vb.net - там перелопатить на любом онлайн сервисе..что интерисует?
Какой шифр?... или как ?...Функция шифрования в rc4 выглядет на net так..
source:
Public Shared Function rc4(ByVal message As String, ByVal password As String) As String
        Dim i As Integer = 0
        Dim j As Integer = 0
        Dim dsERugfjdkh As New StringBuilder
        Dim hhRdhjfhejkfhsjhejfhsjhefh As String = String.Empty
        Dim sdEEfdsdgergdS As Integer() = New Integer(256) {}
        Dim hGFgdysgaysgdyagysdyagsygda As Integer() = New Integer(256) {}
        Dim cccdbshGGGGGG As Integer = password.Length
        Dim a As Integer = 0
        While a <= 255
            Dim ctmp As Char = (password.Substring((a Mod cccdbshGGGGGG), 1).ToCharArray()(0))
            hGFgdysgaysgdyagysdyagsygda(a) = Microsoft.VisualBasic.Strings.Asc(ctmp)
            sdEEfdsdgergdS(a) = a
            System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
        End While
        Dim x As Integer = 0
        Dim b As Integer = 0
        While b <= 255
            x = (x + sdEEfdsdgergdS(b) + hGFgdysgaysgdyagysdyagsygda(b)) Mod 256
            Dim tempSwap As Integer = sdEEfdsdgergdS(b)
            sdEEfdsdgergdS(b) = sdEEfdsdgergdS(x)
            sdEEfdsdgergdS(x) = tempSwap
            System.Math.Max(System.Threading.Interlocked.Increment(b), b - 1)
        End While
        a = 1
        While a <= message.Length
            Dim itmp As Integer = 0
            i = (i + 1) Mod 256
            j = (j + sdEEfdsdgergdS(i)) Mod 256
            itmp = sdEEfdsdgergdS(i)
            sdEEfdsdgergdS(i) = sdEEfdsdgergdS(j)
            sdEEfdsdgergdS(j) = itmp
            Dim k As Integer = sdEEfdsdgergdS((sdEEfdsdgergdS(i) + sdEEfdsdgergdS(j)) Mod 256)
            Dim ctmp As Char = message.Substring(a - 1, 1).ToCharArray()(0)
            itmp = Asc(ctmp)
            Dim cipherby As Integer = itmp Xor k
            dsERugfjdkh.Append(Chr(cipherby))
            System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
        End While
        hhRdhjfhejkfhsjhejfhsjhefh = dsERugfjdkh.ToString
        dsERugfjdkh.Length = 0
        Return hhRdhjfhejkfhsjhejfhsjhefh
    End Function
Тут названия уже перелопачены т.к. запалили какуюто сигну.но смысл таков..
Дешифровка в стабе.
source:
 Public Shared Function samolet(ByVal message As String, ByVal password As String) As String

        Dim i As Integer = 0
        Dim j As Integer = 0
        Dim dsERugfjdkh As New StringBuilder
        Dim hhRdhjfhejkfhsjhejfhsjhefh As String = String.Empty
        Dim sdEEfdsdgergdS As Integer() = New Integer(256) {}
        Dim hGFgdysgaysgdyagysdyagsygda As Integer() = New Integer(256) {}
        Dim cccdbshGGGGGG As Integer = password.Length
        Dim a As Integer = 0
        While a <= 255
            Dim ctmp As Char = (password.Substring((a Mod cccdbshGGGGGG), 1).ToCharArray()(0))
            hGFgdysgaysgdyagysdyagsygda(a) = Microsoft.VisualBasic.Strings.Asc(ctmp)
            sdEEfdsdgergdS(a) = a
            System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
        End While
        Dim x As Integer = 0
        Dim b As Integer = 0
        While b <= 255
            x = (x + sdEEfdsdgergdS(b) + hGFgdysgaysgdyagysdyagsygda(b)) Mod 256
            Dim tempSwap As Integer = sdEEfdsdgergdS(b)
            sdEEfdsdgergdS(b) = sdEEfdsdgergdS(x)
            sdEEfdsdgergdS(x) = tempSwap
            System.Math.Max(System.Threading.Interlocked.Increment(b), b - 1)
        End While
        a = 1
        While a <= message.Length
            Dim itmp As Integer = 0
            i = (i + 1) Mod 256
            j = (j + sdEEfdsdgergdS(i)) Mod 256
            itmp = sdEEfdsdgergdS(i)
            sdEEfdsdgergdS(i) = sdEEfdsdgergdS(j)
            sdEEfdsdgergdS(j) = itmp
            Dim k As Integer = sdEEfdsdgergdS((sdEEfdsdgergdS(i) + sdEEfdsdgergdS(j)) Mod 256)
            Dim ctmp As Char = message.Substring(a - 1, 1).ToCharArray()(0)
            itmp = Asc(ctmp)
            Dim cipherby As Integer = itmp Xor k
            dsERugfjdkh.Append(Chr(cipherby))
            System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
        End While
        hhRdhjfhejkfhsjhejfhsjhefh = dsERugfjdkh.ToString
        dsERugfjdkh.Length = 0
        Return hhRdhjfhejkfhsjhejfhsjhefh
    End Function
Тоже самое..Но наоборот..Сплит ключ для дешифра..
 
Пользователь вне форума    
 

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Visual Studio 2010 или Visual Basic 6? Grishak Basic 12 04.06.2011 06:37
Пароль на сниффер в Visual Basic 6.0 romangking Basic 12 24.09.2010 13:17
Типы переменных Visual Basic 6.0 firs94 Basic 0 20.07.2010 20:18
Visual Basic, где скачать? MagicOfFuture Basic 2 15.07.2010 22:55
[Проблема] visual basic и *xls GK13 Уязвимости и защита 0 26.04.2010 20:47



Часовой пояс GMT +2
Powered by vBulletin® 3.x.x Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.

Copyright © 2008 - 2013 «HPC» Реклама на сайте Правила Форума Пользовательское соглашение Работа на сайте
При копировании материалов ставьте ссылку на источник
Все материалы представлены только в ознакомительных целях, администрация за их использование ответственности не несет.