Программа криптографической защиты информации

[immark]

Здравствуйте уважаемые!
Создал программу криптографической защиты информации
Посмотрите, посоветуйте, покритикуйте.
Может, кому пригодится. Или кто-то поможет в ее реализации, естественно, не бесплатно
Все детали - здесь:
http://labitap.webasyst.net/files/CRYPTOGRAPH
По всем вопромам пишите labitap@gmail.com
Благодарю за внимание

[Хакер]

Cryptograph - Программа криптографической защиты информации..doc

Критика номер раз: почему я должен иметь Microsoft Office, чтобы прочитать какие-то там описательные файлы, когда есть открытый бесплатный стандарт документооборота?

[Proxy]

Не православный MS Office обязан купить каждый.

[immark]

Спасибо, Хакер! Я просто привык, что у всех, с кем контактировал, есть офис
Я не понял, что имеется ввиду под "открытый бесплатный стандарт документооборота"?
Не могли бы Вы пояснить, а лучше - дайте, пожалуйста, ссылочку, где об этом можно прочитать в инете.
Еще раз - спасибо!

[Хакер]

Я в своём ответе сделал ссылку на статью. В моей статье есть две ссылки — на статью в википедии и на стандарт ISO.
Ты всё это пропустил мимо глаз?

[MIT]

immark, какой GoTo? Это же .NET! Так программировать нельзя. Способ шифрования и лицензирования, как и интерфейс и всё остальное, не впечатлили.

[FireFenix]

Код: Выделить всё

        fileName = "c:\$zz_crpt$.rqv"
        FileSystem.FileOpen(fileNumber, fileName, OpenMode.Output, OpenAccess.Write, OpenShare.Default, -1)
        FileSystem.PrintLine(fileNumber, New Object() { ("Project=" & GLOB.PrjNamAbr) })
        FileSystem.PrintLine(fileNumber, New Object() { ("VerNum=" & GLOB.VerNum) })
        FileSystem.PrintLine(fileNumber, New Object() { ("Licence=" & Me.lblLicenceNumVal.Text) })
        FileSystem.PrintLine(fileNumber, New Object() { ("Today=" & Me.lblTodayVal.Text) })
        FileSystem.PrintLine(fileNumber, New Object() { ("Comp.Name=" & Me.lblCompNameVal.Text) })
        FileSystem.PrintLine(fileNumber, New Object() { ("Payment Sys=" & Me.cmbPaySys.Text) })
        FileSystem.PrintLine(fileNumber, New Object() { ("Currency=" & Me.cmbCurrency.Text) })
        FileSystem.PrintLine(fileNumber, New Object() { ("PurseRecipient=" & Me.txtPurseRecipient.Text) })
        FileSystem.PrintLine(fileNumber, New Object() { ("PursePayer=" & Me.txtPursePayer.Text) })
        FileSystem.PrintLine(fileNumber, New Object() { ("Summa=" & Me.txtSumma.Text) })
        FileSystem.PrintLine(fileNumber, New Object() { ("EmailPayer=" & Me.txtEmailPayer.Text) })
        FileSystem.FileClose(New Integer() { fileNumber })
        fileName = (GLOB.PrjNamAbr & "Query-" & Me.lblLicenceNumVal.Text & ".txt")
        FileSystem.FileOpen(fileNumber, fileName, OpenMode.Output, OpenAccess.Write, OpenShare.Default, -1)
        FileSystem.PrintLine(fileNumber, New Object() { ("Project=" & GLOB.PrjNamAbr) })
        FileSystem.PrintLine(fileNumber, New Object() { ("VerNum=" & GLOB.VerNum) })
        FileSystem.PrintLine(fileNumber, New Object() { ("Licence=" & Me.lblLicenceNumVal.Text) })
        FileSystem.PrintLine(fileNumber, New Object() { ("Today=" & Me.lblTodayVal.Text) })
        FileSystem.PrintLine(fileNumber, New Object() { ("Comp.Name=" & Me.lblCompNameVal.Text) })
        FileSystem.PrintLine(fileNumber, New Object() { ("Payment Sys=" & Me.cmbPaySys.Text) })
        FileSystem.PrintLine(fileNumber, New Object() { ("Currency=" & Me.cmbCurrency.Text) })
        FileSystem.PrintLine(fileNumber, New Object() { ("PurseRecipient=" & Me.txtPurseRecipient.Text) })
        FileSystem.PrintLine(fileNumber, New Object() { ("PursePayer=" & Me.txtPursePayer.Text) })
        FileSystem.PrintLine(fileNumber, New Object() { ("Summa=" & Me.txtSumma.Text) })
        FileSystem.PrintLine(fileNumber, New Object() { ("EmailPayer=" & Me.txtEmailPayer.Text) })
        FileSystem.FileClose(New Integer() { fileNumber })

Сильная регистрация... А что если у меня нету диска С?
Для снятия триала вообще достаточно в этом файле поставить дату больше текущего дня или года

Автор наверное писал её VB6-like, что очень прискорбно. Открой уже для себя FW:

Код: Выделить всё

System
System.IO
System.Security
System.Security.Cryptography

Больше всего порадовал класс

Код: Выделить всё

Friend NotInheritable Class GLOB

Жлоб

[Qwertiy]

Да уж... Всё-таки исключения обрабатывать надо.

Код: Выделить всё

See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.

************** Exception Text **************
System.UnauthorizedAccessException: Access to the path 'c:\$zzvcrpt$.ini' is denied.
   at Microsoft.VisualBasic.FileSystem.FileOpen(Int32 FileNumber, String FileName, OpenMode Mode, OpenAccess Access, OpenShare Share, Int32 RecordLength)
   at CRYPTOGRAPH.frmMain.frmMain_Load(Object sender, EventArgs e)
   at System.EventHandler.Invoke(Object sender, EventArgs e)
   at System.Windows.Forms.Form.OnLoad(EventArgs e)
   at System.Windows.Forms.Form.OnCreateControl()
   at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
   at System.Windows.Forms.Control.CreateControl()
   at System.Windows.Forms.Control.WmShowWindow(Message& m)
   at System.Windows.Forms.Control.WndProc(Message& m)
   at System.Windows.Forms.ScrollableControl.WndProc(Message& m)
   at System.Windows.Forms.ContainerControl.WndProc(Message& m)
   at System.Windows.Forms.Form.WmShowWindow(Message& m)
   at System.Windows.Forms.Form.WndProc(Message& m)
   at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)


************** Loaded Assemblies **************
mscorlib
    Assembly Version: 2.0.0.0
    Win32 Version: 2.0.50727.3623 (GDR.050727-3600)
    CodeBase: file:///C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll
----------------------------------------
CRYPTOGRAPH
    Assembly Version: 1.0.0.0
    Win32 Version: 1.0.0.0
    CodeBase: file:///E:/Интернет/2011/2011_06/2011_06_30/CRYPTOGRAPH-16%20-%20Release%20pack/CRYPTOGRAPH-16%20-%20Release%20pack/CRYPTOGRAPH-16.exe
----------------------------------------
Microsoft.VisualBasic
    Assembly Version: 8.0.0.0
    Win32 Version: 8.0.50727.3053 (netfxsp.050727-3000)
    CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/Microsoft.VisualBasic/8.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
    Assembly Version: 2.0.0.0
    Win32 Version: 2.0.50727.3620 (GDR.050727-3600)
    CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Windows.Forms
    Assembly Version: 2.0.0.0
    Win32 Version: 2.0.50727.3623 (GDR.050727-3600)
    CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
    Assembly Version: 2.0.0.0
    Win32 Version: 2.0.50727.3053 (netfxsp.050727-3000)
    CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Configuration
    Assembly Version: 2.0.0.0
    Win32 Version: 2.0.50727.3053 (netfxsp.050727-3000)
    CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Configuration/2.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
System.Xml
    Assembly Version: 2.0.0.0
    Win32 Version: 2.0.50727.3082 (QFE.050727-3000)
    CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Xml/2.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
System.Runtime.Remoting
    Assembly Version: 2.0.0.0
    Win32 Version: 2.0.50727.3053 (netfxsp.050727-3000)
    CodeBase: file:///C:/WINDOWS/assembly/GAC_MSIL/System.Runtime.Remoting/2.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------

************** JIT Debugging **************
To enable just-in-time (JIT) debugging, the .config file for this
application or computer (machine.config) must have the
jitDebugging value set in the system.windows.forms section.
The application must also be compiled with debugging
enabled.

For example:

<configuration>
    <system.windows.forms jitDebugging="true" />
</configuration>

When JIT debugging is enabled, any unhandled exception
will be sent to the JIT debugger registered on the computer
rather than be handled by this dialog box.




[Proxy]

А что если у меня нету диска С?

Эта криптозащита для православных.

[Antonariy]

А еще не всегда выгружается из памяти, когда все формы закрыты. Короче, УГ.

[jangle]

Здравствуйте уважаемые!
Создал программу криптографической защиты информации
Посмотрите, посоветуйте, покритикуйте.
Может, кому пригодится. Или кто-то поможет в ее реализации, естественно, не бесплатно
Все детали - здесь:
http://labitap.webasyst.net/files/CRYPTOGRAPH
По всем вопромам пишите labitap@gmail.com
Благодарю за внимание

Вряд ли кому пригодится. Никто в здравом уме, не станет использовать для шифрования серьезных данных программу созданную Васей Пупкиным на коленке, а для несерьезных данных есть WinRar.

[immark]

Всем!
Спасибо за критику
Тему закрываю