Andy Reza

Hadirilah…!
Kajian Ilmiah Islamiyah !
Seri ke-2 dari buku:
"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, 2 Jumadits Tsaniyah 1431/16 Mei 2010

Waktu : Pkl 09.00 WIB s.d selesai

Tempat : Masjid Agung Baitul Kamal (Masjid Walikota – Depok)
Jalan Margonda Raya – Depok (Depan Polres Depok)

000111010000101111010110010011111001111010001111010011101010 100011001001000011010111010011100111011000011000011010101110 011011111001101111010100110010110100111100000001100100010100 101000101010110011010010101000100001001100111000101011011001 011111101011011110010111001110000110000010011101001110101011 101001001010000000000110101000011000011000000111110100100101 100011011110101010111101110110101110010000100001001001110110 100001000001001011011110010000000011110010000100000110100001 101110100101000000001001010101000111001101001111100111000001 001000101010101101100110110100010010101000111010010010011111 001100000110101101001110100110000011110010111000001000101100 011110110011111000111100100100111100010101100011111110110010 001111000001101000000111111001000101100001110101000000001110 000010010011100011101111010101101101001110001101000111001110 101011010000101111101100100101000010010101001111110100101000 001110111111010011001110010011100000001111101100101100100010 010010111001010100111111010101000101100001101011100011111100 010010010001110111101011001111001010101100101101001010101000 011101000111001000100110101100100101011110101110101110010111

Hadirilah Bedah Buku, Terbuka untuk Ikhwan & Akhwat

"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

Dibandingan dengan MySQL enkrip-dekrip di SQL Server jauh lebih rumit (itu sih pendapat gwe loh). Cukup banyak variasi enkrip-dekrip di MySQL seperti :

• 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) 

Setelah browsing beberapa lama akhirnya gwe temuin juga function enkrip-dekrip (pake RC4) di SQL Server. Gwe lupa dapet darimana. Kalian bisa copas function berikut:

--------------------------
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)

Berikut function untuk menghitung hari kerja dalam sebulan (sabtu dan minggu libur)



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

SET ANSI_NULLS ON
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