Örneğin BLR kodunu aşağıdaki mantıkla elde edebilirsiniz. Dönen değer verdiğiniz sayfadaki gibi 1 ve 0 şeklinde değilde, karakter kodu olarak geliyor (65 => A gibi) Yani bir exe yi notepad ile açtığınızda görevileceğiniz gibi.
Değişken isimleri ve returns kısmından fazlasını alamadım. Internet aramalarımdaki yorumlarda ufak bir çabayla Hex editorleriyle okunabileceği söyleniyor. Hex editörleri hakkında bilgim yok. Bu iş, program kırabilecek kişilerin yapabileceği iş gibi görünüyor.
Visual Basic
Sub test()
Dim cn As Object, rs As Object
Set cn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
cn.Open _
"Driver=Firebird/InterBase(r) driver;Uid=SYSDBA;Pwd=masterkey;" & _
"DbName=f:\PROGRAMLAR\Excel Bilgi Deposu\FireBird\FIFO.FDB"
rs.Open "select rdb$procedure_blr from rdb$procedures where rdb$procedure_id = 1", cn
For Each m In rs(0).Value
Debug.Print m
Next
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
Bağlantı için "role" e takılmayın ve kullanmayın. "sysdba" için gerekli değildir. (yukarıdaki conn. string de gördüğünüz gibi)
Bu da BLR kodunu okumak istediğim source text.
firebird is not a supported langage
List of available langages :
php, smarty, cuesheet, div, q, mapbasic, gambas, cfdg, netrexx, css, freeswitch, z80, java5, sparql, falcon, asymptote, dot, mxml, plsql, fsharp, dcpu16, vala, basic4gl, qbasic, clojure, oobas, powershell, rails, diff, pli, freebasic, sas, stonescript, scheme, latex, f1, pascal, 6502kickass, bnf, llvm, klonecpp, povray, applescript, python, coffeescript, progress, html4strict, postgresql, lua, newlisp, lisp, unicon, cadlisp, asm, vba, oxygene, modula2, urbi, go, gnuplot, m68k, vbnet, euphoria, spark, xorg_conf, properties, lolcode, oberon2, xbasic, avisynth, yaml, vhdl, cpp, logtalk, powerbuilder, gml, perl, icon, sdlbasic, fo, ocaml-brief, mmix, providex, pic16, klonec, abap, gwbasic, nagios, pike, genero, purebasic, zxbasic, haxe, lotusformulas, awk, visualfoxpro, cobol, pcre, ocaml, apt_sources, chaiscript, autoconf, j, intercal, 68000devpac, xml, asp, lotusscript, bascomavr, genie, tcl, prolog, upc, rebol, octave, nsis, groovy, cil, mirc, smalltalk, oracle11, pycon, mpasm, dos, rsplus, c, locobasic, ini, bash, d, javascript, vedit, magiksf, thinbasic, lb, parasail, proftpd, whitespace, oz, whois, teraterm, 4cs, actionscript, csharp, apache, make, objc, boo, fortran, delphi, oorexx, idl, ecmascript, visualprolog, algol68, verilog, html5, caddcl, haskell, uscript, blitzbasic, rpmspec, java, rexx, scilab, bibtex, ldif, inno, c_loadrunner, hq9plus, perl6, erlang, gdb, kixtart, vim, oracle8, reg, dcs, typoscript, per, hicest, objeck, eiffel, mysql, actionscript3, parigp, pys60, 6502acme, lscript, epc, gettext, scala, tsql, lsl2, matlab, autoit, pf, xpp, robots, ruby, cmake, ada, systemverilog, winbatch, c_mac, jquery, text, e, io, php-brief, pixelbender, modula3, glsl, autohotkey, email, cfm, bf, sql, 6502tasm, arm, dcl, cpp-qt
