| 以上为解密代码以下为加密代码
 
 复制代码--Electro Shock Private Server Gaming--
--Procedure Create Time 10.05.2008--
--Please Do Not Change Procedures--
--Lütfen Procedure Üstünde Değişiklik Yapmayınız--
CREATE PROCEDURE item_encode
@strUserId varchar(30)
AS
DECLARE
@length int, -- stritem uzunluğu
@row int, -- yerine göre deişior.
@i int, -- item'in stritem deki yeri
@dwid int, -- dwid
@pos int,
@dur int,
@dur1 int,
@ext int,
@StackSize1 int,
@strName varchar(30),
@strExtName varchar(30),
@Cdwid varbinary(4),
@cdur varchar(2),
@Source tinyint,
@NEWdwid int,
@StackSize int,
@cstack varchar(2),
@Slot int
    SET @Slot=0
    SET @i = 14*0
    SET @length = 337
SELECT @row=count( * ) FROM USERDATA WHERE strUserId=@strUserId
IF @row>0 
  BEGIN
SELECT @dwid=dwid,
@dur = durability,
@StackSize1 = stacksize,
        @strUserId = strUserId
        FROM INVENTORY_EDIT
        WHERE strUserId = @strUserId and Slot=@Slot
    SET @Cdwid = Substring(cast(@dwid as varbinary(4)), 4, 1) + Substring(cast(@dwid as varbinary(4)), 3, 1) + Substring(cast(@dwid as varbinary(4)), 2, 1) + Substring(cast(@dwid as varbinary(4)), 1, 1)
    SET @Cdur = cast(Substring(cast(@dur as varbinary(2)), 2, 1)+Substring(cast(@dur as varbinary(2)), 1, 1) as varchar(2))
    SET @Cstack = cast(Substring(cast(@StackSize1 as varbinary(2)), 2, 1)+Substring(cast(@StackSize1 as varbinary(2)), 1, 1) as varchar(2))
    UPDATE USERDATA SET strItem = cast(cast(cast(@Cdwid as varchar(4)) + @Cdur + @Cstack as varchar(8))   as binary(400)) WHERE strUserId = @strUserId
    SET @i=@i+8
    SET @Slot=@Slot+1
WHILE @Slot < 42
  BEGIN
SELECT @dwid=dwid,
@dur = durability,
@StackSize1 = stacksize,
        @strUserId = strUserId
        FROM INVENTORY_EDIT
        WHERE strUserId = @strUserId and Slot=@Slot
    SET @Cdwid = Substring(cast(@dwid as varbinary(4)), 4, 1) + Substring(cast(@dwid as varbinary(4)), 3, 1) + Substring(cast(@dwid as varbinary(4)), 2, 1) + Substring(cast(@dwid as varbinary(4)), 1, 1)
    SET @Cdur = cast(Substring(cast(@dur as varbinary(2)), 2, 1)+Substring(cast(@dur as varbinary(2)), 1, 1) as varchar(2))
    SET @Cstack = cast(Substring(cast(@StackSize1 as varbinary(2)), 2, 1)+Substring(cast(@StackSize1 as varbinary(2)), 1, 1) as varchar(2))
    UPDATE USERDATA SET strItem = cast( substring(strItem, 1, @i) + cast(cast(@Cdwid as varchar(4)) + @Cdur + @Cstack as varchar(8)) + substring(strItem, @i+8, 401-@i) as binary(400)) WHERE strUserId = @strUserId
    SET @i=@i+8
    SET @Slot=@Slot+1
END
END
DELETE FROM INVENTORY_EDIT
GO
 |