Проблемы с программой на VB

Доброго времени суток!

Решил попробывать поломать программу на VB, но не могу найти процедуру проверки правильности введённого кода ответа.Подскажите, где и как найти её.Программа прилагается.

 

Извините, программа не аттачиться, так что вы можете взять её отсюда: http://www.DIRS2.narod.ru/txt2xlsCmd.exe

 

Там чето прибавляется, умножается ... короче вводишь blablabla, ставишь bp MSVBVM60.__vbaVarTstEq --> OLEAUT32.VarCmp --> OLEAUT32.VarBstrCmp







Потом смотришь правильный серийник или в реестр занеси такое:

Код (Text):

1. [HKEY_CURRENT_USER\Software\VB and VBA Program Settings\SAMConv\Prog]
2. "Param1"="30861-19602-30130-62041"
3. "Param2"="299074-215658"

Или ... записываешь макрос в Excel, вставляешь код в VB - компилишь точно такую прогу бесплатно

Код (Text):

1. Dim objExcel As Excel.Application
2.  
3. On Error Resume Next
4. Set objExcel = GetObject(, "Excel.Application")
5. If Err.Number > 0 Then Set objExcel = CreateObject("Excel.Application")
6.    Err.Clear
7. objExcel.Workbooks.Add.ActiveSheet
8.    
9.     With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\temp\test.txt", _
10.         Destination:=Range("A1"))
11.         .Name = "test"
12.         .FieldNames = True
13.         .RefreshStyle = xlInsertDeleteCells
14.         .TextFilePlatform = xlWindows
15.         .TextFileStartRow = 1
16.         .TextFileParseType = xlDelimited
17.         .TextFileTextQualifier = xlTextQualifierDoubleQuote
18.         .TextFileConsecutiveDelimiter = True
19.         .TextFileOtherDelimiter = "|"
20.         .TextFileColumnDataTypes = Array(1, 1, 1, 1)
21.     End With

И это ещё продается?

 

bogrus

Большое спасибо за подсказку.Попробую повторить твои шаги.

Ещё это покупаеться солидными фирмами