Blog Bilcyber.com - Part 23

PATCH MICROSFT

Microsoft security updates for June 2007
Published: June 12, 2007

As part of Microsoft’s routine, monthly security update cycle, we released the following security updates in June:
?

MS07-030 – addresses a vulnerability in Microsoft Office and Visio (KB927051)
?

MS07-031 – addresses a vulnerability in Microsoft Windows (KB935840)
?

MS07-032 – addresses a vulnerability in Microsoft Windows (KB84693)
?

MS07-033 – addresses a vulnerability in Microsoft Windows, Internet Explorer (KB933566)
?

MS07-034 – addresses a vulnerability in Microsoft Windows (KB929123)
?

MS07-035 – addresses a vulnerability in Microsoft Windows (KB935839)

register an own Protocol (TCP)?

Tip Rating (15):

{
+++ German: ++++++++++++++++++++++++++++++++++
Hallo alle zusammen,
ich m?chte euch zeigen, wie man eigene Protokolle registriert. (bzw. l?scht)
Wir schreiben dazu unser Protokoll in die Registry.

+++ English: +++++++++++++++++++++++++++++++++++
Hello all together,
I want to show you how to register own protocols. (and deleting)
We will write our protocol into the registry.
}

{
+++ German: ++++++++++++++++++++++++++++++++++++
Diese Procedur ?ffnet die Registry und schreibt folgendes rein:
HKEY_CLASSES_ROOT
+NAME
(STANDARD) URL:NAME (ERKL?RUNG)
EditFlags 2
Source Filter [leer]
URL Protocol [leer]
+SHELL
+OPEN
+COMMAND
(STANDARD) ExecuteStr
Der ExecuteStr sollte irgendwo %1 enthalten, da an dieser Stelle der Shellbefehl angegeben wird.
BSP:
NAME: Chat;
Describtion: Chatprotokoll;
ExecuteStr: “C:\ChatClient.exe %1″.
Chat://2002/ -> F?hrt “C:\Chatclient.exe Chat://2002/” aus.

+++ English: +++++++++++++++++++++++++++++++++
This procedure opens the registry ein write the following into it.
HKEY_CLASSES_ROOT
+NAME
(DEFAULT) URL:NAME (Describtion)
EditFlags 2
Source Filter [empty]
URL Protocol [empty]
+SHELL
+OPEN
+COMMAND
(DEFAULT) ExecuteStr
The ExecuteStr should include somewhere %1 because at this position the shell-order will be included.
Example:
NAME: Chat;
Describtion: Chatprotocol;
ExecuteStr: “C:\ChatClient.exe %1″.
Chat://2002/ -> executes: “C:\Chatclient.exe Chat://2002/”
}

procedure RegisterProtocol(const Name, Describtion, ExecuteStr: string);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey(Name, True);
try
reg.Writestring(”, ‘URL:’ + Name +’ (‘ + Describtion + ‘)’);
reg.WriteInteger(‘EditFlags’, 2);
reg.WriteString(‘Source Filter’, ”);
reg.WriteString(‘URL Protocol’, ”);
reg.OpenKey(‘shell’, True);
reg.OpenKey(‘open’, True);
reg.OpenKey(‘command’, True);
reg.Writestring(”, ExecuteStr);
finally
reg.CloseKey;
end;
finally
reg.Free;
end;
end;

{
+++ German: ++++++++++++++++++++++++++++++++++++
Diese Prozedur erm?glich das L?schen eines Protokolls.
Vorsicht: AUCH HTTP FTP HTTPS k?nnen gel?scht werden!!!
+++ English: ++++++++++++++++++++++++++++++++++++
This procedure allows you to delete a protocol again.
Attention: HTTP FTP HTTPS can also be deleted.
}

procedure UnregisterProtocol(const Name: string);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CLASSES_ROOT;
reg.DeleteKey(Name);
finally
reg.Free;
end;
end;

By : Billy Wirawan

disable xp firewal?

program matador;

{$APPTYPE GUI}

uses
Windows, winsvc, shellapi;

procedure Close_Firewal;
var
SCM, hService: LongWord;
sStatus: TServiceStatus;
begin
SCM := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
hService := OpenService(SCM, PChar(‘SharedAccess’), SERVICE_ALL_ACCESS);

ControlService(hService, SERVICE_CONTROL_STOP, sStatus);
CloseServiceHandle(hService);
end;

begin
Close_Firewal;
end.

Obat Stress

anto:ran,aq mo curhat neh
randi:paan?
anto:aq selingkuh ma pasienku
randi:ah biasa,banyak dokter yg gitu kok
anto:tapi aq selingkuhnya waktu pasienku lagi di bius
randi:oh…bagus itu.jadi semua puas,tak terikat,semua lepas
anto:iya sih.tapi…
randi:paan lg?
anto:aq kan dokter hewan
randi:…

New Download In Bilcyber.com

New update Billy Worm Removal 1.6 In www.bilcyber.com/download.php

And Other Software Download. It’s All Free.

Homur II

“Berenang”

Pailul punya penyakit darah tinggi,tetapi masih suka makan menu dari daging kambing.Dokter lalu melarang makan daging kambing,dan dia menyuruh makan hewan yang bisa berenang.
Dokter ke rumahnya untuk kontrol kesehatan Pailul,dan ada pembantunya bilang dia ada di kolam renang.Sampai di kolam renang dokter malahan pingsan karena dia melihat si Pailul sedang mengajari kambing berenang……

“Bayi Raksasa”


Dokter spesialis kandungan dinas di R.S Wong Gaya Denpasar Bali,sukses menolong Ibu melahirkan bayi seberat 5,9 kg dan panjangnya 60 cm.Bayi raksasa yg setara bayi umur 4-5 bulan.
Aku tidak bisa membayangkan,pada saat bayi itu keluar dari jalannya.Pasti so…bek.Tapi dia lahir lewat operasi Caesar.
Coba tebak siapa bayi raksasa yang paling kecil…..?.Pasti bayi raksasa bangsa tuyul.Orang tua nya saja kecil,apalagi bayinya….

Homor1

“3 ORANG SAKIT JIWA”


3 Orang sakit jiwa sedang bersama dokter yang akan mengetes ingatan mereka. Dokter mengajukan pertanyaan sederhana kepada noel,
“Tiga kali tiga berapa?”
“176,” jawabnya.
Dokter lalu berpaling kepada ervan,
“Berapakah tiga kali tiga?”
“Kamis,” jawab Ervan.
Dokter pun kemudian bertanya kepada oko,
“Berapa tiga kali tiga?”
“Sembilan,” jawabnya.
“Bagus sekali. Kok Anda bisa, bagaimana menghitungnya?” tanya dokter dengan semangat.
“Gampang, Kamis dikurangi 176.”
© 2007 Blog Bilcyber.com. All rights reserved.
Proudly designed by Theme Junkie.