VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 6352|回复: 24

[推荐] 好消息,Planet Source Code Jumbo Resource CD最新2012版本发布了

[复制链接]
发表于 2012-12-15 08:58:27 | 显示全部楼层 |阅读模式
好消息,Planet Source Code Jumbo Resource CD 最新2012版本发布了

Important alert: (current site time 12/14/2012 9:41:31 AM EDT)

Love Planet Source Code, but tired of waiting for downloads? Get all the code instantly on your desktop with 7 new CDs!

Checkout the new discussion board, with ranked answers, badges for top participants and much, much more!


Planet Source Code Jumbo Resource CD 7 这里下载:
http://www.exhedra.com/Exhedra/PlanetSourceCode/Download.aspx?lngProductId=16

其他的资源光盘的下载地址请到这里找:
http://www.exhedra.com/exhedra/PlanetSourceCode/CD.aspx


不知道新林以前写的解密还有效不

本帖被以下淘专辑推荐:

 楼主| 发表于 2012-12-15 09:01:01 | 显示全部楼层
好像是昨天才刚更新的
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-12-15 10:53:17 | 显示全部楼层
加密方式没有改变
回复 支持 反对

使用道具 举报

发表于 2012-12-15 20:28:51 | 显示全部楼层
打不开

点评

傲游3浏览器打不开,金山猎豹浏览器可以打开,但是不能迅雷下载。。。。。  发表于 2012-12-15 21:24
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-12-15 21:32:30 | 显示全部楼层
他把文件放到 doc.google上了, 被屏蔽了, 挺难下载的.

最可气的是doc.google似乎不支持断点续传

点评

赶紧下载回来之后传到国内网盘上去  发表于 2012-12-15 22:06
IPv6翻不就搞定了  发表于 2012-12-15 22:06
回复 支持 反对

使用道具 举报

发表于 2012-12-15 23:06:13 | 显示全部楼层
每秒16kb的下载速度,下到猴年马月啊。。。。
回复 支持 反对

使用道具 举报

发表于 2012-12-16 09:10:30 | 显示全部楼层
我下载完了,用迅雷下的。
另外,我在论坛搜寻了下楼主提及的新林的解密工具,但发现该贴已经被删除没找到。只能自己研究看看,哪知道加密具简单。

如果文件大于0x3180,则从0x3180开始Xor 255直到文件结束,如果文件小于0x3180,则整个文件Xor 255。输入文件是*.psc,输出文件时*.zip。我只试验了两个文件,如果有错请纠正。代码如下:

Option Explicit

Public Function Byte2File(sByte() As Byte, ByVal sFile As String) As Long
     Dim F As Integer
     F = FreeFile
     If Len(Dir$(sFile)) > 0 Then Kill sFile
     On Error GoTo Errs
     Open sFile For Binary As #F
     Put #F, , sByte()
     Close #F
     Byte2File = 1
Errs:
     Exit Function
End Function
Public Function File2Byte(ByVal sFile As String, sByte() As Byte) As Long
     Dim F As Integer
     F = FreeFile
     If Len(Dir$(sFile)) = 0 Then Exit Function
     If FileLen(sFile) < 1 Then Exit Function
     
     ReDim sByte(FileLen(sFile) - 1)
     Open sFile For Binary Shared As #F
     Get #F, , sByte()
     Close #F
     File2Byte = UBound(sByte()) + 1
End Function

Public Function DecryptPsc(ByVal PscFile As String, Optional ByVal ZipFile As String = "") As Long
     Dim lpBuffer() As Byte
     Dim lpSize As Long

     lpSize = File2Byte(PscFile, lpBuffer())
     If lpSize = 0 Then Exit Function
     If Len(ZipFile) = 0 Then
         PscFile = LCase$(PscFile)
         ZipFile = Split(PscFile, ".psc")(0) + ".Zip"
     End If

     Dim I As Long
     Dim lpStart As Long

     If lpSize >= &H3180& Then
         lpStart = &H3180&
     End If

     For I = lpStart To lpSize - 1
         lpBuffer(I) = lpBuffer(I) Xor 255
     Next I
     DecryptPsc = Byte2File(lpBuffer(), ZipFile)

End Function

点评

那个帖子刷新没用  发表于 2012-12-16 14:28
好像不管用  发表于 2012-12-16 14:27
你F5一下就发现帖子其实没有被删除  发表于 2012-12-16 13:23
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-12-16 10:39:16 | 显示全部楼层
以前下载的几个PSC的ISO想不起放哪里了
回复 支持 反对

使用道具 举报

发表于 2012-12-16 13:23:21 | 显示全部楼层
谁下载上传国内网盘,谢谢!!
回复 支持 反对

使用道具 举报

发表于 2012-12-16 13:49:37 | 显示全部楼层
plindge 发表于 2012-12-16 09:10
我下载完了,用迅雷下的。
另外,我在论坛搜寻了下楼主提及的新林的解密工具,但发现该贴已经被删除没 ...

http://www.vbgood.com/thread-107452-1-1.html

这个,无论怎么F5都看不到啊。

点评

抢楼贴有Bug造成的  发表于 2012-12-16 15:41
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-7-4 23:50

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表