这些「免费可商用」图片素材网站值得你收藏！设计找图不再烦啦
最近“视觉中国”闹得沸沸扬扬，从各方网友的评论看来，还真有不少公司吃过这种“钓鱼”侵权的亏，仅仅几张图片就要价几万，实在过分！更别说很多图片版权其实并不属于他们的。 但无论是个人、公司、自媒体，运 …
月度归档： 2019 年 5 月
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. …
C#访问Mysql数据库问题 出现异常。{“Fatal error encountered during command execution.”}
1，查询分析器可以正常执行SQL 2，C#程序调用，出现异常。{“Fatal error encountered during command execution.”} 3，有变量的SQL语句块，就会出现以上错误。 解决方案： 在连接串后面加入“Allow User Var …
关于Visual Studio中的IIS Express无法启动的100%解决办法
用文本编辑器打开项目中的.csproj文件（注意：VB.NET 为 .vbproj） 按ctrl+F查找[WebProjectProperties]节点（注意：VB.NET 为 <WebProjectProperties>） 把关于IIS的配置全部删除,[DevelopmentServe …
如何解决 Microsoft.CompactFramework.VisualBasic.targets” 或 Microsoft.CompactFramework.CSharp.targets” not found
如何解决 The imported project “C:\Windows\Microsoft.NET\Framework\v3.5\Microsoft.CompactFramework.CSharp.targets” was not found MSBuild 附带几个 .targets 文件，这些文件包含常见方案中用到的项 …
Mqtt-相关概念
1，Qos Qos有三个值，0，1，2 Qos=0, 消息只发送一次，提交 message 一次，不执行‘确认’操作，有可能客户端收不到，但是不重发 Qos=1,消息至少发送一次，提交 message 至少一次，含有‘确认’请求，会执行’确 …