Monday, February 22, 2010

VasLabs Antivirus Ranking

We test 10 Antivirus programs and we represent our result sorting from the best to the worse.

Name Detecting Removing User Friendly Overall

1. Kaspersky AntiVirus 9.9 10 8 9.3
2. Nod32 8.6 8.1 8.5 8.4
3. Panda 8.8 8.1 8 8.3
4. AVG 8 7.9 9 8.3
5. McAfee 7.4 8 9 8.1
6. Ashampoo 7 7 9 8
7. F-Secure 8.1 7.9 7.5 7.8
8. BitDefender 7.5 7 8 7.5
9. Avast 7 6.4 8.3 7.1
10. Norton 5 6 8 6.3

Sunday, February 21, 2010

How to remove recent documents in word 2007

Unfortunately there isn't any way for direct deleting. I am going to show you a way through the registry. The example shown is for word but you can do the same for excel or power point.
Press start, type 'regedit' end press enter.
Follow the path: HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Word\File MRU
On the right you can see some key values. Expand data so you can see all the details. Remove the objects you do not want by right clicking the item that matches to the path of the file and select delete.
By Vasilis Nicolaou

Thursday, February 18, 2010

TIK-TAK-TOE

Play TIK-TAK-TOE or more common as X-O with your friends! Enjoy! Download Now

Sunday, February 14, 2010

Binary translator in Pascal

I represent a sample code of a binary translator algorithm. If you have any questions don't hesitate to leave a comment. Thank you!


Program
binary;
uses crt;
Type
pin=Array[0..14] of Integer;
var
number:Integer;
bintbl,result:pin;
ans:integer;
bnr:string;

Function power_of_2(power:integer):Integer;
var i,p:integer;
begin
p:=1;
for i:=1 to power do
p:=p*2;
power_of_2:=p
end;


Function bin(num:Integer):String;
var iplp,i:integer;
begin
repeat

iplp:=num mod 2;
if iplp=0 then
bin:='0'+bin
else
bin:='1'+bin;
num:=num div 2;
until num=0;
end;


Function cint(b:string):integer;
begin
if b='1' then
cint:=1 else cint:=0; end;



Procedure put_in(Var bl:pin; s:string);
var i:integer;
begin
for i:=0 to length(s)-1 do
bl[i]:=cint(COPY(s,length(s)-i,1));
end;


Function normal(bl:pin):integer;
var i:integer;
begin
normal:=0;
for i:=14 downto 0 do
if bl[i]=1 then
normal:=normal+power_of_2(i);
end;



Procedure print_result(res:pin);
var i:integer;
begin
for i:=14 downto 0 do
write(res[i]);
end;

begin
repeat
clrscr;
writeln('Binary Translator');
writeln;
writeln('What do you want to do?');
writeln;
writeln('1. Binary->normal');
writeln('2. Normal->binary');
writeln('3. Exit');
writeln;
readln(ans);
case ans of
1:begin
writeln('Give the binary');
repeat
readln(bnr);
until length(bnr)<=14; put_in(bintbl,bnr); writeln('The number is'); writeln(normal(bintbl)); print_result(bintbl); readln; readln; end;
2:begin

writeln('Give a positive number');
writeln;
readln(number);
writeln(bin(number));
prepare;
readln;
end;


end;
until ans=3;


clrscr;
writeln('By vaslabs');
writeln('Author: Vasilis Nicolaou');
readln;
end.