Κινέζικα σε text file!

Έχετε λάβει ένα text file το ανοίγετε και βλέπετε ένα σωρό ακαταλαβίστικους χαρακτήρες; Η λύση είναι απλή. Επιλέξτε file, save as.
Στο encoding επιλέξτε unicode (το ΑNSI είναι προεπιλεγμένο by default). Κάντε save, κλείστε τ αρχείο και ξανανοίξτε το! Voila!

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

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

TIK-TAK-TOE

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

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.

Password Maker for LINUX users!

And here it is our Present for Linux Users! Make Passwords that nobody can guess!
Download Now!

Christmas Game By VasLabs v1.0

Hello Everyone! Haven't got your Christmas present? Get our present now and play with your friends the Square tile game created by Vasilis Nicolaou!
Instructions:
Choose Multiplayer (single-player is not yet available due to unexpected technical difficulties! Hold the left mouse button on a tile, move right or down (not up or left) and release it at the next tile. Players are playing by turn. the one who manage to create a square earns points! Who can create a double square and earn applause? Enjoy!
Download Now!
report any bugs!