Форум   Статьи   Новости   Файлы   Bugtraq   Сниффер   Друзья   О Клубе
  , 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
Тоже самое..Но наоборот..Сплит ключ для дешифра..
 
Пользователь вне форума    
  , 16:09   #7
Новичок
 
Регистрация: 18.11.2014
Сообщений: 20

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

Таде самая фигня была!!
 
Пользователь вне форума    
 

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Visual Studio 2010 или Visual Basic 6? Grishak Basic 14 02.02.2018 16:10
[Проблема] visual basic и *xls GK13 Уязвимости и защита 1 02.02.2018 16:09
Пароль на сниффер в 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



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

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