Bergatrollet's Tech Blog » Delphi

Master the FRA challenge

admin — Wed, 04 May 2011 21:45:42 +0000

If you seek work at FRA (the military unit handling signal intelligence, now also in cables) you need to pass a test. The challenge is in Swedish and you have to be a Swedish citizen in order to get the job, but anyway you need to deciper a piece of code (x86 assembler) which will give you a string. It’s a quite nice lite stack excersise and even if you didn’t understand that, I guess you can tell the core part of the code anyway.

http://fra.easycruit.com/vacancy/547834/58086?iso=se

Just to shhow off, please find my piece of Delphi code below. Create a form, throw in a button and an editbox. Add the code to the event handler of the button:

procedure TForm1.Button1Click(Sender: TObject);
const
indata : Array[1..20] of Byte = ($76,$75,$74,$2a,$63,$74,$66,$26,$7a,$6f,$24,$6f,$65,$6f,$63,$7c,$74,$7c,$74,$71);

var
outdata : string;
counter : byte;
begin

for counter := 1 to 20 do begin
outdata := outdata + Chr(indata[counter] XOR Counter)
end;

Edit1.text := outdata;

end;

Sorry – the editor f*cked up my indentation

Well it starts there. With the URL you are supposed to go on with phase 2

Help for Delphi 2009

admin — Tue, 07 Apr 2009 18:00:20 +0000

I had problems with the helpfiles to Delphi 2009. Found the help that did it for me here, thanks to Samir Shagavatov

Try following:
Go to “C:\Program Files\CodeGear\RAD Studio\5.0\Help\Doc\” directory
and type these commands
h2reg.exe -u
h2reg.exe -r

if h2reg.exe or h2reg.ini is empty, you can get them from here:
h2reg.exe – http://www.helpware.net/mshelp2/h2reg.htm
h2reg.ini – http://www.box.net/shared/du2seak0s4

Copy h2reg.exe and h2reg.ini to the “…doc\” directory and type the
commands above.

I can add to his comment that in order to do the trick for Delphi 2009 the instructions only need to be adjusted to point to the 6.0 directory;

Go to “C:\Program Files\CodeGear\RAD Studio\6.0\Help\Doc\” directory
and type these commands
h2reg.exe -u
h2reg.exe -r

Rave 7.6.0 bug …

admin — Wed, 04 Mar 2009 00:08:15 +0000

Rave is the reporting engine in Delphi (since long!). In Delphi 2009 they ship version 7.6.0 (7.6.1 is possible to download for registered users and I read on forums that version 8 is available, at least for pre-order). The Nevrona.com homepage is a huge piece of crap that works really poorly in Firefox, which of course adds a bit to the suspicion of their products in general.

Receiving an “AccessViolation in module rtl120.bpl” error while starting Rave 7.6.0 caused major irritation.

Found the answer; remove printers!

I deleted the Fax and Send to OneNote before I tried again and this did the trick. I can of course not say which one of them that was the magic key, but reading up on other forums I would propose OneNote as the prime suspect.

Delphi 2009

admin — Thu, 25 Sep 2008 20:13:36 +0000

I just downloaded the demo of Delphi 2009 and installed it. Watched a few demonstration videos.

Quite a few to watch:

http://dn.codegear.com/article/38478

A good pick:

http://windemo1.codegear.com/Tiburon/LaunchReplays/Delphi2009Launch/Delphi2009Launch.htm

Was reminded that the Logitech camera interferes with Delphi. I think it still does actually

http://bdntv.borland.com/pix/nickhodges/Camtasia/Logitech/Logitech.html

Did another piece of code that wouldn’t compile (here commented out) – The Pos wouldn’t work!

// PROBLEM WITH DELPHI 2009

// with TCustomADODataSet(SelectGrid.DataSource.DataSet) do
// begin
//    if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(‘ DESC’, Sort)= 0) then   //<- It stops here!
//      Sort := Column.Field.FieldName + ‘ DESC’
//    else
//      Sort := Column.Field.FieldName + ‘ ASC’;
//
//    If Column.Field.FieldName = ‘MCC’ then
//       ADO_Progress.Sort := ‘MCC ASC, MNC ASC’
//    else
//       ADO_Progress.IndexFieldNames := sort; /// TEST!
// end;

[EDIT]

… which I got to work using a RawByteString() typecast …

with TCustomADODataSet(SelectGrid.DataSource.DataSet) do
begin
if (Pos(RawByteString(Column.Field.FieldName), Sort) = 1) and (Pos(RawByteString(‘ DESC’), Sort)= 0) then
Sort := Column.Field.FieldName + ‘ DESC’
else
Sort := Column.Field.FieldName + ‘ ASC’;

If Column.Field.FieldName = ‘MCC’ then
ADO_Progress.Sort := ‘MCC ASC, MNC ASC’
else
ADO_Progress.IndexFieldNames := sort; /// TEST!
end;