 以上为解密代码
以下为加密代码
- --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
复制代码 |