Me
000111010000101111010110010011111001111010001111010011101010 |
Ruh Seorang mukmin tergantung pada Hutangnya hingga dilunasi
"Ruh Seorang mukmin tergantung pada Hutangnya hingga dilunasi"
Bersama :
Ustadz Abu Fathi Yazid bin Abdul Qadir Jawas, hafidzahullah
(Penulis)
Merujuk kitab :
Ruh Seorang mukmin tergantung pada hutangnya hingga dilunasi
Ahad, 2 Mei 2010
09.00 WIB – Zhuhur
Masjid Jakarta Islamic Center
Kramat Koja Jakarta Utara
Enkripsi di SQL Server
- AES_ENCRYPT(str,key_str), AES_DECRYPT(crypt_str,key_str)
- ENCODE(str,pass_str), DECODE(crypt_str,pass_str)
- DES_DECRYPT(crypt_str[,key_str]), DES_ENCRYPT(str[,{key_num|key_str}])
- ENCRYPT(str[,salt])
- MD5(str)
- SHA1(str), SHA(str)
--------------------------
CREATE FUNCTION dbo.fnInitRc4
(
@Pwd VARCHAR(256)
)
RETURNS @Box TABLE (i TINYINT, v TINYINT)
with ENCRYPTION
AS
BEGIN
DECLARE @Key TABLE (i TINYINT, v TINYINT)
DECLARE @Index SMALLINT,
@PwdLen TINYINT
SELECT @Index = 0,
@PwdLen = LEN(@Pwd)
WHILE @Index <= 255
BEGIN
INSERT @Key(i,v)
VALUES (@Index,ASCII(SUBSTRING(@Pwd, @Index % @PwdLen + 1, 1)))
INSERT @Box(i,v)
VALUES (@Index,@Index)
SELECT @Index = @Index + 1
END
DECLARE @t TINYINT,
@b SMALLINT
SELECT @Index = 0,
@b = 0
WHILE @Index <= 255
BEGIN
SELECT @b = (@b + b.v + k.v) % 256
FROM @Box AS b
INNER JOIN @Key AS k ON k.i = b.i
WHERE b.i = @Index
SELECT @t = v
FROM @Box
WHERE i = @Index
UPDATE b1
SET b1.v = (SELECT b2.v FROM @Box b2 WHERE b2.i = @b)
FROM @Box b1
WHERE b1.i = @Index
UPDATE @Box
SET v = @t
WHERE i = @b
SELECT @Index = @Index + 1
END
RETURN
END
---------------------
CREATE FUNCTION dbo.fnRC4
(
@Pwd VARCHAR(256),
@Text VARCHAR(8000)
)
RETURNS VARCHAR(8000)
with ENCRYPTION
AS
BEGIN
DECLARE @Box TABLE (i TINYINT, v TINYINT)
INSERT @Box(i,v)
SELECT i,v
FROM dbo.fnInitRc4(@Pwd)
DECLARE @Index SMALLINT,
@i SMALLINT,
@j SMALLINT,
@t TINYINT,
@k SMALLINT,
@CipherBy TINYINT,
@Cipher VARCHAR(8000)
SELECT @Index = 1, @i = 0, @j = 0, @Cipher = ''
WHILE @Index <= DATALENGTH(@Text)
BEGIN
SELECT @i = (@i + 1) % 256
SELECT @j = (@j + b.v) % 256
FROM @Box b
WHERE b.i = @i
SELECT @t = v
FROM @Box
WHERE i = @i
UPDATE b
SET b.v = (SELECT w.v FROM @Box w WHERE w.i = @j)
FROM @Box b
WHERE b.i = @i
UPDATE @Box
SET v = @t
WHERE i = @j
SELECT @k = v
FROM @Box
WHERE i = @i
SELECT @k = (@k + v) % 256
FROM @Box
WHERE i = @j
SELECT @k = v
FROM @Box
WHERE i = @k
SELECT @CipherBy = ASCII(SUBSTRING(@Text, @Index, 1)) ^ @k,
@Cipher = @Cipher + CHAR(@CipherBy)
SELECT @Index = @Index +1
END
RETURN @Cipher
END
------------------------------
kalau kalian punya metode lain bisa di share dunk .... :)
(koral web)
Menghitung hari kerja di SQL Server
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER function [dbo].[f_GetWD]
(
@startDate SMALLDATETIME,
@endDate SMALLDATETIME
)
RETURNS INT
AS
BEGIN
DECLARE @range INT;
SET @range = DATEDIFF(DAY, @startDate, @endDate)+1;
RETURN
(
SELECT
@range / 7 * 5 + @range % 7 -
(
SELECT COUNT(*)
FROM
(
SELECT 1 AS d
UNION ALL SELECT 2
UNION ALL SELECT 3
UNION ALL SELECT 4
UNION ALL SELECT 5
UNION ALL SELECT 6
UNION ALL SELECT 7
) weekdays
WHERE d <= @range % 7
AND DATENAME(WEEKDAY, @endDate - d + 1)
IN
(
'Saturday',
'Sunday'
)
)
);
END
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
Format Currency di SQL Server
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER FUNCTION [dbo].[fn_format_currency] (@monetary_value decimal(20,0) ) returns varchar(20)
as
begin
declare @return_value varchar(20)
declare @is_negative bit
select @is_negative = case when @monetary_value<0 then 1 else 0 end
if @is_negative = 1
set @monetary_value = -1*@monetary_value
set @return_value = convert(varchar, isnull(@monetary_value, 0))
declare @before varchar(20), @after varchar(20)
if charindex ('.', @return_value )>0
begin
set @after= substring(@return_value, charindex ('.', @return_value ), len(@return_value))
set @before= substring(@return_value,1, charindex ('.', @return_value )-1)
end
else
begin
set @before = @return_value
set @after=''
end
-- after every third character:
declare @i int
if len(@before)>3
begin
set @i = 3
while @i>1 and @i < len(@before)
begin
set @before = substring(@before,1,len(@before)-@i) + ',' + right(@before,@i)
set @i = @i + 4
end
end
set @return_value = @before + @after
if @is_negative = 1
set @return_value = '-' + @return_value
return @return_value
end
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
Admin Finder
import sys, os, time, httplib
if sys.platform == 'linux' or sys.platform == 'linux2':
clearing = 'clear'
else:
clearing = 'cls'
os.system(clearing)
if len(sys.argv) != 2:
print "\n|---------------------------------------------------------------|"
print "| b4ltazar[@]gmail[dot]com |"
print "| 03/2009 Admin login finder v2.0 |"
print "| Help: admin-find.py -h |"
print "| Visit www.darkc0de.com and www.ljuska.org |"
print "|---------------------------------------------------------------|\n"
sys.exit(1)
for arg in sys.argv:
if arg == '-h':
print "\n|-------------------------------------------------------------------------------|"
print "| b4ltazar[@]gmail[dot]com |"
print "| 03/2009 Admin login finder v2.0 |"
print "| Usage: admin-find.py www.site.com |"
print "| Example: admin-find.py site.com |"
print "| Visit www.darkc0de.com and www.ljuska.org |"
print "|-------------------------------------------------------------------------------|\n"
sys.exit(1)
site = sys.argv[1].replace("http://","").rsplit("/",1)[0]
site = site.lower()
admin_path = ['admin.php','admin/','administrator/','moderator/','webadmin/','adminarea/','bb-admin/','adminLogin/','admin_area/','panel-administracion/','instadmin/','memberadmin/','administratorlogin/','adm/','admin/account.php','admin/index.php','admin/login.php','admin/admin.php','admin/account.php','joomla/administrator','login.php',
'admin_area/admin.php','admin_area/login.php','siteadmin/login.php','siteadmin/index.php','siteadmin/login.html','admin/account.html','admin/index.html','admin/login.html','admin/admin.html','admin_area/index.php','bb-admin/index.php','bb-admin/login.php','bb-admin/admin.php','admin/home.php','admin_area/login.html','admin_area/index.html','admin/controlpanel.php','admincp/index.asp','admincp/login.asp','admincp/index.html','admin/account.html','adminpanel.html','webadmin.html','webadmin/index.html','webadmin/admin.html','webadmin/login.html','admin/admin_login.html','admin_login.html','panel-administracion/login.html','admin/cp.php','cp.php','administrator/index.php','administrator/login.php','nsw/admin/login.php','webadmin/login.php','admin/admin_login.php','admin_login.php','administrator/account.php','administrator.php','admin_area/admin.html','pages/admin/admin-login.php','admin/admin-login.php','admin-login.php','bb-admin/index.html','bb-admin/login.html','bb-admin/admin.html','admin/home.html','modelsearch/login.php','moderator.php','moderator/login.php','moderator/admin.php','account.php','pages/admin/admin-login.html','admin/admin-login.html','admin-login.html','controlpanel.php','admincontrol.php',
'admin/adminLogin.html','adminLogin.html','admin/adminLogin.html','home.html','rcjakar/admin/login.php','adminarea/index.html','adminarea/admin.html','webadmin.php','webadmin/index.php','webadmin/admin.php','admin/controlpanel.html','admin.html','admin/cp.html','cp.html','adminpanel.php','moderator.html','administrator/index.html','administrator/login.html','user.html','administrator/account.html','administrator.html','login.html','modelsearch/login.html','moderator/login.html','adminarea/login.html','panel-administracion/index.html','panel-administracion/admin.html','modelsearch/index.html','modelsearch/admin.html','admincontrol/login.html','adm/index.html','adm.html','moderator/admin.html','user.php','account.html','controlpanel.html','admincontrol.html','panel-administracion/login.php','wp-login.php','adminLogin.php','admin/adminLogin.php','home.php','adminarea/index.php','adminarea/admin.php','adminarea/login.php','panel-administracion/index.php','panel-administracion/admin.php','modelsearch/index.php','modelsearch/admin.php','admincontrol/login.php','adm/admloginuser.php','admloginuser.php','admin2.php','admin2/login.php','admin2/index.php','adm/index.php','adm.php','affiliate.php','adm_auth.php','memberadmin.php','administratorlogin.php']
print "\n|---------------------------------------------------------------|"
print "| b4ltazar[@]gmail[dot]com |"
print "| 03/2009 Admin login finder v2.0 |"
print "| Visit www.darkc0de.com and www.ljuska.org |"
print "|---------------------------------------------------------------|\n"
print "\n[-] %s" % time.strftime("%X")
print "[+] Target:",site
print "[+] Checking paths..."
try:
for admin in admin_path:
admin = admin.replace("\n","")
admin = "/" + admin
connection = httplib.HTTPConnection(site)
connection.request("GET",admin)
response = connection.getresponse()
print "%s %s %s" % (admin, response.status, response.reason)
except(KeyboardInterrupt,SystemExit):
raise
except:
pass
--------------------------------------------------
Sekedar mau sharing... gwe dapet source code tersebut dari salah satu milis.... kalau cms Anda memiliki folder/file seperti source code berwarna merah, Anda harus berhati-hati karena begitu ada bugs di web Anda kemungkinan besar web Anda bisa di hack.
Ngakalin Registrasi di Visual Studio Express
Berikut sedikit trik buat kamu yang menggunakan visual studio express yang habis masa berlaku registrationnya.
1. Start > Run > Ketik Regedit
2. Rename HKEY_CURRENT_USER\Software\Microsoft\VWDExpress\9.0\Registration menjadi
HKEY_CURRENT_USER\Software\Microsoft\VWDExpress\9.0\Registration_sv
Silahkan koding lagi bos ;)
Detect invisible Yahoo! Messenger users
Bagi para pemakai Yahoo Messenger mungkin tidak asing lagi dengan status invisible. Banyak alasan kenapa user memasang status invisble, biasanya sih lagi sibuk dan malas di ganggu. Ada beberapa website yang menawarkan untuk melihat status dari pengguna YM salah satunya yahooscan. Untuk mengujinya kita tinggal masukan saja id YM-nya. Silahkan di coba
Krapu CMS
Hari ini, hari kedua gwe ngeblog di blogspot. Iseng-iseng gwe ngebrowse nama gwe di google.... Sial masih belum ke index juga web gwe andy-reza.blogspot.com. Bahkan gwe browse dengan andy-reza.blogspot.com juga masih ngga ketemu... :(
Yang bikin gwe surprise dari pencarian ini, gwe nemu web gwe yang lama yang gwe buat 15 Juni 2008 atau hampir 2 tahun lalu. Web ini cuma iseng-iseng doang. gwe cuma pengen tau Wordpress itu apa :D abis itu webnya gwe tinggalin dan ngga gwe urus lagi, bahkan gwe lupa gwe buat itu pake username apaan :D
Walaupun berada di page ke-5, gwe masih tetap salut sama wordpress. Wordpress masih terus mempromosikan web gwe, tanpa gwe suruh bahkan ngga gw gaji :D. Gwe sih berharap blogspot bisa melakukan lebih dari wordpress.... (ngarep :D)
Kajian Ilmiyyah Islamiyyah "Lau Kaana Khairan Lasabakuunaa Ilaihi"
Kajian Ilmiyyah Islamiyyah !
"Lau Kaana Khairan Lasabakuunaa Ilaihi"
"Kalau Sekiranya Perbuatan itu Baik, Tentulah Para Shahabat telah Mendahului Kita Mengamalkannya"
Bersama:
Ustadz Abu Unaisah Abdul Hakim bin Amir Abdat -hafizhahullah-
Insya Allah diselenggarakan pada :
Ahad, 3 Jumadil Ula 1431/18 April 2010
Waktu : Pkl 09.00 WIB s.d selesai
Tempat : Masjid Jami' Baitul Kamal (Masjid Walikota – Depok)
Jalan Margonda Raya – Depok (Depan Polres Depok)
Penyelenggara:
- Maktabah Mu'awiyah bin Abi Sufyan
dan
- Yayasan Mutiara Sunnah - Depok
Bekerjasama dengan:
DKM Masjid Jami' Baitul Kamal
Blog Archive
-
▼
2010
(24)
-
▼
April
(14)
- Me
- Ruh Seorang mukmin tergantung pada Hutangnya hingg...
- Banyak sekali pilihan web based wysiwg editor anta...
- Enkripsi di SQL Server
- Menghitung hari kerja di SQL Server
- Format Currency di SQL Server
- Admin Finder
- Ngakalin Registrasi di Visual Studio Express
- Detect invisible Yahoo! Messenger users
- Krapu CMS
- Hari ini, hari kedua gwe ngeblog di blogspot. Ise...
- Kajian Ilmiyyah Islamiyyah "Lau Kaana Khairan Lasa...
- My Program
- Download
-
▼
April
(14)
About Me
- Koral Web
- Kami adalah web developer. Beberapa produk yang pernah kami buat antara lain website, aplikasi klinik, aplikasi apotik, aplikasi EDMS (Electronic Database Management System), Energy Consumption Management System, RKBI (Rencana Kunjungan Barang Import) dan lain-lain sesuai dengan request dari client kami. Jika Anda tertarik untuk membuat system atau aplikasi, jangan sungkan-sungkan menghubungi kami.
Bahasa Pemrogramanmu?
Nasihat
Web Sunnah
Blog Archieve
- Info (3)
- Kajian (3)
- My Program (1)
- Orang Terkenal (1)
- scrip (2)
- SQL (23)
- Subquery (9)
- Trik (13)