Locked Out of Windows?

Have you locked out of your windows? Contact us and we will find a solution for you!
vaslabsco@gmail.com

JOKER PROGRAM!!!

Use our program and get a second opinion about the numbers you are going to play. Open the program, type begin and then enter. Enjoy: Download Now!

Κινέζικα σε 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.