如何在vb.net中生成自己的自定义api密钥？ [英] How do I generate my own custom api key in vb.net?

问题描述

大家好，

我有问题。我有一些生成API密钥的代码。前面需要一个字母，后面需要19个数字。问题是我的代码不会将第一个数字转换为字母。

这是我的代码（它很长而且很慢），如果你可以改进它，请随意这样做：

 私有 功能 GenerateAPI（）作为 字符串 
  Dim 字母 As   String  
  Dim  number  As   String  
 Randomize（）
 number = Int（Rnd（）*  26 ）+  1  
 letter = number.Replace（ 1 ，  a）
 letter = number.Replace（ 2 ，  b）
 letter = number.Replace（ 3 ，  c）
 letter = number.Replace（ 4 ，  d）
 letter = number.Replace（ 5 ，  e）
 letter = number.Replace（ 6 ，  f）
 letter = number.Replace（ 7 ，  g）
 letter = number.Replace（ 8 ，  h）
 letter = number.Replace（ 9 ，  i）
 letter = number.Replace（ 10 ，  j）
 letter = number.Replace（ 11 ，  k）
 letter = number.Replace（ 12 ，  l）
 letter = number.Replace（ 13 ，  m）
 letter = number.Replace（ 14 ，  n）
 letter = number.Replace（ 15 ，  o）
 letter = number.Replace（ 16 < /跨度>，   p）
 letter = number.Replace（ 17 ，  q）
 letter = number.Replace（  18 ，  r）
 letter = number.Replace（ 19 ，  s ）
 letter = number.Replace（ 20 ，  t）
 letter = number.Replace（ 21 ，   u）
 letter = number.Replace（ 22 ，  v）
 letter = number.Replace（ 23 ，  w）
 letter = number.Replace（ 24 ，  x）
 letter = number.Replace（ 25 ，  y）
 letter = number.Replace（ 26 ，  z）
 GenerateAPI = letter 
 MsgBox（letter）
 对于 i 作为 整数 =  0  至  19  
 Randomize（）
  Dim  x < span class =code-keyword> As   Integer  = Int（Rnd（）*  9 ）+  1  
 GenerateAPI& = x 
 下一步 
 结束 功能 

< br $>




提前谢谢。

解决方案

这是一个快速和令人讨厌的解决方案...我省略了字母I和O，因为它们很容易被混淆为1和0 ...



只是几条评论...



1.字符串是不可变的，字符串不可变有许多优点。它提供自动线程安全性，并使字符串以简单有效的方式表现为内在类型。这允许在运行时提高效率（例如允许有效的字符串实习以减少资源使用），并且具有巨大的安全优势，因为第三方API调用不可能更改字符串。



添加StringBuilder是为了解决不可变字符串的一个主要缺点 - 不可变类型的运行时构造会导致很多GC压力并且本质上很慢。通过创建一个显式的，可变的类来处理这个问题，解决了这个问题，而没有给字符串类增加不必要的复杂性。



2. ToCharArray（）函数将允许你快速将字符串分解为可用于第一个字符的字符数组。

  Dim  r  As  新 Random（）
  Dim  x =   abcdefghjklmnpqrstuvwxy 
  Dim  xx = x.ToCharArray（）
  Dim  sb = 新 StringBuilder（）
 sb.Append（xx（r。[下一步]（ 0 ，xx.Length）））
 对于 i  As  整数 =  0     18  
 sb。追加（r。[下一步]（ 0 ， 10 ））
 下一步 
 Console.WriteLine（sb.ToString（））
 Console.ReadKey（）

PS请不要那么苛刻......我们都在某个地方开始......

是......你可以......



那会稍微简化代码...



< pre lang =c＃> Dim r As New Random（）
Dim x = abcdefghjklmnpqrstuvwxy
Dim sb = New StringBuilder（）
sb.Append（x（r。[Next]（ 0 ，x.Length）） ）
对于i as Integer = 0 至 18
sb.Append（r 。[Next]（ 0 ， 10 ））
下一个
Console.WriteLine（sb.ToString（））
Console.ReadKey（）

Hi guys,
I have a problem. I have some code which generates an API key. It needs one letter at the front and 19 numbers after it. The problem is my code won't convert the first number into a letter.
Here is my code (it is long and slow), if you can improve it, please feel free to do so:

Private Function GenerateAPI() As String
        Dim letter As String
        Dim number As String
        Randomize()
        number = Int(Rnd() * 26) + 1
        letter = number.Replace(1, "a")
        letter = number.Replace(2, "b")
        letter = number.Replace(3, "c")
        letter = number.Replace(4, "d")
        letter = number.Replace(5, "e")
        letter = number.Replace(6, "f")
        letter = number.Replace(7, "g")
        letter = number.Replace(8, "h")
        letter = number.Replace(9, "i")
        letter = number.Replace(10, "j")
        letter = number.Replace(11, "k")
        letter = number.Replace(12, "l")
        letter = number.Replace(13, "m")
        letter = number.Replace(14, "n")
        letter = number.Replace(15, "o")
        letter = number.Replace(16, "p")
        letter = number.Replace(17, "q")
        letter = number.Replace(18, "r")
        letter = number.Replace(19, "s")
        letter = number.Replace(20, "t")
        letter = number.Replace(21, "u")
        letter = number.Replace(22, "v")
        letter = number.Replace(23, "w")
        letter = number.Replace(24, "x")
        letter = number.Replace(25, "y")
        letter = number.Replace(26, "z")
        GenerateAPI = letter
        MsgBox(letter)
        For i As Integer = 0 To 19
            Randomize()
            Dim x As Integer = Int(Rnd() * 9) + 1
            GenerateAPI &= x
        Next
    End Function

Thanks in advance.

解决方案

Here is a quick and nasty solution... I have omitted the letters I and O since they can be easily confused for 1 and 0...

Just a couple of comments...

1. Strings are immutable, strings immutable has many advantages. It provides automatic thread safety, and makes strings behave like an intrinsic type in a simple, effective manner. This allows for extra efficiencies at runtime (such as allowing effective string interning to reduce resource usage), and has huge security advantages, since it's impossible for an third party API call to change your strings.

StringBuilder was added in order to address the one major disadvantage of immutable strings - runtime construction of immutable types causes a lot of GC pressure and is inherently slow. By making an explicit, mutable class to handle this, this issue is addressed without adding unneeded complication to the string class.

2. The ToCharArray() function will allow you to quickly break a string into a character array that you can use for your first character.

Dim r As New Random()
Dim x = "abcdefghjklmnpqrstuvwxy"
Dim xx = x.ToCharArray()
Dim sb = New StringBuilder()
sb.Append(xx(r.[Next](0, xx.Length)))
For i As Integer = 0 To 18
    sb.Append(r.[Next](0, 10))
Next
Console.WriteLine(sb.ToString())
Console.ReadKey()

PS Please don't be so harsh... We all started somewhere...

Yes... you can...

That would simplify the code somewhat...

Dim r As New Random()
Dim x = "abcdefghjklmnpqrstuvwxy"
Dim sb = New StringBuilder()
sb.Append(x(r.[Next](0, x.Length)))
For i As Integer = 0 To 18
	sb.Append(r.[Next](0, 10))
Next
Console.WriteLine(sb.ToString())
Console.ReadKey()

这篇关于如何在vb.net中生成自己的自定义api密钥？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！