程序员最害怕的5件事 你中招了吗?
软件开发通常被认为是一个相当体面的工作，有很好的工资待遇，工作具有挑战性，目前市场对程序员的需求量在增加，而且工作环境很安全。但是所有的这些并不意味着开发人员无忧无虑，说不定会梦到工作中出现 …
微信OpenID获取
用户要求在微信端登录一次后,以后不需要再登录. 我的系统是单独的一个网站. 使用MVC的记住密码功能， 如果用户重启，就还是要输入密码，所以需要有一个唯一不变的用来标示用户的ID。 OpenID就是这样，微 …
[WordPress]在文章中插入FLASH和音乐（无需插件）
在WordPress中，要在文章中插入一段FLASH或者音乐，除了使用相应的FLASH插件和音频插件（比如Audio Player插件）以外，还可以使用html式的代码来实现调用，此举也可避免插件太多影响页面加载速度。 插入FLA …
关于表彰2010年度广州市青年文明号集体和广州市青年岗位能手的决定
关于表彰2010年度广州市青年文明号集体和广州市青年岗位能手的决定 2010年，我市各级团组织深入贯彻落实科学发展观，以“当好亚运东道主、志愿创造新生活”为主题，积极响应“迎接亚运会、创造新 …
这些「免费可商用」图片素材网站值得你收藏！设计找图不再烦啦
最近“视觉中国”闹得沸沸扬扬，从各方网友的评论看来，还真有不少公司吃过这种“钓鱼”侵权的亏，仅仅几张图片就要价几万，实在过分！更别说很多图片版权其实并不属于他们的。 但无论是个人、公司、自媒体，运 …
PuTTY – Windows 下最经典知名的免费 SSH 客户端工具软件
PuTTY 是 Windows 上最经典知名的免费 SSH / Telnet 客户端软件之一，它可以通过 SSH Telnet 协议连接到你的服务器，然后通过命令行进行各种远程操作。 随着 Linux 服务器端的普及，Linux 系统管理越来越依 …
Windows10访问不了WindowsXP/2003共享文件夹
Windows10访问不了WindowsXP/2003共享文件夹 开启SMBV1协议，重启电脑 方法/步骤 Windows10访问不了WindowsXP/2003共享文件夹错误提示，如图 win10系统未安装SMBV1协议 打开控制面板找到程序 3 windows功能 …
[VB.NET]在win服务中添加自动起动服务,每隔五分钟触发一次
写一个win服务.vb.net 可以写的.先新建一个windows服务项目,写好代码以后,在设计页按鼠标右键添加安装程序,在刚添加的安装程序设计里面修改这里面的两个成员的属性.account是启动帐号,一般可设置为localsys …
检索 COM 类工厂中 CLSID 为 {000209FF-0000-0000-C000-000000000046} 的组件时失败
Application当程序运行到这句时出现下面的错误：检索 COM 类工厂中 CLSID 为 {000209FF-0000-0000-C000-000000000046} 的组件时失败，原因是出现以下错误: 80070005。3.单击”安全”选项卡,分别在”启动和激活 …
群晖套件第三方资源
有很多的厂商在为DSM开发套件，有些是很优秀的饿，如packages.synocommunity.com，有些已经停止开发，但appp还在，有些网址不能正常访问，自己想办法fq，或者不用。请注意：不是所有的第三方app能正常使用 …
人人影视客户端64位官方最新Docker版 安装教程！
原使用的人人影视docker不能用了，搜索出来无信息，当时使用的是oldiy/rrshare64。在F12报错信息中，可以看到原来的接口没有返回值了，应该是人人影视把接口地址更换了。 从docker hub中找到了一个更新过的 …
群晖NAS download station PT下载必须修改的设置！
群晖NAS PT下载使用NAS自带的download station即可，但它的默认配置不太适用于PT，需要调整几个地方。 download station默认的设置是这样的，限制了上传速度以及连接peer的数目等等。这些都影响你的上传和 …
VB.NET BASE64编码解码函数、AES加密解密函数、URL编码函数、MD5加密
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
<pre class="inline:true class:language-dotnet decode:1 " > ''' <summary> ''' BASE64编码 ''' </summary> ''' <param name="code">待加密字符串</param> ''' <returns>加密后字符串</returns> ''' <remarks></remarks> Public Shared Function EncodeBase64(ByVal code As String) As String Dim encode As String = "" Dim bytes As Byte() = Encoding.Default.GetBytes(code) Try encode = Convert.ToBase64String(bytes) Catch encode = code End Try Return encode End Function ''' <summary> ''' BASE64解码 ''' </summary> ''' <param name="code">加密字符串</param> ''' <returns>解密后字符串</returns> ''' <remarks></remarks> Public Function DecodeBase64(ByVal code As String) As String Dim decode As String = "" Dim bytes As Byte() = Convert.FromBase64String(code) Try decode = Encoding.Default.GetString(bytes) Catch decode = code End Try Return decode End Function |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 |
<pre class="inline:true class:language-dotnet decode:1 " > ''' <summary> ''' AES加密 ''' </summary> ''' <param name="str">需加密字符串</param> ''' <param name="key">KEY</param> ''' <returns></returns> ''' <remarks></remarks> Public Shared Function AesEncrypt(ByVal str As String, ByVal key As String) As String Dim ReStr As String = "" If String.IsNullOrEmpty(str) Then Return Nothing Try Dim toEncryptArray As Byte() = Encoding.UTF8.GetBytes(str) Dim rm As System.Security.Cryptography.RijndaelManaged = New System.Security.Cryptography.RijndaelManaged With { .Key = Encoding.UTF8.GetBytes(key), .Mode = System.Security.Cryptography.CipherMode.ECB, .Padding = System.Security.Cryptography.PaddingMode.PKCS7 } Dim cTransform As System.Security.Cryptography.ICryptoTransform = rm.CreateEncryptor() Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length) ReStr = Convert.ToBase64String(resultArray, 0, resultArray.Length) Catch ex As Exception End Try AesEncrypt = ReStr End Function ''' <summary> ''' AES解密 ''' </summary> ''' <param name="str">需解密字符串</param> ''' <param name="key">KEY</param> ''' <returns></returns> ''' <remarks></remarks> Shared Function AesDecrypt(ByVal str As String, ByVal key As String) As String Dim ReStr As String = "" If String.IsNullOrEmpty(str) Then Return Nothing Try Dim toEncryptArray As Byte() = Convert.FromBase64String(str) Dim rm As System.Security.Cryptography.RijndaelManaged = New System.Security.Cryptography.RijndaelManaged With { .Key = Encoding.UTF8.GetBytes(key), .Mode = System.Security.Cryptography.CipherMode.ECB, .Padding = System.Security.Cryptography.PaddingMode.PKCS7 } Dim cTransform As System.Security.Cryptography.ICryptoTransform = rm.CreateDecryptor() Try Dim resultArray As Byte() = cTransform.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length) ReStr = Encoding.UTF8.GetString(resultArray) Catch ex As Exception '加密字符串被非法改动 End Try Catch ex As Exception '解密失败 '日志记录 End Try AesDecrypt = ReStr End Function |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
<pre class="inline:true class:language-dotnet decode:1 " > '''URL编码函数 ''' <summary> ''' URL编码 ''' </summary> ''' <param name="strURL">需要编码字符串</param> ''' <returns></returns> ''' <remarks></remarks> Shared Function URLEncode(ByRef strURL As String) As String Dim tmpstr As String = "" Dim I As Long Dim tempStr As String For I = 1 To Len(strURL) If Asc(Mid(strURL, I, 1)) < 0 Then tempStr = "%" & Right(CStr(Hex(Asc(Mid(strURL, I, 1)))), 2) tempStr = "%" & Left(CStr(Hex(Asc(Mid(strURL, I, 1)))), Len(CStr(Hex(Asc(Mid(strURL, I, 1))))) - 2) & tempStr tmpstr = tmpstr & tempStr ElseIf (Asc(Mid(strURL, I, 1)) >= 65 And Asc(Mid(strURL, I, 1)) <= 90) Or (Asc(Mid(strURL, I, 1)) >= 97 And Asc(Mid(strURL, I, 1)) <= 122) Then tmpstr = tmpstr & Mid(strURL, I, 1) Else tmpstr = tmpstr & "%" & Hex(Asc(Mid(strURL, I, 1))) End If Next Return tmpstr End Function |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
<pre class="inline:true class:language-dotnet decode:1 " > '''MD5 ''' <summary> ''' MD5加密 ''' </summary> ''' <param name="strSource">需要加密的字符串</param> ''' <param name="Code">加密位数 16 或 32 </param> ''' <returns>加密后字符串（小写）</returns> ''' <remarks></remarks> Public Shared Function MD5(ByVal strSource As String, ByVal Code As Int16) As String Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).GetBytes(strSource) Dim hashvalue As Byte() = CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"), System.Security.Cryptography.HashAlgorithm).ComputeHash(dataToHash) Dim ATR As String = "" Dim i As Integer Select Case Code Case 16 '选择16位字符的加密结果 For i = 4 To 11 ATR &= Hex(hashvalue(i)).PadLeft(2, "0").ToLower Next Case 32 '选择32位字符的加密结果 For i = 0 To 15 ATR &= Hex(hashvalue(i)).PadLeft(2, "0").ToLower Next Case Else 'Code错误时，返回全部字符串，即32位字符 For i = 0 To 15 ATR &= Hex(hashvalue(i)).PadLeft(2, "0").ToLower Next End Select Return ATR End Function |
vb.net 日期时间格式转换（Format函数）
Dim datestr As String = “” datestr = Format(Now(), “yyyy/MM/dd H:mm:ss ffff”) 用户定义的日期/时间格式（Format 函数） 下表显示可用于创建用户定义的日期/时间格式的字符。与 Visual Basic 的早期版 …
WordPress文章内容必备函数调用详解
wordpress文章常用函数基础 1 2 3 4 5 6 调用文章标题：<?php the_title(); ?> 文章内容：<?php the_content(); ?> 文章摘要：<?php the_excerpt(); ?> 作者姓名：<?php the_author …
WordPress去掉或禁止文章页顶部显示特色图片
WordPress文章有设置特色图片，有些主题在文章前面会加上特色图片，这样显的非常不好看，通过以下方式就可以解决。 wordpress去掉文章页显示的特色图片步骤： 打开wordpress后台—>外观—>编辑。 然后 …
DataGridView 行、列的隐藏和删除
1） 行、列的隐藏 [VB.NET] ‘ DataGridView1的第一列隐藏 DataGridView1.Columns(0).Visible = False ‘ DataGridView1的第一行隐藏 DataGridView1.Rows(0).Visible = False [C#] // DataGridView1的第一列 …
世界上最神奇的数字是：142857
世界上最神奇的数字是：142857（长见识咯）看似平凡的数字，为什么说他最神奇呢？我们把它从1乘到6看看142857 X 1 = 142857142857 X 2 = 285714142857 X 3 = 428571142857 X 4 = 571428142857 X 5 = 714285 …
汽车配件库存周转率计算方法
库存周转率=年销售额/年平均库存值还可以在分： 原材料库存周期率=年材料消耗额/原材料平均库存值在制品库存周转率=生产产值/在制品平均库存值周转率定义 = [(当年度自购直接材料月平均领料金额)×12]÷(当年 …
NTKO OFFICE文档控件技术资料
如何在Word中增加图片水印? //增加图片水印,参数url为绝对url function addWaterMarkPic(URL) { try { //TANGER_OCX_OBJ为控件对象 var ActiveDocument = TANGER_OCX_OBJ. …